Nhấn phím tắt mà combobox không chạy.

[LuuAnh980]

Em có 1 Form nhập liệu, khi nạp dữ liệu đầy đủ vào Listbox2 (trong phần Cutting) nhấn Alt+X thì nạp dữ liệu vào Sheet!Cat.
Ví dụ như sau:
Gõ ngày 12/1 vào Date->Gas vào Machine->01235 vào Track No->2222 vào Job->18 vào RQ No-> 1015120 vào Code->gõ 2 vào Q'Ty nhấn Enter thì dữ liệu đập vào ListBox2, và lúc nhấn phím tắt Alt+X thì lại nhảy lên Cb_Machine. Em nghĩ có thể do lúc đó Cb_Machine setfocus, nhưng nếu vậy thì lại ở ListBox1 lại không sao. Em xin đưa hình minh họa và file.
Mở Form: Ctrl+q.
Code trong file có sự giúp đỡ của anh @HieuCD , mong các anh giúp đỡ cho Form chạy mượt.

 

[LuuAnh980]

Em thì cứ lấy code của các anh trên đây giúp ghép vào, chạy được thì chạy, còn không cứ nhờ tiếp, chứ có biết đâu.
Nhưng cứ khoái "hoành tá tràng" nên mới bị tổ trác.

 

[LuuAnh980]

Ngộ thiệt các anh ơi, sao cứ làm xong thấy chạy được rồi, chỉnh trong code một tý là lại lỗi combobox rỗng.
Đau đầu. Ví dụ thấy ghi vào sheet ngon rồi, nhưng sai vị trí cột, thế là chỉnh code cho đúng vị trí cột, mở lại file thì chạy lại lỗi combobox rỗng.

 

[ptm0412]

Tôi đang xem có thể lỗi do đâu, tình cờ thấy cái biến mIsShow đặt ra chả biết để làm gì mà tới cả chục sub lôi nó ra gán giá trị và ngó.

 

[ongke0711]

Ngộ thiệt các anh ơi, sao cứ làm xong thấy chạy được rồi, chỉnh trong code một tý là lại lỗi combobox rỗng.
Đau đầu. Ví dụ thấy ghi vào sheet ngon rồi, nhưng sai vị trí cột, thế là chỉnh code cho đúng vị trí cột, mở lại file thì chạy lại lỗi combobox rỗng.

Bây giờ bạn comment hết các dòng "On Error Resume Next" trong toàn bộ code đi rồi debug từ từ.

Mới bỏ cái là báo lỗi liền đây. Nó Failed rồi, lấy gì gán dữ liệu cho comboBox RQ.

 

[ptm0412]

Mới bỏ cái là báo lỗi liền đây. Nó Failed rồi, lấy gì gán dữ liệu cho comboBox RQ.

Có khi lỗi do chạy code khi đang đứng tại sheet2 mà mở form.

Tái tạo ra lỗi đây:

 

[ptm0412]

Đúng rồi, cha chả là đúng! Hình bài 45 lỗi khi đứng ở sheet Cat, hình bài 55 lỗi khi đứng ở sheet Xem

 

[ongke0711]

Tôi sửa cái dòng lệnh lỗi ở trên như này thì không báo lỗi.
(Mấy vụ tham chiếu range, cell cũng không rành lắm nên có thể nó dài dòng)

Code cũ:

arr = Sheet1.Range("A3", Range("C1000000").End(xlUp)).Value

==> Đổi sang code này:

arr = Sheet1.Range("A3", "C" & Sheet1.Range("C" & Rows.Count).End(xlUp).Row).Value

 

[ptm0412]

Tôi sửa cái dòng lệnh lỗi ở trên như này thì không báo lỗi.

đúng là chỗ này. Code lỗi do Range("C1000000").End(xlUp) không chỉ định sheet cho nó, nên mặc định sheet hiện hành.
Nguyên câu lệnh lấy range ô đầu A3 sheet này, ô cuối C78 sheet kia.
Tôi thì sửa thế này, để thấy rõ cái tật copy code mà không hiểu code



Cũng cùng 1 lỗi đó khi sửa lỗi trống combobox RQ, là lỗi trống combobox Code. Cách sửa giống vậy.



Ngoài ra tôi tô xanh lè thế này mà vẫn chạy được:

 

[ongke0711]

Một đống code lặp lại cho các comboBox với các sự kiện KeyUp, MouseDown...(như hình màu xanh bác ptm0412 đề cập ở trên), bạn nên viết nó thành cái Class rồi chỉ cần gọi ở sự kiện Form_Initialize cho nó gọn, đỡ rối. Giờ cứ mỗi comboBox phát sinh là phải copy code lặp lại y chang, có khi còn có sai sót do nhiều quá.

 

[ptm0412]

Một đống code lặp lại cho các comboBox với các sự kiện KeyUp, MouseDown...(như hình màu xanh bác ptm0412 đề cập ở trên), bạn nên viết nó thành cái Class rồi chỉ cần gọi ở sự kiện Form_Initialize cho nó gọn, đỡ rối. Giờ cứ mỗi comboBox phát sinh là phải copy code lặp lại y chang, có khi còn có sai sót do nhiều quá.

mIsShow khai báo và gán giá trị xong chả dùng làm gì, xóa hết quách cho trống.

 

[LuuAnh980]

Dạ em cám ơn thầy @ptm0412 và anh @ongke0711 đã giúp em giải quyết cái Form bị lỗi, qua hơn 60 bài mới thấy cái lỗi của em. Code đó là em nhờ 1 anh viết hộ, mà khi đưa file chỉ có 1 sheet duy nhất nên ảnh chỉ để Range, em có biết và chỉ định sheet1 đầu ngoặc ( , em cứ tưởng như vậy là mặc định chỉ định sheet1 rôi, ai ngờ trong ngoặc ( cũng phải chỉ định sheet1 cho C100000 nữa. Em thì cứ sưu tầm code trên GPE, và ghép vào file thôi, chứ anh @ongke0711 mà nói em viết Class module thì bó tay, à mà các anh ơi, sao code lưu Job và lưu cut chạy rồi mà thấy rỏ màn hình giựt, mặc dù em có cài Application SreenUpdating. Một lần nữa em Cám ơn thầy @ptm0412 và anh @ongke0711 nhiều.
Mong các anh hỗ trợ Form chạy cho tốt ạ.

 

[ptm0412]

Nói về tối ưu code, tôi không sửa nhưng chỉ ra chỗ không hợp lý và giải pháp thôi:
1. Tách riêng 2 sub create list cho RQ và Code thì có vẻ được rồi, nhưng sinh ra chuyện arr của sheet1 phải tạo nhiều lần. Nếu trong sự kiện của job (có arr sẵn), tạo list cho RQ luôn trong sự kiện thì không phải tạo arr lần 2. Tương tự là sự kiện của RQ.
2. Tạo sẵn 3 Dic để đó rồi mãi sau đó mới xài, Dic có giá trị rồi lại để đó, mãi sau đó mới xài; nên phải khai báo public. Phí của giời. Làm như (1) thì khi nào cần mới tạo Dic.
3. Khi vừa gán list cho combobox Job xong, gán luôn giá trị ban đầu cho nó = List(0), thế là 1 loạt sự kiện phía sau được kích hoạt.
4. Nếu chọn bằng phím mũi tên tức là kích hoạt KeyUp, KeyDown, các sự kiện phía sau cũng được chạy.

Làm được như vậy thì vừa nhanh vừa gọn code.

 

[LuuAnh980]

Thầy @ptm0412 nói thì em biết vậy thôi, chứ em mà viết code được như vậy " chết liên".

 

[ptm0412]

Thầy @ptm0412 nói thì em biết vậy thôi, chứ em mà viết code được như vậy " chết liên".

Phải học để viết chứ. Thoát khỏi kiếp u mê và thoát khỏi cảnh copy + hỏi + chờ đợi và cuối cùng là thất bại. Có khi phải chờ đến kiếp sau á.

 

[LuuAnh980]

Thầy @ptm0412 giúp em cho trót đi thầy.

 

[LuuAnh980]

Cám ơn thầy @ptm0412 , anh @HieuCD , anh @ongke0711 đã giúp em làm Form hoàn chỉnh.
Chân thành cám ơn các anh.!!!!