Tạo code đếm tự động theo điều kiện (1 người xem)

[satthuvae]

Em chào các Anh/Chị
Em đang có thắc mắc vướng về tạo code tự động đếm số dòng và số tiền. Em gửi File đính kèm và nội dung chi tiết.
Mọi người xem giúp em có thể tạo code tự động không à.
Em xin cám ơn.

 

[Ba Tê]

Em chào các Anh/Chị
Em đang có thắc mắc vướng về tạo code tự động đếm số dòng và số tiền. Em gửi File đính kèm và nội dung chi tiết.
Mọi người xem giúp em có thể tạo code tự động không à.
Em xin cám ơn.

Hàm Excel cũng tính được, cần gì code.
Cứ CountIf() và SumIf() mà làm tới thôi.
--------------------------
Chẳng biết kết quả mẫu của bạn làm cách nào mà có số liệu như vậy.

 

[satthuvae]

Hàm Excel cũng tính được, cần gì code.
Cứ CountIf() và SumIf() mà làm tới thôi.
--------------------------
Chẳng biết kết quả mẫu của bạn làm cách nào mà có số liệu như vậy.

Cám ơn Anh Ba Tê, Anh ơi, kết quả của anh khác với của em. Anh xem lại giùm em với.

 

[Let'GâuGâu]

Cám ơn Anh Ba Tê, Anh ơi, kết quả của anh khác với của em. Anh xem lại giùm em với.

từ dòng 880 trở đi, số liệu của bạn lẫn lộn text và number

 

[Ba Tê]

Cám ơn Anh Ba Tê, Anh ơi, kết quả của anh khác với của em. Anh xem lại giùm em với.

Bạn cảm ơn Let'GâuGâu đã phát hiện lỗi dữ liệu của bạn đi.

 

[sonlaquehuong]

Bác Ba tê nói chuẩn với bài của bạn satthuvae chỉ cần dùng hàm CountIf và hàm Sumif là ok.

 

[satthuvae]

Bạn cảm ơn Let'GâuGâu đã phát hiện lỗi dữ liệu của bạn đi.

Cám ơn Anh Ba Tê và mọi người đã giúp đỡ.

 

[satthuvae]

Bạn cảm ơn Let'GâuGâu đã phát hiện lỗi dữ liệu của bạn đi.

Anh Ba Tê ơi, cho em hỏi, bạn Let'GâuGâu bảo em do bị lẫn giữa dạng number và text. Anh làm cách nào mà nhanh khi định dạng tất cả về dạng text ah. Chứ ngồi mà gõ dấu ' và số đó thành text thì lâu lắm. Anh chỉ bảo giúp em với.

 

[satthuvae]

Thử xài hàm Text xem

 =Text(A1,0)

sau đó paste value kết quả lại vào cột ban đầu luôn, và cột này định dạng là text luôn xem.

Cám ơn anh, hình như không được anh à.

 

[satthuvae]

Thử xài hàm Text xem

 =Text(A1,0)

sau đó paste value kết quả lại vào cột ban đầu luôn, và cột này định dạng là text luôn xem.

Em bị nhầm, xin lỗi nhé, cách của anh được à. Nhanh lắm làm em cứ toàn làm bằng thủ công. Xin cám ơn.

 

[Ba Tê]

Anh Ba Tê ơi, cho em hỏi, bạn Let'GâuGâu bảo em do bị lẫn giữa dạng number và text. Anh làm cách nào mà nhanh khi định dạng tất cả về dạng text ah. Chứ ngồi mà gõ dấu ' và số đó thành text thì lâu lắm. Anh chỉ bảo giúp em với.

Viết 1 đoạn code ngắn để chuyển, ai đâu ngồi gõ từng ô.
Ví dụ thế này cho file bài trên.

Public Sub Huhu()
Dim Arr(), I As Long
Arr = Range([A2], [A65536].End(xlUp)).Resize(, 2).Value
For I = 1 To UBound(Arr, 1)
    Arr(I, 1) = "'" & Arr(I, 1)
    Arr(I, 2) = "'" & Arr(I, 2)
Next I
[A2:B2].Resize(I - 1) = Arr
End Sub

 

[satthuvae]

Viết 1 đoạn code ngắn để chuyển, ai đâu ngồi gõ từng ô.
Ví dụ thế này cho file bài trên.

Public Sub Huhu()
Dim Arr(), I As Long
Arr = Range([A2], [A65536].End(xlUp)).Resize(, 2).Value
For I = 1 To UBound(Arr, 1)
    Arr(I, 1) = "'" & Arr(I, 1)
    Arr(I, 2) = "'" & Arr(I, 2)
Next I
[A2:B2].Resize(I - 1) = Arr
End Sub

Cám ơn anh, Ba Tê nhiều à.