Giúp viết 1 hàm VB. (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

huynhson0102

Thành viên mới
Tham gia
25/8/16
Bài viết
17
Được thích
0
Mình có 1 file báo cáo, ở dòng Total mình đã dùng 1 hàm VB để đếm số lượng công việc. Ở dòng Finished Mình muốn đếm lượng việc đã kết thúc bằng cách đếm ở dòng O6:O125 (tìm chuỗi có chữ Done ở cuối và cộng dồn tương tự Total).
Mình nhờ các bạn dựa vào Total giúp viết CountDone để đếm việc đã hoàn thành. Cám ơn...
 

File đính kèm

Có 37 thôi; không fải 38 như bạn muốn:

PHP: 
Option Explicit
Function Done(Rng As Range)
 Dim Arr()
 Dim J As Long

 Arr() = Rng.Value
 For J = 1 To UBound(Arr())
    If Arr(J, 1) = "" Then Exit For
    If InStr(Arr(J, 1), "Done") Then
        Done = Done + 1
    End If
 Next J
End Function
 
ChanhTQ@ đã viết:
Có 37 thôi; không fải 38 như bạn muốn:

PHP: 
Option Explicit
Function Done(Rng As Range)
 Dim Arr()
 Dim J As Long

 Arr() = Rng.Value
 For J = 1 To UBound(Arr())
    If Arr(J, 1) = "" Then Exit For
    If InStr(Arr(J, 1), "Done") Then
        Done = Done + 1
    End If
 Next J
End Function
Nhấp chuột vào đây để mở rộng...
Bác ơi, còn lọc lại dữ liệu trùng nữa, giống hàm CountUnique trong file vậy đó. Ví dụ Cột O6 là "aDone", cột O12 là "aDone" thì nó chỉ tính là 1 thôi. Hàm bác viết giúp mình là cái nào có Done thì đếm thôi, k có tính dữ liệu trùng.
Hàm CountUnique:

PHP: 
Option Explicit
Function CountUnique(Rng As Range) As Integer
 Dim Clls As Range, tStr As String, temp As Long
 tStr = "@"
 For Each Clls In Rng
    If Clls <> "" And InStr(1, tStr, "@" & Clls & "@") = 0 Then
        temp = 1 + temp
        tStr = tStr & Clls & "@"
    End If
 Next
CountUnique = temp
End Function
Hàm này chỉ lọc được thôi, không có chức năng tìm chữ Done, bác tìm cách thêm chữ done vô giúp em với.
 
Lần chỉnh sửa cuối:
huynhson0102 đã viết:
Bác ơi, còn lọc lại dữ liệu trùng nữa, giống hàm CountUnique trong file vậy đó. Ví dụ Cột O6 là "aDone", cột O12 là "aDone" thì nó chỉ tính là 1 thôi. Hàm bác viết giúp mình là cái nào có Done thì đếm thôi, k có tính dữ liệu trùng.
Hàm CountUnique:

PHP: 
Option Explicit
Function CountUnique(Rng As Range) As Integer
 Dim Clls As Range, tStr As String, temp As Long
 tStr = "@"
 For Each Clls In Rng
    If Clls <> "" And InStr(1, tStr, "@" & Clls & "@") = 0 Then
        temp = 1 + temp
        tStr = tStr & Clls & "@"
    End If
 Next
CountUnique = temp
End Function
Hàm này chỉ lọc được thôi, không có chức năng tìm chữ Done, bác tìm cách thêm chữ done vô giúp em với.
Nhấp chuột vào đây để mở rộng...
Bạn thay đổi 1 tí là được
Mã: 
[COLOR=#0000bb][FONT=Courier New]Option Explicit
[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]Function [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]CountUniqueDone[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]([/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Rng [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Range[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]) As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Integer
 Dim Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Range[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]String[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]temp [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Long
 tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@"
 [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]For [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Each Clls In Rng
    [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]If [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]<> [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"" [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]And [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]InStr[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]([/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]1[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]tStr[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@" [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@"[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]) = [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]0 [COLOR=#007700][FONT=Courier New]And [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]InStr[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]([/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]1[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]clls[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], "Done"[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]) > [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]0[/FONT][/COLOR] Then
        temp [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]1 [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]+ [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]temp
        tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@"
    [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]End [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]If
 [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Next
CountUniqueDone [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]temp
End [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]Function  [/FONT][/COLOR]
 
hoanganhvo2612 đã viết:
Bạn thay đổi 1 tí là được
Mã: 
[COLOR=#0000bb][FONT=Courier New]Option Explicit
[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]Function [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]CountUniqueDone[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]([/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Rng [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Range[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]) As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Integer
 Dim Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Range[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]String[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]temp [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]As [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Long
 tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@"
 [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]For [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Each Clls In Rng
    [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]If [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]<> [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"" [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]And [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]InStr[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]([/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]1[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]tStr[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@" [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@"[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]) = [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]0 [COLOR=#007700][FONT=Courier New]And [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]InStr[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]([/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]1[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]clls[/FONT][/COLOR][COLOR=#007700][FONT=Courier New], "Done"[/FONT][/COLOR][COLOR=#007700][FONT=Courier New]) > [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]0[/FONT][/COLOR] Then
        temp [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]1 [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]+ [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]temp
        tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]tStr [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Clls [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]& [/FONT][/COLOR][COLOR=#dd0000][FONT=Courier New]"@"
    [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]End [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]If
 [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]Next
CountUniqueDone [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]= [/FONT][/COLOR][COLOR=#0000bb][FONT=Courier New]temp
End [/FONT][/COLOR][COLOR=#007700][FONT=Courier New]Function  [/FONT][/COLOR]
Nhấp chuột vào đây để mở rộng...
ok. Cảm ơn 2 bác nhé..
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
10
Đọc
307
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel (4 người xem)
    • Thích
Trả lời
8
Đọc
271
VetMini
V
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (1 người xem)
Trả lời
1
Đọc
16
kenytien
K
K
Lỗi chèn ảnh hàng loạt trong excel 2024 (2 người xem)
Trả lời
0
Đọc
12
kenytien
K
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel (3 người xem)
Trả lời
2
Đọc
32
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel
Trả lời
1
Đọc
57
BuiQuangThuan
B
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (2 người xem)
Trả lời
0
Đọc
53
queluatb
queluatb
P
Xin tư vấn về cách tạo bảng quản lý vải (1 người xem)
    • Cười
Trả lời
16
Đọc
293
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu (2 người xem)
Trả lời
6
Đọc
181
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng (1 người xem)
Trả lời
7
Đọc
208
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT (1 người xem)
Trả lời
8
Đọc
155
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng) (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (1 người xem)
2
Trả lời
25
Đọc
936
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml (1 người xem)
Trả lời
1
Đọc
147
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
139
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản. (1 người xem)
Trả lời
10
Đọc
288
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
Trả lời
19
Đọc
603
thuytrangbp28
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô. (1 người xem)
Trả lời
6
Đọc
207
Trungvt3
Trungvt3
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet (1 người xem)
Trả lời
4
Đọc
206
hieu998
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom