-
01-16-2013, 02:08 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Các loại hàm tự tạo tổng hợp các loại công trong tháng
.Bài I (Phần A & 8-)..(1) Công thêm giờ các loại, đi muộn, . . .. Xin các bạn xem thêm trong file kèm theo
Hàm này ứng với trang tính 'S00':
Mã nguồn PHP:[COLOR=#000000]
Option Explicit [/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]TinhCong[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]LookUpRange [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Loai [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) Const [/COLOR][COLOR=#0000BB]PC [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]";" [/COLOR][COLOR=#0000BB]Dim Clls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]Dim Cg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Dim VTr [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]VTr0 [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]DDai [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte Cg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]UCase[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Loai[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700])): [/COLOR][COLOR=#0000BB]DDai [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cg[/COLOR][COLOR=#007700]) For [/COLOR][COLOR=#0000BB]Each Clls In LookUpRange VTr [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cg[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]VTr [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]0 Then VTr0 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]VTr [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]PC[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]VTr0 [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]0 Then TinhCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]TinhCong [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]0.5 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]_ CDbl[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]VTr [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]DDai[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]VTr0 [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]VTr [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]DDai[/COLOR][COLOR=#007700])) ElseIf [/COLOR][COLOR=#0000BB]VTr0 [/COLOR][COLOR=#007700]< [/COLOR][COLOR=#0000BB]1 Then [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]VTr [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]DDai [/COLOR][COLOR=#007700]<= [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then TinhCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]TinhCong [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]0.5 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]CDbl[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]VTr [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]DDai[/COLOR][COLOR=#007700])) Else [/COLOR][COLOR=#0000BB]TinhCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]TinhCong [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]8 End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Clls End [/COLOR][COLOR=#007700]Function [/COLOR]
(Các bạn xem them tại trang 'S1' trong file đính kèm)
Mã nguồn PHP:[COLOR=#000000]
Option Explicit [/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]THCong[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]LookUpRange [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Optional LoaiCong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"X"[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Double Dim Clls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Then LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"X" [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]UCase[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]LoaiCong[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If For [/COLOR][COLOR=#0000BB]Each Clls In LookUpRange [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]LoaiCong Then [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Weekday[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column[/COLOR][COLOR=#007700])) = [/COLOR][COLOR=#0000BB]7 Then THCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]THCong [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"X"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0.5[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) Else [/COLOR][COLOR=#0000BB]THCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]THCong [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Clls End [/COLOR][COLOR=#007700]Function [/COLOR]
View more random threads:
- Cách chuyển dữ liệu từ máy chấm công sang bảng chấm công có sẵn.
- Lọc, so sánh giá trị nhiều điều kiện?
- Kiểm tra giá trị trong ô
- Lọc dữ liệu vào phiếu thu, phiếu chi
- Hợp nhất nhiều File vào 1 file
- Macro gộp nhiều File vào 1 File
- Nhờ Giải thích Code Mở 1 file Excel Trong VBA
- Hỏi về tìm kiếm dữ liệu từ nhiều Sheet và hiển thị kết quả trên form
- [Help] Tự động liên kết các file excel lại với nhau
- Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn
-
01-16-2013, 02:14 PM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 2
Ðề: Bài 2
Lập bảng chấm công cho từng đơn vị trong cơ quan hành chính sự nghiệp Trong cơ quan HCSN, công xá không mấy thay đổi trong cả tháng; Trong tháng cả cơ quan chỉ vài người có công khác, như nghỉ phép, bù, riêng có & không lương, . . .
Người quản lý nhân sự có thể lập ra trang tính liệt kê tất thẩy các công nghỉ đó. (Xem trang 'CongNghi' trong file)
Sau đó dùng 1 macro để lập bảng chấm công toàn tháng cho các đơn vị.
Muốn in bảng chấm công đơn vị nào, ta chọn mã đơn vị tại [D2] trong trang 'DonVi'
Macro này có nội dung như sau:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit Sub CopyToChamCong[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim Clls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng0 [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim SoNgay [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]NgayBD [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Jj [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"CongNghi"[/COLOR][COLOR=#007700]): [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"ChamCong"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]e4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]A65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]31[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]ClearContents [/COLOR][COLOR=#DD0000]' GPE' [/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]C3[/COLOR][COLOR=#007700]], [[/COLOR][COLOR=#0000BB]c65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Set Rng0 [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]E2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]31[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Rng0[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]NumberFormat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"MM/DD/yyyy" [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Clls In Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B3[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Interior[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ColorIndex [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]35 With Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]NgayBD [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Day[/COLOR][COLOR=#007700](.[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]): [/COLOR][COLOR=#0000BB]SoNgay [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]- .[/COLOR][COLOR=#0000BB]Value End With [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Jj [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]NgayBD [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1 To [/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]NgayBD [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoNgay[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#DD0000]'*' [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Weekday[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]E2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]Jj[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]) <> [/COLOR][COLOR=#0000BB]1 Then Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [[/COLOR][COLOR=#0000BB]E2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]Jj[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Column[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [[/COLOR][COLOR=#0000BB]E2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]Jj[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Column[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"CN" [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Jj End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Clls Rng0[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]NumberFormat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"DD" [/COLOR][COLOR=#0000BB]End Sub [/COLOR]
Chúc vui & thành công mĩ mãn!
:chay:
-
01-16-2013, 02:27 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bài 3
:chay:Hàm mảng tự tạo để đếm công không đi làm cách quảng.
:chay:Giả dụ tôi có bảng chấm công như sau:
A . . .B C D E F G H I J K L . . . . ..AF AG AH AI AJ AK AL AM
Ngày 1 2 3 4 5 6 7 8 9 10 11 . . . 31 Kết quả mong muốn:
NV1 ..0 0 0 4 0 0 0 0 0 1 0 . . . .. 31 3 1 5 1 . .
NV3 ..1 2 0 0 1 0 0 0 1 1 0 . . . . .31 2 2 1 3 2 . .
Có nghĩa nhiệm vụ của chúng ta chỉ là tổng hợp các số không liên tục, sau đó đến các số >0 liên tục; Tiếp nữa sẽ là các số 0 liên tục. . . cứ vậy cho đến hết tháng.
Hàm tự tạo có nội dung như sau:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]Option Base 1 [/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]DemCong[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]LookUpRange [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Clls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Jj [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]bD [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ww [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer bD [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]LookUpRange[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count ReDim MDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]bD[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]LookUpRange[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"0" [/COLOR][COLOR=#0000BB]Then Jj [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]2 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Jj [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Clls In LookUpRange [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Then MDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Jj[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]MDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Jj[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]1 With Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) If ([/COLOR][COLOR=#0000BB]Jj Mod 2 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]And .[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"0"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]_ [/COLOR][COLOR=#007700]Or ([/COLOR][COLOR=#0000BB]Jj Mod 2 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And .[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#DD0000]"0"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then Jj [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Jj [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End With Next Clls [/COLOR][COLOR=#DD0000]'Khu Các So Không Trong Mang:' [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Ww [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Jj [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 To bD MDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ww[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Next Ww DemCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]MDL End [/COLOR][COLOR=#007700]Function [/COLOR]
(*) Đây là hàm mảng tự tạo, cần chú ý với tổ hợp fím giành cho hàm mảng.
(*) Cú pháp hàm xem tại vùng 'AH4:AP15' trong file đính kèm
-
01-16-2013, 02:39 PM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: Các loại hàm tự tạo tổng hợp các loại công trong tháng
Bài 3 này ảo quá @@
-
01-16-2013, 02:47 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bài 4 Xin giới thiệu thêm 1 hàm người dùng để đếm các loại công
:bephuthuy:Xin xem thêm trong file đính kèm & code sau
Mã nguồn PHP:[COLOR=#000000]
Option Explicit [/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]DemCong[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]LookUpRange [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Loai [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Clls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Clls In LookUpRange With Clls Thu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Weekday[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Ngay"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, .[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]) If (.[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]<= [/COLOR][COLOR=#0000BB]2.5 [/COLOR][COLOR=#007700]And .[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]>= [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) And [/COLOR][COLOR=#0000BB]Loai [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"T2" [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]1 Then DemCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]DemCong [/COLOR][COLOR=#007700]ElseIf .[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]>= [/COLOR][COLOR=#0000BB]3 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Loai [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"T3" [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]1 Then DemCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]DemCong [/COLOR][COLOR=#007700]ElseIf .[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]>= [/COLOR][COLOR=#0000BB]8 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Loai [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"T8" [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 Then DemCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]DemCong End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End With Next Clls End [/COLOR][COLOR=#007700]Function [/COLOR]
-
01-16-2013, 02:52 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bài 5: Hàm tự tạo để tính Các loại công Thêm giờ
:cuoiranuocmat:Ở cơ quan nọ, quy điịnh 3 loại công thêm giờ khác nhau:
(*) Công thêm giờ ngày thường;
(*) Công thêm giờ ngày thứ bảy & chủ nhật;
(*) Công thêm giờ các ngày nghiỉ lễ (Như Tết nguyên đán, 30/4 & 1/5, 2uốc khánh, tết dương lịch,. . .
Sau đây là hàm tự tạo để tính các lọại công thêm giờ này
Mã nguồn PHP:[COLOR=#000000]
Option Explicit [/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]CongThG[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]lookupRange [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Optional LoaiCong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"C"[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Integer [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Then LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"C" [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]InStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"CLT"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]LoaiCong[/COLOR][COLOR=#007700]) < [/COLOR][COLOR=#0000BB]1 Then CongThG [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]2999[/COLOR][COLOR=#007700]: Exit Function [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Dim Clls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim MyColor [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Boolean[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Clls In lookupRange Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Weekday[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]): [/COLOR][COLOR=#0000BB]MyColor [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Interior[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ColorIndex [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]2 [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"C" [/COLOR][COLOR=#007700]And ([/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Or [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]) And [/COLOR][COLOR=#0000BB]Not MyColor Then CongThG [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CongThG [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"T" [/COLOR][COLOR=#007700]And ([/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Thu [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]) And [/COLOR][COLOR=#0000BB]Not MyColor Then CongThG [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CongThG [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]LoaiCong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"L" [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]MyColor Then CongThG [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CongThG [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Clls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Clls End [/COLOR][COLOR=#007700]Function [/COLOR]
-
01-16-2013, 11:17 PM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bài 7: Hàm tự tạo dùng để tổng hợp các loại công
Ở cơ quan nọ, qui ước chấm công gồm có thể có hay không 2 nhóm số ở đầu hay cuối chuỗi mã chấm công (như 1.5X, A2.5, 2B2.5, X,. . . )
Nhiệm vụ của chúng ta là viết 1 hàm người dùng để tổng hợp số giờ ghi trong bảng chấm công 1 tháng nào đó; nhưng fải tách bạch các ký số nằm ở đầu hay cuối chuỗi riêng biệt;
(Các bạn có thể sẽ rõ hơn trong hình dưới đây:
:15:
Các bạn có thể rõ hơn trong file đính kèm:
-
01-16-2013, 11:20 PM #8Silver member
- Ngày tham gia
- Nov 2015
- Bài viết
- 37
Ðề: Bài 8: Hàm tính lương có thời gian thử việc đến giữa tháng
:rachoa:Thường thì thời gian hết thử việc là cuối của 1 tháng nào đó;
Nhưng cũng có trường hợp trong 1 tháng xen kẻ công thử việc & công bình thường;
Trong file là cách thức tính công xen kẻ bỡi hàm tự tạo
(Qui ước công thử việc bằng 70% công thường & công trung bình trong tháng là 26; )
:15:
-
05-25-2013, 04:29 AM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Hàm tự tạo tính tiền công sản fẩm theo ca & theo trình độ tay nghề
Trước tiên xin các bạn quan sát hình bảng chấm công sản fẩm, như dưới đây:
Qua hình ta biết tổ sản xuất gồm 12 người chia ra 3 ca (kí hiệu ca sáng, chiều & tối)
Nhóm người trong cùng ca có trình độ tay nghề khác nhau, được ghi nhận bỡi hệ số lương SF ghi ở cột 'D';
Số tiền công sản fẩm từng ca được ghi 3 dòng bên dưới bảng chấm công; Tiền công SF này trả theo từng ngày khác nhau; Trong hình ta chỉ lược ghi 4 ngày công đầu tháng;
Chúng ta cũng thấy, trong tuần, thậm chí trong các ngày trong tuần cũng có thể hoán đổi ca; & các ca khác nhau có tiền công SF trong ngày cũng khác nhau;
Sau đây là hàm tự tạo tính công SF cho từng người trong ca khác nhau trong ngày:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit [/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]LuongSF[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaNV [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]LSF [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim Ca [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]MyAdd [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]SoNg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]HSL [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]THSL [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Luong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double 1 [/COLOR][COLOR=#DD0000]'Tìm Ca SX:' [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]LSF[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DSMa"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MaNV[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then Ca [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value HSL [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"D"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]2 [/COLOR][COLOR=#DD0000]'Tìm He Só Luong Cua Só Nguòi Cùng Ca Trong Ngày:' [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DSMa"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ca[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If For [/COLOR][COLOR=#0000BB]Each Cls In Rng [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Ca Then THSL [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]THSL [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"D"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Cls 3 [/COLOR][COLOR=#DD0000]'Tìm Két Qua Luong SF:' [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Cls In Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Ca"[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Ca Then Luong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]Exit For [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Cls LuongSF [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Luong [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]HSL [/COLOR][COLOR=#007700]/ [/COLOR][COLOR=#0000BB]THSL End [/COLOR][COLOR=#007700]Function [/COLOR]
Trứng rung tình yêu là một loại đồ chơi ái tình phổ biến được nhiều cặp đôi và cá nhân chủ nghĩa sử dụng để tăng cường khoái cảm tình dục hoặc các màn dạo đầu mãn nhãn tuyệt vời. Tuy nhiên, để đảm...
Vần đề "chuyện yêu". Lý do cần vệ sinh máy rung tình yêu