Các loại hàm tự tạo tổng hợp các loại công trong tháng

**viet1234** · 01-16-2013, 02:08 PM

.

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]

(2)Xin giới thiệu hàm tự tạo tổng hợp công nữa buổi (thứ bảy)
(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:

**yencenco** · 01-16-2013, 02:14 PM

Ðề: 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]

Macro này còn chấm cả những ngày nghỉ lễ dương & âm lịch. Để có công lễ ngày âm lịch, vào đầu năm bạn phải thêm công đoạn quy đổi nó sẽ là ngày dương lịch nào tương ứng (Trong trang 'CongNghi')

Chúc vui & thành công mĩ mãn!
:chay:

**sunny** · 01-16-2013, 02:27 PM

Ðề: 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]

Chú í khi dùng:

(*) Đâ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

**gialinhacbd** · 01-16-2013, 02:39 PM

Ðề: 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á @@

**truongson** · 01-16-2013, 02:47 PM

Ðề: 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]

**nam_asia** · 01-16-2013, 02:52 PM

Ðề: 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]

Các bạn xem thêm cú fáp tại các ô "AI11:AK12" trong file kèm theo

**tuboi** · 01-16-2013, 11:17 PM

Ðề: 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:

**Văn Chiến** · 01-16-2013, 11:20 PM

Ðề: 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:

**10comblog** · 05-25-2013, 04:29 AM

Ðề: 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]

Chủ đề: Các loại hàm tự tạo tổng hợp các loại công trong tháng

Công cụ Chủ đề

Tìm Chủ đề

Hiển thị

Các loại hàm tự tạo tổng hợp các loại công trong tháng

View more random threads:

Quyền viết bài

Titan gel giúp cho chàng có kích cỡ dương vật "cỡ bự

Nhiều điều nên biết về gel tăng size dương vật (6)

Ưu điểm và nhược điểm của cảm biến cửa cổng điện điều khiển từ xa

Rượu ngâm ba kích giúp tráng dương cho đàn ông? Nhìn nhận của dược sĩ

Pallet nhựa Cần Thơ tiết kiệm chi phí lưu kho

Dulichviet gợi ý các điểm nên đến khi đi Du lịch Châu Âu

Bí quyết sử dụng gel bôi trơn lỗ đít đúng cách (5)

Thảo luận về mẹo chuyên sâu phát triển khoa học công nghệ

HPT Việt Nam - Nhập khẩu và lắp đặt thiết bị công nghệ cao hàng đầu Việt Nam

Thu mua pallet nhựa cũ uy tín nhất thị trường