Nhờ các bạn giúp mình hàm coutif VBA (3 người xem)

[Trần Văn Bình]

Hiện mình có ghi Reccord nhưng chạy chậm nhờ các bạn sữa lại đoạn code sau:
Sub Countif_Col_AC()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.AskToUpdateLinks = False
Dim Lr As Long
Dim i As Integer
With Sheet1
Lr = Sheet1.Range("I" & Rows.Count).End(xlUp).Row
'Sheet1.Range("AC:AC" & Lr).ClearContents
For i = 3 To Lr
Range("AC" & i).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-20]<>"""",COUNTIF(RC[-12]:RC[-1],""x""),"""")"
Range("AC" & i).Select
' Selection.AutoFill Destination:=Range("AC3:AC" & i)
'Range("AC3:AC" & i).Select
Next i
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.AskToUpdateLinks = True
End Sub

 

[Hoàng Tuấn 868]

Hiện mình có ghi Reccord nhưng chạy chậm nhờ các bạn sữa lại đoạn code sau:
Sub Countif_Col_AC()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.AskToUpdateLinks = False
Dim Lr As Long
Dim i As Integer
With Sheet1
Lr = Sheet1.Range("I" & Rows.Count).End(xlUp).Row
'Sheet1.Range("AC:AC" & Lr).ClearContents
For i = 3 To Lr
Range("AC" & i).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-20]<>"""",COUNTIF(RC[-12]:RC[-1],""x""),"""")"
Range("AC" & i).Select
' Selection.AutoFill Destination:=Range("AC3:AC" & i)
'Range("AC3:AC" & i).Select
Next i
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.AskToUpdateLinks = True
End Sub

1/ Bạn nên đưa code vào thẻ code cho gọn.
2/ Đây là bạn gán công thức vào chứ đâu phải code thay cho hàm Countif.

Nhờ các bạn giúp mình hàm coutif VBA​

Mà hình như excel không có hàm này thì phải bạn ơi.

 

[VetMini]

Code này chưa chắc chạy ra đúng kết quả. Chưa nói đến việc nhanh chậm.

With Sheet1
Lr = Sheet1.Range("I" & Rows.Count).End(xlUp).Row
'Sheet1.Range("AC:AC" & Lr).ClearContents
For i = 3 To Lr
Range("AC" & i).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-20]<>"""",COUNTIF(RC[-12]:RC[-1],""x""),"""")"
Range("AC" & i).Select
' Selection.AutoFill Destination:=Range("AC3:AC" & i)
'Range("AC3:AC" & i).Select
Next i
End With

Các Range bên trong block With chả cái nào có dấu chấm, vì vậy chúng mặc định là thuộc về ActiveSheet. Cái vụ With Sheet1 là thừa thải.


For i = 3 To Sheet1.Range("I" & Rows.Count).End(xlUp).Row
Cells(i, "AC").FormulaR1C1 = "=IF(RC[-20]<>"""",COUNTIF(RC[-12]:RC[-1],""x""),"""")"
Next i
Cells(i - 1, "AC").Select

Hàm CountIf là hàm tổng hợp. Xài cho cả một cột thì đương nhiên là chậm.

 

[SA_DQ]

@Tác giả bài đăng:
Sao bạn lại lắp công thức toàn cột (hình như là 'AC' thì phải) khi 1 cột nào đó trước nó không rỗng
Theo mình bạn nên tìm đúng số ô (trong vùng cần đếm) của 1 dòng thỏa điều kiện & ghi số liệu lên cột cần tìm mà thôi;
Ghi công thức theo mình thì nặng là phải rồi!

& khi xài VBA thì theo mình thì không đưa điều kiện 'không trống' vào công thức
Mà thêm điều kiện không trống này trong dòng lệnh như: Nếu ô điều kiện không trống thì đếm & ghi (còn trống thì thôi)

 

[Trần Văn Bình]

@Tác giả bài đăng:
Sao bạn lại lắp công thức toàn cột (hình như là 'AC' thì phải) khi 1 cột nào đó trước nó không rỗng
Theo mình bạn nên tìm đúng số ô (trong vùng cần đếm) của 1 dòng thỏa điều kiện & ghi số liệu lên cột cần tìm mà thôi;
Ghi công thức theo mình thì nặng là phải rồi!

& khi xài VBA thì theo mình thì không đưa điều kiện 'không trống' vào công thức
Mà thêm điều kiện không trống này trong dòng lệnh như: Nếu ô điều kiện không trống thì đếm & ghi (còn trống thì thôi)

Đúng vậy mình tìm với điều khiện khác rỗng. có lè vì lý do vậy mà chạy nặng
Chân thành cám ơn các bạn đã quan tâm và giúp mình

 

[Hoàng Tuấn 868]

Đúng vậy mình tìm với điều khiện khác rỗng. có lè vì lý do vậy mà chạy nặng
Chân thành cám ơn các bạn đã quan tâm và giúp mình

Bạn đưa file cụ thể lên có khi tham khảo thêm được một số đoạn code khác.

 

[SA_DQ]

Bạn đưa file cụ thể lên có khi tham khảo thêm được một số đoạn code khác.

Bạn chép bảng này vô Excel mà giúp em nó nè:

MÃ NV

HỌ VÀ TÊN

CV

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Ghi Kết quả

774

GPE_ 9

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

809

GPE_ 30

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

1440

GPE_ 4

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

1448

GPE_ 19

CT

x

x

x

x

x

x

x

x

x

x

x

x

2466

GPE_ 8

CT

x

x

x

x

x

x

x

x

x

x

x

x

2633

GPE_ 11

CT

x

x

x

x

x

x

x

x

x

x

x

x

2797

GPE_ 12

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

2832

GPE_ 18

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3205

GPE_ 22

TS

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3487

GPE_ 2

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3573

GPE_ 15

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3850

GPE_ 3

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3874

GPE_ 1

TS

x

x

x

x

x

x

x

x

x

3883

GPE_ 13

CT

x

x

x

x

x

x

x

x

x

3986

GPE_ 20

CT

x

x

x

x

x

x

x

x

x

4351

GPE_ 23

CT

x

x

x

x

x

x

x

x

x

4781

GPE_ 21

CT

x

x

x

x

x

x

x

x

x

4898

GPE_ 17

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

4921

GPE_ 24

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

4965

GPE_ 25

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5135

GPE_ 16

TV

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5325

GPE_ 5

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5337

GPE_ 26

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5369

GPE_ 14

CT

x

x

x

x

x

x

x

5434

GPE_ 7

TV

x

x

x

x

x

x

x

5435

GPE_ 6

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5436

GPE_ 10

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

Yêu cầu sẽ là: Đếm số lượng 'x' khi cột 'CV' không rỗng (hay ngược lại, nếu muốn)

 

[Hoàng Tuấn 868]

Bạn chép bảng này vô Excel mà giúp em nó nè:

MÃ NV

HỌ VÀ TÊN

CV

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Ghi Kết quả

774

GPE_ 9

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

809

GPE_ 30

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

1440

GPE_ 4

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

1448

GPE_ 19

CT

x

x

x

x

x

x

x

x

x

x

x

x

2466

GPE_ 8

CT

x

x

x

x

x

x

x

x

x

x

x

x

2633

GPE_ 11

CT

x

x

x

x

x

x

x

x

x

x

x

x

2797

GPE_ 12

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

2832

GPE_ 18

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3205

GPE_ 22

TS

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3487

GPE_ 2

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3573

GPE_ 15

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3850

GPE_ 3

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3874

GPE_ 1

TS

x

x

x

x

x

x

x

x

x

3883

GPE_ 13

CT

x

x

x

x

x

x

x

x

x

3986

GPE_ 20

CT

x

x

x

x

x

x

x

x

x

4351

GPE_ 23

CT

x

x

x

x

x

x

x

x

x

4781

GPE_ 21

CT

x

x

x

x

x

x

x

x

x

4898

GPE_ 17

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

4921

GPE_ 24

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

4965

GPE_ 25

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5135

GPE_ 16

TV

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5325

GPE_ 5

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5337

GPE_ 26

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5369

GPE_ 14

CT

x

x

x

x

x

x

x

5434

GPE_ 7

TV

x

x

x

x

x

x

x

5435

GPE_ 6

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5436

GPE_ 10

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

Yêu cầu sẽ là: Đếm số lượng 'x' khi cột 'CV' không rỗng (hay ngược lại, nếu muốn)

Anh bỏ công tạo dữ liệu thế này nhưng chưa chắc giống dữ liệu của chủ bài đâu anh.

 

[SA_DQ]

Giống thì không thể nào, nhưng giả lập thì đúng phóc đó nha!
Chỉ là chưa đúng cột thôi;
(/ì trái tim của macro là câu lệnh này:

ActiveCell.FormulaR1C1 = "=IF(RC[-20]<>"""",COUNTIF(RC[-12]:RC[-1],""x""),"""")"

Tâm thất thì cột 'AC'
Tâm nhỉ thì đâu trước đó 20 hay xung quanh đâu đó ô;
Nhưng cái đó người biết Code sẽ sửa được mà!


[Nói thêm] bảng đó do mình cắt dán từ 1 file khác & mòn chuột lôi kéo xíu là ra thôi!

 

[Hoàng Tuấn 868]

Giống thì không thể nào, nhưng giả lập thì đúng phóc đó nha!
Chỉ là chưa đúng cột thôi;
(/ì trái tim của macro là câu lệnh này:

ActiveCell.FormulaR1C1 = "=IF(RC[-20]<>"""",COUNTIF(RC[-12]:RC[-1],""x""),"""")"

Tâm thất thì cột 'AC'
Tâm nhỉ thì đâu trước đó 20 hay xung quanh đâu đó ô;
Nhưng cái đó người biết Code sẽ sửa được mà!không ý kiến ý cò gì cả.


[Nói thêm] bảng đó do mình cắt dán từ 1 file khác & mòn chuột lôi kéo xíu là ra thôi!

Nhưng em thấy chủ bài cũng thờ ơ với chính bài của mình thì phải, đến tên hàm ở tiêu đề còn viết sai, ngoài ra thấy lượn quanh suốt mà cũng không ý kiến ý cò gì cả.

 

[VetMini]

Nhưng em thấy chủ bài cũng thờ ơ với chính bài của mình thì phải, đến tên hàm ở tiêu đề còn viết sai, ngoài ra thấy lượn quanh suốt mà cũng không ý kiến ý cò gì cả.

Thớt nói là ghi record macro nhưng code thì sửa tùm lum. Chả biết cái nào đúng, cái nào do sửa.

 

[SA_DQ]

[Đăng lộn chuồng & xin lỗi các bác!]

 

[Trần Văn Bình]

Bạn chép bảng này vô Excel mà giúp em nó nè:

MÃ NV

HỌ VÀ TÊN

CV

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Ghi Kết quả

774

GPE_ 9

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

809

GPE_ 30

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

1440

GPE_ 4

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

1448

GPE_ 19

CT

x

x

x

x

x

x

x

x

x

x

x

x

2466

GPE_ 8

CT

x

x

x

x

x

x

x

x

x

x

x

x

2633

GPE_ 11

CT

x

x

x

x

x

x

x

x

x

x

x

x

2797

GPE_ 12

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

2832

GPE_ 18

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3205

GPE_ 22

TS

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3487

GPE_ 2

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3573

GPE_ 15

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3850

GPE_ 3

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

3874

GPE_ 1

TS

x

x

x

x

x

x

x

x

x

3883

GPE_ 13

CT

x

x

x

x

x

x

x

x

x

3986

GPE_ 20

CT

x

x

x

x

x

x

x

x

x

4351

GPE_ 23

CT

x

x

x

x

x

x

x

x

x

4781

GPE_ 21

CT

x

x

x

x

x

x

x

x

x

4898

GPE_ 17

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

4921

GPE_ 24

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

4965

GPE_ 25

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5135

GPE_ 16

TV

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5325

GPE_ 5

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5337

GPE_ 26

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5369

GPE_ 14

CT

x

x

x

x

x

x

x

5434

GPE_ 7

TV

x

x

x

x

x

x

x

5435

GPE_ 6

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

5436

GPE_ 10

CT

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

Yêu cầu sẽ là: Đếm số lượng 'x' khi cột 'CV' không rỗng (hay ngược lại, nếu muốn)

Hôm qua có bạn VetMini đã hướng dẫn này mình chỉ biết làm vậy