Anh chị giúp em với ạ :(( em bị lỗi "run time error 9' subscript out of range excel

[huuphuc2718]

Anh chị coi giúp em lúc emnhập dữ liệu xong bấm vô "mua hàng" thì nó lại bấm ra lỗi ạ. Mong anh chị giúp em.
Nếu em sửa được,cho em xin STK anh chị em chuyển khoản cho anh hoặc chị 50.000 ạ ( giúp em với

 

[SA_DQ]

Mình lại không thấy báo lỗi như bạn; Hay bạn đưa dòng bị lỗi lên DĐ xem sao?!

 

[batman1]

Nhấn "Mua Hàng" thì không thấy lỗi nhưng nhấn "Bán Hàng" thì có lỗi.
Macro cho nút "Bán Hàng"



Lưu ý:
1. Trong VBA tránh dùng chuỗi có dấu. Như bạn thấy trên hình ở máy tôi tên tập tin có chỗ là "Quan Lư Bán Hàng PKT.xlsm" lúc thì là "Qu?n Lư Bán Hàng PKT.xlsm", còn trong VBAProject lại là "Qu?n Lý Bán Hang PKT.xlsm".
Nên tránh dùng chuỗi có dấu ngoài bảng ANSI. Trong trường hợp của bạn là đang nói tới tập tin hiện hành, chứa code đang được thực thi. Vậy tập tin đó chính là ThisWorkbook. Tức nếu muốn thì dùng ThisWorkbook.Activate thôi. Tuy nhiên trong trường hợp của bạn thì tập tin chứa code đang thực thi đang Active nên khỏi phải dùng ThisWorkbook.Activate.

Tương tự bạn nhìn hình thì thấy là có Sheets("T?ng H?p").Select. Nhưng thực ra sheet có tên là "Tổng Hợp". Nên tránh dùng tiếng Việt, đặt tên "TongHop", "Tong_Hop" cũng được.

2. Tôi không hiểu dụng ý 2 dòng

ActiveSheet.Shapes.Range(Array("Rectangle 21")).Select
    Selection.OnAction = "Bán"

Hiện thời nút "Rectangle 21" đã đang được gán cho macro "Bán" rồi, vậy dụng ý 2 dòng trên là gì?

3. Tên các sub nên đặt không có dấu. "Sub Ban" là được.

4. Nhiều khi không bắt buộc, không nên dùng SELECT. 2 dòng

Range("G14").Select
    ActiveCell.FormulaR1C1 = "100"

có thể rút gọn thành

Range("G14").Value = 100

 

[TongDe]

Anh chị coi giúp em lúc emnhập dữ liệu xong bấm vô "mua hàng" thì nó lại bấm ra lỗi ạ. Mong anh chị giúp em.
Nếu em sửa được,cho em xin STK anh chị em chuyển khoản cho anh hoặc chị 50.000 ạ ( giúp em với

Record marco chưa chính xác
coi lại video và record lại macrro...
Tỉa bớt các dòng thừa ...

 

[huuthang_bd]

Hiện thời nút "Rectangle 21" đã đang được gán cho macro "Bán" rồi, vậy dụng ý 2 dòng trên là gì?

Cái này là do Record macro chứ không có dụng ý gì đâu anh. Cả mấy cáo Select cũng vậy .