Hỏi về hàm counta trong VBA (1 người xem)

[khanhcang2]

Em muốn chuyển hàm COUNTA trong excel sang VBA. Ví dụ, em muốn chuyển =Counta(B1:B10) thì cần viết như thế nào ạ? Em cảm ơn mọi người!

 

[phihndhsp]

Em muốn chuyển hàm COUNTA trong excel sang VBA. Ví dụ, em muốn chuyển =Counta(B1:B10) thì cần viết như thế nào ạ? Em cảm ơn mọi người!

bạn ghi macro đi rồi sẽ thấy kết quả

 

[giola]

bạn ghi macro đi rồi sẽ thấy kết quả

Ghi marcro sao, thầy Phi ơi? thầy nói thế em thua, không biết làm sao,thành viên mời thì sao ha?

 

[giangleloi]

Ghi marcro sao, thầy Phi ơi? thầy nói thế em thua, không biết làm sao,thành viên mời thì sao ha?

Chỉ cần có hướng tự tìm trên diễn đàn thiếu gì lối để đi chứ

 

[giola]

Chỉ cần có hướng tự tìm trên diễn đàn thiếu gì lối để đi chứ

Chưa chắc bạn ơi, tìm chưa chăc đã hiểu, countA là countA sang VBA nó khác vẫn là countA thì cần gì VBA nữa, ... đó mơí cần thầy cô bạn ơi, ... cái đó là cần lớp đó ????

 

[giangleloi]

Chưa chắc bạn ơi, tìm chưa chăc đã hiểu, countA là countA sang VBA nó khác vẫn là countA thì cần gì VBA nữa, ... đó mơí cần thầy cô bạn ơi, ... cái đó là cần lớp đó ????

Thà là tìm chưa hiểu có thể hỏi. Còn ở đó mà nói như bạn thì kiếm lớp mà học đi. Tốn thời gian vô đây làm gì chứ nhỉ

 

[comet_1701]

Em muốn chuyển hàm COUNTA trong excel sang VBA. Ví dụ, em muốn chuyển =Counta(B1:B10) thì cần viết như thế nào ạ? Em cảm ơn mọi người!

Ví dụ thế này :

Sub test()    
[D6] = WorksheetFunction.CountA(Range("B1:B10"))
End Sub

Bình thường muốn chuyển hàm excel sang vba cần có, application or worksheetfunction nhé

[D6] = Application.CountA(Range("B1:B10"))
[D6] = Application.WorksheetFunction.CountA(Range("B1:B10"))

có thể như trên

 

[khanhcang2]

bạn ghi macro đi rồi sẽ thấy kết quả

Thực ra là em muốn gán giá trị của Counta(B1:B10) vào 1 biến đếm trong VBA anh ạ. Nhưng do em mới tìm hiểu VBA nên không biết phải chỉnh Macro như thế nào? Em muốn biến đếm này chỉ xuất hiện trong VBA chứ không chiếm một ô cụ thể nào.
Vi du: Dem = Range("B1:B10")
m=application.counta(dem)
Mong anh chỉ dẫn thêm ạ!

 

[comet_1701]

Thực ra là em muốn gán giá trị của Counta(B1:B10) vào 1 biến đếm trong VBA anh ạ. Nhưng do em mới tìm hiểu VBA nên không biết phải chỉnh Macro như thế nào? Em muốn biến đếm này chỉ xuất hiện trong VBA chứ không chiếm một ô cụ thể nào.
Vi du: Dem = Range("B1:B10")
m=application.counta(dem)
Mong anh chỉ dẫn thêm ạ!

Sub test()
    Dim dem As Range
    Set dem = Range("B1:B10")
    [D6] = Application.CountA(dem)
End Sub

ý bạn thế này chăng

 

[khanhcang2]

Sub test()
    Dim dem As Range
    Set dem = Range("B1:B10")
    [D6] = Application.CountA(dem)
End Sub

ý bạn thế này chăng

Cảm ơn mọi người. Đúng ý em ạ. Anh Comet_1701 cho em hỏi thêm về sự khác nhau giữa đoạn code của anh với đoạn code này với ạ

Sub test()
    dem = Range("B1:B10")
    M = Application.CountA(dem)
    Range("D6").Value = M
    End Sub

Bởi khi em thử 2 code cho 2 kết quả khác nhau?

 

[comet_1701]

Cảm ơn mọi người. Đúng ý em ạ. Anh Comet_1701 cho em hỏi thêm về sự khác nhau giữa đoạn code của anh với đoạn code này với ạ

Sub test()
    dem = Range("B1:B10")
    M = Application.CountA(dem)
    Range("D6").Value = M
    End Sub

Bởi khi em thử 2 code cho 2 kết quả khác nhau?

Test ban đầu ý, nó là mảng gồm 10 phần tử , chính vì vậy mình nghĩ nó ra 10 ( nó đếm lần lượt từ trên xuống). B1:B10 ko nhập thêm vào vẫn ra 10
còn Test1 là biến đối tượng (phần có set) khi nạp vào nó ra khác ( nó đếm các phần tử mới nạp vào B1:B10)
Mình chi viết vậy, nếu sai nhờ mọi người góp ý

Sub test()
    Dim dem()

    dem = Range("B1:B10")
     m = Application.CountA(dem)
     Range("D6").Value = m
    Debug.Print m
    End Sub

dem ở đây dạng variant