Có thể viết code cho yêu cầu dưới đây được không?

[Hoàng Trọng Nghĩa]

TRONG FORM, Ở NÚT GHI TÔI CÓ VIẾT CÂU LỆNH NHƯ BÊN DƯỚI​

KHI SỐ RECORDS TĂNG LÊN, NÓ SẼ GHI TIẾP THEO SAU.LÀM THẾ NÀO KHI TÔI XÓA MỘT (HOẶC TẤT CẢ) RECORD THÌ Ô MyRecordTỰ ĐỘNG CẬP NHẬT VÀ ĐẾM THEO TỔNG SỐ RECORDS CÒN HIỆN DIỆN?CÁC CHUYÊN GIA CÓ THỂ VIẾT CODE CHO YÊU CẦU TRÊN ĐƯỢC KHÔNG?Private Sub NutThu_Click() If XTenKhachHang = "" Then MsgBox "Phai nhap ten Khach Hang", , "minhthien321": Exit Sub End IfSheets("KhachHang").Select: Range("a3").SelectActiveCell.Offset(Range("MyRecord").Value, 0).Range("A1").SelectActiveCell.Offset(0, 0).Range("A1").Select: ActiveCell.Value = XTenKhachHangRange("MyRecord").Select: ActiveCell.Value = ActiveCell.Value + 1XTenKhachHang = ""End Sub

Bạn vui lòng đừng viết chữ hoa trong toàn cả bài như thế này nữa.

 

[ndu96081631]

Trong form, ở nút ghi tôi có viết câu lệnh như bên dưới
Khi số records tăng lên, nó sẽ ghi tiếp theo sau:

Private Sub NutThu_Click()
    If XTenKhachHang = "" Then
        MsgBox "Phai nhap ten Khach Hang", , "minhthien321": Exit Sub
    End If
   Sheets("KhachHang").Select: Range("a3").Select
   ActiveCell.Offset(Range("MyRecord").Value, 0).Range("A1").Select
   ActiveCell.Offset(0, 0).Range("A1").Select: ActiveCell.Value = XTenKhachHang
   Range("MyRecord").Select: ActiveCell.Value = ActiveCell.Value + 1
   XTenKhachHang = ""
End Sub

Làm thế nào khi tôi xóa một (hoặc tất cả) các record thì ô myrecord tự động cập nhật và đếm theo tổng số records còn hiện diện?
Các chuyên gia có thể viết code cho yêu cầu trên được không?
(đọc bài của bạn thấy chóng mặt quá... mạn phép dịch từ tiếng Việt sang.. tiếp Việt lại cho "đồng bào" cùng hiểu)

 

[Hoàng Trọng Nghĩa]

Mình hỏi cũng mấy ngày rồi mà chưa thấy được giúp đỡ, chắc không có giải pháp quá!

 

[cadafi]

TRONG FORM, Ở NÚT GHI TÔI CÓ VIẾT CÂU LỆNH NHƯ BÊN DƯỚI​

KHI SỐ RECORDS TĂNG LÊN, NÓ SẼ GHI TIẾP THEO SAU.LÀM THẾ NÀO KHI TÔI XÓA MỘT (HOẶC TẤT CẢ) RECORD THÌ Ô MyRecordTỰ ĐỘNG CẬP NHẬT VÀ ĐẾM THEO TỔNG SỐ RECORDS CÒN HIỆN DIỆN?CÁC CHUYÊN GIA CÓ THỂ VIẾT CODE CHO YÊU CẦU TRÊN ĐƯỢC KHÔNG?Private Sub NutThu_Click() If XTenKhachHang = "" Then MsgBox "Phai nhap ten Khach Hang", , "minhthien321": Exit Sub End IfSheets("KhachHang").Select: Range("a3").SelectActiveCell.Offset(Range("MyRecord").Value, 0).Range("A1").SelectActiveCell.Offset(0, 0).Range("A1").Select: ActiveCell.Value = XTenKhachHangRange("MyRecord").Select: ActiveCell.Value = ActiveCell.Value + 1XTenKhachHang = ""End Sub

Vấn đề này không cần viết code.
Ô A1, bạn gõ công thức:

A1 = COUNTA(A3:A65536)

Và dĩ nhiên bạn nên bỏ luôn đoạn code update ô A1 [Range("MyRecord")] đi luôn.