Nhập liệu từ form xuông sheet đúng vị trí và copy, insert dòng

[linhsuonghht]

- Chào các bác!
Mình chẳng biết j nhiều về VBA, nhờ siêu tầm và copy các code của các cao thủ để mình làm thành một file, nhưng hiện giờ file của mình chạy có nhiều cái chạy không được mong mọi người giúp đỡ.

 

[linhsuonghht]

không ai help mình hết vậy????????

 

[be_09]

Chạy File có chứ Macro:
Muốn chạy File có chứ Macro phải thực hiện như sau: bạn mở bất kỳ một File Excel nào cũng được, sau đó từ Menu, chọn Tools, chọn Visual Basic làm xuất hiện thanh công cụ Visual Basic.

​

Click chuột vào Security làm xuất hiện cửa sổ Security, chọn thẻ Security Level và chọn Medium. You can choose whether or not to run potentially unsafe macros, nhấn nút OK và lưu kết quả vừa thực hiện.
Lúc này bạn mở lại File có chứa Macro thì nó sẽ chạy như ý muốn, chúc bạn thực hiện thành công.

 

[ptm0412]

Bạn xem chỗ này:

     ActiveCell.Offset(0, 1).Range("A1").Select
     ActiveCell.Value = unitprice * quantity
     ActiveCell.Value = time_sl

1. xunitprice và xquantity chứ không phải unitprice và quantity
2. Vừa gán Amount xong gán time đè lên, thiếu dòng lệnh select ô kế.
3. code dài dòng quá, chỉ cần .Select chứ đâu cần .Range("A1").Select
4. Thậm chí không cần select, chỉ cần offset 1 số cột cần thiết rồi gán giá trị.

Gởi be09:
- File xlsm 2007 mà hướng dẫn menu của 2003
- Tác giả hỏi code chạy không đúng ý đồ, chứ không phải hỏi code không chạy

 

[linhsuonghht]

Bạn xem chỗ này:

     ActiveCell.Offset(0, 1).Range("A1").Select
     ActiveCell.Value = unitprice * quantity
     ActiveCell.Value = time_sl

1. xunitprice và xquantity chứ không phải unitprice và quantity
2. Vừa gán Amount xong gán time đè lên, thiếu dòng lệnh select ô kế.
3. code dài dòng quá, chỉ cần .Select chứ đâu cần .Range("A1").Select
4. Thậm chí không cần select, chỉ cần offset 1 số cột cần thiết rồi gán giá trị.

Gởi be09:
- File xlsm 2007 mà hướng dẫn menu của 2003
- Tác giả hỏi code chạy không đúng ý đồ, chứ không phải hỏi code không chạy

Cảm ơn bạn mình làm được rồi!