Thứ tự thực hiện trong đoạn mã (1 người xem)

[khunglongcodon]

Tại sao trong file này, em khai báo n = application.worksheetfunction.Counta(Range("D15000)) trước, rồi mới đưa dữ liệu vào Sheet tổng hợp. Thế mà khi kiểm tra n nó toàn hiện giá trị đếm sau khi đã đưa dữ liệu vào sheet tổng hợp. Anh chị nào chỉ em với ạ.

 

[concogia]

Tại sao trong file này, em khai báo n = application.worksheetfunction.Counta(Range("D15000)) trước, rồi mới đưa dữ liệu vào Sheet tổng hợp. Thế mà khi kiểm tra n nó toàn hiện giá trị đếm sau khi đã đưa dữ liệu vào sheet tổng hợp. Anh chị nào chỉ em với ạ.

Có phải bạn muốn đề cập đoạn này trong Sub "Nhap Lieu" của bạn

n = Application.WorksheetFunction.CountA(Range("b1:b5000"))

Mình thấy nó chạy đúng mà
Đoạn code của Sub NhapLieu có thể rút gọn lại như thế này cũng ổn

Public Sub NhapLieu()
    Sheets("Bang Tong Hop").[b10000].End(xlUp)(2).Resize(, 3) = Application.WorksheetFunction.Transpose(Sheets("Form").[b3:b5])
    Sheets("Form").[b3:b5].ClearContents
End Sub

Phần Số thứ tự sao bạn không dùng code đánh luôn mà lại sử dụng công thức nhỉ ?
Thân

 

[ndu96081631]

Tại sao trong file này, em khai báo n = application.worksheetfunction.Counta(Range("D15000)) trước, rồi mới đưa dữ liệu vào Sheet tổng hợp. Thế mà khi kiểm tra n nó toàn hiện giá trị đếm sau khi đã đưa dữ liệu vào sheet tổng hợp. Anh chị nào chỉ em với ạ.

Lý ra phải đếm từ cell D5 trở xuống, đằng này bạn đếm từ D1, hóa ra đếm luôn tiêu đề Số điện thoại à?

 

[TrungChinhs]

Sub NhapLieu()
    With Sheets("Form")
        Sheets("Bang Tong Hop").[b65000].End(3)(2).Resize(, 3) = Application.Transpose(.[b3:b5])
        .[b3:b5].ClearContents
        .[b3].Select
    End With
    With Sheets("Bang Tong Hop")
        Range(.[b5], .[b65000].End(3)).Offset(, -1) = Evaluate("Row(R:R)")
    End With
End Sub

Tôi nghĩ dùng Application là đủ không cần thêm WorksheetFunction

 

[khunglongcodon]

Xin cảm ơn ba anh nhiều ạ, em hiểu rồi. Hi hi.