Liên kết các sheet thông qua combobox (1 người xem)

[ThanhLuanITC]

bạn nào biết liên kế các sheet thông qua combobox chỉ giúp mình với . Thanks

 

[Hai Lúa Miền Tây]

bạn nào biết liên kế các sheet thông qua combobox chỉ giúp mình với . Thanks

Liên kết các sheet qua combobox? là sao vậy bạn, là lấy dữ liệu của sheet khác cho vào combobox hay là lấy sheetname đưa vào combobox click chọn nó, nó sẽ chuyển đến sheet vừa chọn???

 

[khoavu87]

bạn nào biết liên kế các sheet thông qua combobox chỉ giúp mình với . Thanks

nói rõ chút chứ nhờ muốn liên kết kiểu gì? hay chỉ cần tạo cái nút trên sheet 1, sau đó nhấn cái nút đó thì nó chuyển qua sheet 2?
thế thì đơn giản quá.
ví dụ: tạo cái nút tren sheet 1
thì viết code thế này:

Private Sub CommandButton1_Click()
Sheet2.Select
End Sub

 

[ThanhLuanITC]

đúng rùi đó bạn, bạn chỉ rõ giùm mình đc không ? nhưng không phải là command mà là combo box bạn à, bắt đầu làm như nào bạn, mình vẽ đc combo ruì, nhưng sau đó thì chịu

 

[ThanhLuanITC]

- Trong ComboBox sẽ chứa tất cả các tên sheet
- Chọn tên sheet nào thì sẽ link đến sheet ấy

khi mình vẽ nó không có chứa tất cả các tên sheet bạn à. Bạn chỉ rõ giùm mình với, mình gà lắm, thanks

 

[Hai Lúa Miền Tây]

Insert 1 Userform, 1 combobox đặt tên cho combobox đó là cbxWs

Code trong Userform như sau

Private Sub cbxWs_Change()
  Sheets(Me.cbxWs.Value).Activate
  MsgBox "Ban dang o sheet " & cbxWs.Value

End Sub

Private Sub UserForm_Initialize()
 For i = 1 To Sheets.Count
    cbxWs.AddItem Sheets(i).Name
 Next i
    
End Sub

Bạn xem thêm file nhé

 

[ndu96081631]

Insert 1 Userform, 1 combobox đặt tên cho combobox đó là cbxWs

Code trong Userform như sau

Private Sub cbxWs_Change()
  Sheets(Me.cbxWs.Value).Activate
  MsgBox "Ban dang o sheet " & cbxWs.Value

End Sub

Private Sub UserForm_Initialize()
 For i = 1 To Sheets.Count
    cbxWs.AddItem Sheets(i).Name
 Next i
    
End Sub

Bạn xem thêm file nhé

trên UserForm ta làm dể hơn ăn khoai
Thế nếu là ComboBox trên sheet thì sao? Thử xem nào! Không dể nhai đâu nha!
Ẹc... Ẹc...

 

[Hoàng Trọng Nghĩa]

Cái đó thì nói làm gì
Vấn đề ở đây là THÁCH ĐỐ các bạn làm yêu cầu này bằng ComboBox trên sheet đấy!
Ẹc... Ẹc...
Yêu cầu:
- Code càng gọn càng tốt
- Chạy càng ít gây lỗi càng tốt
- Càng ít dùng đến vùng phụ càng tốt

Làm như vầy được không Thầy? Em thì ít kiến thức lắm, mong chỉ giáo ạ!

Private Sub Worksheet_activate()
  ComboBox1.Clear
 For i = 1 To Sheets.Count
    ComboBox1.AddItem Sheets(i).Name
 Next i
End Sub
 
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(Me.ComboBox1.Value).Activate
End Sub

 

[ndu96081631]

Làm như vầy được không Thầy? Em thì ít kiến thức lắm, mong chỉ giáo ạ!

Private Sub Worksheet_activate()
  ComboBox1.Clear
 For i = 1 To Sheets.Count
    ComboBox1.AddItem Sheets(i).Name
 Next i
End Sub
 
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(Me.ComboBox1.Value).Activate
End Sub

Nhìn sơ qua tôi nghi ngờ rằng code chẳng chạy được! Tuy nhiên, cứ đưa file lên đây test thử xem nào
---------------------------------------
Ah... ah... chính xác rồi!
Nghĩ cũng buồn cười, lúc nảy không tài nào dùng được phương thức AddItem (nên mới THÁCH ĐỐ)... Giờ lại dùng được!
Chả hiểu ra làm sao nữa!
Hic...

 

[Hoàng Trọng Nghĩa]

Nhìn sơ qua tôi nghi ngờ rằng code chẳng chạy được! Tuy nhiên, cứ đưa file lên đây test thử xem nào

Em gửi file lên đây ạ.

 

[sealand]

Thực ra, ở sheet cũng vậy thôi. Cái mấu chốt ở đây là chọn sự kiện nào để nạp Combo cho hợp lý mà thôi
Theo mình có 2 thời điểm phải nạp để số liệu trên Combo luôn cập nhật đó là:

1/ Workbook Open
2/Worksheet Active

Nếu đã nạp theo Each sheet thì có 1 cách nữa để chọn chuyển tới sheet được chọn đó là:

Sheets(ComboBox1.ListIndex + 1).Select

Các bạn tham khảo file kèm

 

[ndu96081631]

Thực ra, ở sheet cũng vậy thôi. Cái mấu chốt ở đây là chọn sự kiện nào để nạp Combo cho hợp lý mà thôi
Theo mình có 2 thời điểm phải nạp để số liệu trên Combo luôn cập nhật đó là:

1/ Workbook Open
2/Worksheet Active

Nếu đã nạp theo Each sheet thì có 1 cách nữa để chọn chuyển tới sheet được chọn đó là:

Sheets(ComboBox1.ListIndex + 1).Select

Các bạn tham khảo file kèm

Em thì cho rằng dùng sự kiện DropButtonClick mới hợp lý nhất ---> Có bấm vào mũi tên thì có nạp list, không bấm thì thôi
Đương nhiên, có xài thì người ta mới bấm chứ! Lúc ấy nạp dữ liệu cho ComboBox là không sai vào đâu được!

 

[sealand]

Em thì cho rằng dùng sự kiện DropButtonClick mới hợp lý nhất ---> Có bấm vào mũi tên thì có nạp list, không bấm thì thôi
Đương nhiên, có xài thì người ta mới bấm chứ! Lúc ấy nạp dữ liệu cho ComboBox là không sai vào đâu được!

Một chọn lựa quá hay ấy chớ. Nhưng với điều kiệm nạp dữ liệu ít thôi chứ nhiều dùng sự kiện này có cảm giác Combo bị "đơ" 1 chút vì chờ nạp.

 

[Hoàng Trọng Nghĩa]

Em thì cho rằng dùng sự kiện DropButtonClick mới hợp lý nhất ---> Có bấm vào mũi tên thì có nạp list, không bấm thì thôi
Đương nhiên, có xài thì người ta mới bấm chứ! Lúc ấy nạp dữ liệu cho ComboBox là không sai vào đâu được!

Em nghĩ cần phối hợp với nhiều hình thức nạp dữ liệu cho Cobobox, bởi có người thì bấm vào combobox, có người không bấm mà gõ chữ, nếu gõ mà combobox chưa nạp thì cũng không có ra phải không ạ?

 

[ndu96081631]

Em nghĩ cần phối hợp với nhiều hình thức nạp dữ liệu cho Cobobox, bởi có người thì bấm vào combobox, có người không bấm mà gõ chữ, nếu gõ mà combobox chưa nạp thì cũng không có ra phải không ạ?

Bạn tự tay gõ vào, đồng nghĩa bạn muốn "cái gì khác" chứ không cần đến list ---> Vậy nạp list làm chi? Ẹc... Ẹc...
---------------------------
Giờ thì mời xem câu đố này mới thú vị đây:
Đố vui về VBA - Nạp list cho ComboBox không qua vòng lập

 

[ThanhLuanITC]

Thanks các bạn nhiều.
Cho mình hỏi thêm, nếu mình đang ở sheet 1, mình có thể lấy dữ liệu của sheet 2, 3,4 .... thay cho dữ liệu sheet 1 bằng cách Combo Box không các bạn, nếu làm đc thì như nào vậy ạ? thanks

 

[ptm0412]

Bạn tự tay gõ vào, đồng nghĩa bạn muốn "cái gì khác" chứ không cần đến list ---> Vậy nạp list làm chi? Ẹc... Ẹc...
[/URL][/B]

Khi 1 combobox có list sẵn, thí dụ vài chục tên sheet, người ta muốn đến 1 sheet nà ođó mà người ta nhớ tên (mang máng), người ta gõ vài ký tự, combobox sẽ gợi ý ngay cho 1 tên sheet, enter là chuyển đến sheet đó ngay. Có khi nhanh hơn là click combobox và kéo thanh cuộn.

 

[ThanhLuanITC]

trả lời giùm mình câu kia với, mình đang cần

 

[Hai Lúa Miền Tây]

Thanks các bạn nhiều.
Cho mình hỏi thêm, nếu mình đang ở sheet 1, mình có thể lấy dữ liệu của sheet 2, 3,4 .... thay cho dữ liệu sheet 1 bằng cách Combo Box không các bạn, nếu làm đc thì như nào vậy ạ? thanks

Câu hỏi của bạn chưa rõ ràng, bạn đợi trả lời chắc là hơi lâu đấy

 

[vanthutb]

Xin chào các bạn tôi download được file nhập xuất hàng (NXHangHoa_New),tôi rất muốn làm nút bấm như cột G và cột J của Shêt Nhậtký NX.
Rất mong các bạn hướg dẫn cụ thể. Xin cảm ơn
Tôi không biết cách đính file nhờ các bạn Search giúp nhé.

 

[thangnguquen]

Bạn có thể chỉ cách tạo Combo box được không ?
Tks nhìu.

 

[Hungyen00]

Em không làm đu­­o­c hu­o­ng dẫn em cụ thể đu­o­c ko ạ

 

[lehoangminh19791991]

Giúp đỡ dùm nhé sư huynh
acc : admin
pass : admin
Nhờ sư huynh xử lý giúp dùm đệ nhé
đệ đang cố gắng học của mấy sư huynh