Mục đích

Tạo 1 sheet nhập dữ liệu như hình dưới với mục đích phần còn trống (F8:F10) sẽ reset sau mỗi lần nhập thông tin và ấn nút NHẬP.

Trong đó:
  • Mã khách hàng: Mỗi người một mã, để tránh trùng thì khởi tạo tự động theo nguyên tắc số lớn nhất của mã khách hàng hiện có cộng thêm 1 (vì đã có chức năng tìm kiếm để biết đã tồn tại KH đó hay chưa). 
  • Ngày bán: Dùng hàm TODAY() để khỏi nhập thủ công. 
  • Loại hàng và Giá: Sử dụng listbox và VLOOKUP để tham chiếu. 

Thực hiện

Tạo nút bấm và chèn đoạn code sau vào:

Private Sub Import_Click() Sheet2.[A65536].End(3).Offset(1).Resize(, 7) = Application.Transpose(Sheet1.[F7:F13].Value) End Sub

Giải thích:
  • Import: Tên properties của nút bấm
  • Sheet2: Là sheet muốn chứa dữ liệu
  • Resize(,7): Có 7 dòng cần nhập?
  • Sheet1.[F7:F13]: Form dữ liệu cần nhập nằm ở sheet 1 và từ cell F7:F13
Muốn reset các ô để sau khi nhấp nút NHẬP sẽ trống để nhập người khác thì thêm dòng sau vào (trước End Sub):

Sheets(“Form”).SelectRange(“F8:F10”).SelectSelection.ClearContentsRange(“B8”).Select

Trong đó:
  • Form: Là sheet chứa form nhập
  • F8:F10: Là khoảng dữ liệu cần reset