Giúp mình cải tiến code để Activate Sheet trên Listbox Userform với ạ.

[vitcon01]

Chào mọi người, lại là mình đây thằng lọ mọ tự học VBA. Hiện tại mình có trường hợp này, mình dùng C5:C10 làm danh sách tên sheet và đưa vào mảng sau đó gán mảng vào listbox, ví dụ trên listbox và click vào "Xác nhận" thì sẽ Activate Sheet ra sheet "Trang_tính100" ạ. Cảm ơn mọi người đã xem bài ạ.

 

[snow25]

Chào mọi người, lại là mình đây thằng lọ mọ tự học VBA. Hiện tại mình có trường hợp này, mình dùng C5:C10 làm danh sách tên sheet và đưa vào mảng sau đó gán mảng vào listbox, ví dụ trên listbox và click vào "Xác nhận" thì sẽ Activate Sheet ra sheet "Trang_tính100" ạ. Cảm ơn mọi người đã xem bài ạ.
View attachment 299208

Tại sao không lấy luôn danh sách tên sheet bằng cách duyệt qua các sheets rồi đưa vào listbox.Nó không bị sai tên bạn đặt trên sheets sai tên khi chọn đến nó sẽ báo lỗi.Mà cài đặt thêm cái phím tắt để mở form cần gì cứ phải về sheets 1 rồi mở cho mất công.

 

[vitcon01]

Tại sao không lấy luôn danh sách tên sheet bằng cách duyệt qua các sheets rồi đưa vào listbox.Nó không bị sai tên bạn đặt trên sheets sai tên khi chọn đến nó sẽ báo lỗi.Mà cài đặt thêm cái phím tắt để mở form cần gì cứ phải về sheets 1 rồi mở cho mất công.

Dạ e làm theo yêu cầu ạ, chứ ai lại muốn làm khó mình chi ạ. Cảm ơn a đã góp ý.

 

[ptm0412]

Tạo list trên sheet như sau:



Trên form: Listbox column Count = 2

Code Initialize:

        sArr = .Range("C5:D" & lrData)

Code xác nhận:

Set ws = ThisWorkbook.Worksheets(.lstData.Column(1))

 

[vitcon01]

Dạ e cảm ơn thầy. Dạ cho mảng bắt buộc chỉ là cột C5:C & lrData thôi thầy ạ. Có cách nào không vậy thầy ?.

 

[ptm0412]

Dạ e cảm ơn thầy. Dạ cho mảng bắt buộc chỉ là cột C5:C & lrData thôi thầy ạ. Có cách nào không vậy thầy ?.

Không.
Nếu không có cột D thì làm sao biết Sheet1 tương ứng với cái quái gì? Ai bắt buộc chuyện vô lý như vậy thì mắng cho 1 trận.