[HELP] VBA_count với nhiều điều kiện

[n0bita1010]

Xin chào các bác,
Em có file chấm công ở đính kèm,
Mô tả: - Mục đích: tạo 1 công thức đếm trong 1 vùng dữ liệu, với các điều kiện sau:
+ Nếu ô đó không phải màu vàng
+ Nếu ô đó chứa: HC or C1 or C2 (Tức là đi làm đủ 8 tiếng ca HC, ca 1, ca2) thì đếm là: 1
+ Nếu ô đó chứa: 0.5HC or 0.5HC1 or 0.5C2 (tức đi làm nửa ca) thì đếm là: 0.5
Em tạo Function như sau, nhưng khi gõ công thức thì kết quả trả về là : #Value.
Em mới đang tập toẹ VBA nên Không biết code bị sai ở đâu.
Xin các cao nhân chỉ giáo ạ!

Function demhct(ra As Range)
Dim cu As Range
' cu la bien o
Dim sumRes
' tong dem
Application.Volatile
sumRes = 0
For Each cu In ra
If cu.Interior.ColorIndexr <> 6 Then
If cu.Value = "HC" Or cu.Value = "C1" Or cu.Value = "C2" Then
sumRes = sumRes + 1
Else
If cu.Value = "0.5HC" Or cu.Value = "0.5C1" Or cu.Value = "0.5C2" Then
sumRes = sumRes + 0.5
End If
End If
End If
Next cu
demhct = sumRes
End Function

 

[snow25]

Xin chào các bác,
Em có file chấm công ở đính kèm,
Mô tả: - Mục đích: tạo 1 công thức đếm trong 1 vùng dữ liệu, với các điều kiện sau:
+ Nếu ô đó không phải màu vàng
+ Nếu ô đó chứa: HC or C1 or C2 (Tức là đi làm đủ 8 tiếng ca HC, ca 1, ca2) thì đếm là: 1
+ Nếu ô đó chứa: 0.5HC or 0.5HC1 or 0.5C2 (tức đi làm nửa ca) thì đếm là: 0.5
Em tạo Function như sau, nhưng khi gõ công thức thì kết quả trả về là : #Value.
Em mới đang tập toẹ VBA nên Không biết code bị sai ở đâu.
Xin các cao nhân chỉ giáo ạ!

Function demhct(ra As Range)
Dim cu As Range
' cu la bien o
Dim sumRes
' tong dem
Application.Volatile
sumRes = 0
For Each cu In ra
If cu.Interior.ColorIndexr <> 6 Then
If cu.Value = "HC" Or cu.Value = "C1" Or cu.Value = "C2" Then
sumRes = sumRes + 1
Else
If cu.Value = "0.5HC" Or cu.Value = "0.5C1" Or cu.Value = "0.5C2" Then
sumRes = sumRes + 0.5
End If
End If
End If
Next cu
demhct = sumRes
End Function

Chỗ này thừa chữ R nhé bạn sửa thành.

If cu.Interior.ColorIndex <> 6 Then

 

[VetMini]

Tên biến đặt ý nhị quá nhỉ.

 

[keyeutien]

Xin chào các bác,
Em có file chấm công ở đính kèm,
Mô tả: - Mục đích: tạo 1 công thức đếm trong 1 vùng dữ liệu, với các điều kiện sau:
+ Nếu ô đó không phải màu vàng
+ Nếu ô đó chứa: HC or C1 or C2 (Tức là đi làm đủ 8 tiếng ca HC, ca 1, ca2) thì đếm là: 1
+ Nếu ô đó chứa: 0.5HC or 0.5HC1 or 0.5C2 (tức đi làm nửa ca) thì đếm là: 0.5
Em tạo Function như sau, nhưng khi gõ công thức thì kết quả trả về là : #Value.
Em mới đang tập toẹ VBA nên Không biết code bị sai ở đâu.
Xin các cao nhân chỉ giáo ạ!

Function demhct(ra As Range)
Dim cu As Range
' cu la bien o
Dim sumRes
' tong dem
Application.Volatile
sumRes = 0
For Each cu In ra
If cu.Interior.ColorIndexr <> 6 Then
If cu.Value = "HC" Or cu.Value = "C1" Or cu.Value = "C2" Then
sumRes = sumRes + 1
Else
If cu.Value = "0.5HC" Or cu.Value = "0.5C1" Or cu.Value = "0.5C2" Then
sumRes = sumRes + 0.5
End If
End If
End If
Next cu
demhct = sumRes
End Function

khai báo thiếu tè le vậy bạn

 

[n0bita1010]

Chỗ này thừa chữ R nhé bạn sửa thành.

If cu.Interior.ColorIndex <> 6 Then

dạ, em bỏ rồi ạ, mà kết quả vẫn vậy T.T

Bài đã được tự động gộp: 7/4/20

Tên biến đặt ý nhị quá nhỉ.

dạ, em học mót nên ko biết chi cả ))) Bác chỉ em với.

 

[n0bita1010]

dạ tiên em xin cách, khi viết function cho 1 workbook rồi thì làm thế nào để Function đó được sử dụng trong toàn bộ các file khác nữa ạ?

 

[snow25]

dạ tiên em xin cách, khi viết function cho 1 workbook rồi thì làm thế nào để Function đó được sử dụng trong toàn bộ các file khác nữa ạ?

Thêm nó vào ADD IN là được.Còn cách thêm tìm hiểu nhé.

 

[abels]

Chỗ Dim sumRes thì gán integer nữa là được.

 

[PacificPR]

Chỗ Dim sumRes thì gán integer nữa là được.

Hàm trên mà sumRes thì gán integer là họ cho nghỉ việc đấy ạ

 

[snow25]

Hàm trên mà sumRes thì gán integer là họ cho nghỉ việc đấy ạ

Sao nghỉ được nó làm tròn lên mà.Được thêm công mà.

 

[CHAOQUAY]

Chỗ Dim sumRes thì gán integer nữa là được.

Nếu khai báo vậy thì kết quả trả về hình như là không có hàng thập phân thì phải