Nhờ giúp đỡ form nhập liệu! (1 người xem)

[vova2209]

form nhập liệu ở diễn đàn em đang chế lại về phù hợp với bảng biểu của mình:
em muốn lấy nguyên dữ liệu sheetTCVN cột C nhập vào cột AW sheetVoVa
đoạn code này em không hiểu nên ko sửa được
ActiveCell.Offset(, -2).Value = ActiveCell.row - 6
ActiveCell.Offset(, -1).Value = Me.ListBox1.Column(0)
ActiveCell.Value = Me.ListBox1.Column(1)
ActiveCell.Offset(, 1).Value = Me.ListBox1.Column(2)
code file gốc: http://www.giaiphapexcel.com/dienda...iếm-trong-form-đã-tạo-sẵn.130238/#post-817885

 

[SA_DQ]

Bạn cần tu luyện năng khiếu tự học thêm nữa;
Ví dụ: Để tìm hiểu các dòng lệnh trên có nghĩa là gì ta nên xài thêm ở mỗi dòng lệnh các câu lệnh tương ứng của MsgBox"?", như

 MsgBox ActiveCell.row - 6

hay

MsgBox Me.ListBox1.Column(1)

để biết thêm chi tiết (Mình gọi là nhờ ngay chính VBE dịch nghĩa cho ta.)
Xin lưu í với bạn khi dịch các dòng lệnh VBA sang tiếng mẹ đẽ: Dịch từ fải sang trái nhiều hơn là dịch suông từ trái.

Chúc tuần làm việc vui vẻ & thành công!

 

[vova2209]

Bạn cần tu luyện năng khiếu tự học thêm nữa;
Ví dụ: Để tìm hiểu các dòng lệnh trên có nghĩa là gì ta nên xài thêm ở mỗi dòng lệnh các câu lệnh tương ứng của MsgBox"?", như

 MsgBox ActiveCell.row - 6

hay

MsgBox Me.ListBox1.Column(1)

để biết thêm chi tiết (Mình gọi là nhờ ngay chính VBE dịch nghĩa cho ta.)
Xin lưu í với bạn khi dịch các dòng lệnh VBA sang tiếng mẹ đẽ: Dịch từ fải sang trái nhiều hơn là dịch suông từ trái.

Chúc tuần làm việc vui vẻ & thành công!

Vâng! sử dụng chức năng msg để tìm ra kết quả của dòng code. em sửa được rồi

ActiveCell.Value = Me.ListBox1.Column(0)

cảm ơn anh nhiều!