Tạo Combobox không hiển thị tên các sheets bị ẩn

2 Responses

1. hands says:

   26/05/2023 at 2:45 am

   Anh có thể thêm điều kiện trong vòng for each ws ….. của anh là

   If ws.Visible = xlSheetVisible Then 'tùy chọn của anh'
        Me.ComboBox1.AddItem ws.Name
    End If

   coi thế nào

   Cám ơn anh đã quan tâm,
   Tôi thử đủ cách nhưng chẳng được. anh có thể bỏ chút công làm với file tôi đính kèm xem thế nào.
   Xin lỗi làm anh phải mất thời gian.
   Cám ơn anh tôi đã làm được rồi.
   Xin được cám ơn anh rất nhiều

   Vậy là anh thử vẫn chưa đủ cách anh nhỉ.

   Vâng, tôi cũng có phần cẩu thả.
   Do tôi lơ đểnh đặt End If dưới Next ws nên nó báo lỗi.
   Thế là tôi làm đủ cách, mỗi cách càng đi xa hơn và luôn báo lỗi hoặc không được như yêu cầu.
   Đó đúng là một bài học tốt cho tôi.
   Rất cám ơn bạn Bùi Quang Thuận và bạn Hoàng Tuấn đã quan tâm đến vấn đề của tôi.
   Tôi đã đưa vào chương trình chính của tôi và mọi sự "trên cả tuyệt vời".
   Cám ơn hai anh thật nhiều.

   Reply
2. hands says:

   26/05/2023 at 2:46 am

   Vậy là anh thử vẫn chưa đủ cách anh nhỉ.

   Hihi. Anh có nói code giúp thành ra anh có thể tham khảo thêm code ở combobox1 như sau.

   Private Sub Worksheet_Activate()
       Dim Temp(), k&
       Me.ComboBox1.Clear
       Dim ws As Worksheet
       For Each ws In ThisWorkbook.Worksheets
           If ws.Visible = xlSheetVisible Then
               k = k + 1
               ReDim Preserve Temp(1 To k)
               Temp(k) = ws.Name
           End If
       Next ws
       ComboBox1.List = Temp
   End Sub
   Private Sub ComboBox1_Change()
       If ComboBox1.Value <> "" Then
           Worksheets(ComboBox1.Value).Select
       End If
   End Sub

   Các combobox tại sheet khác anh cũng có thể làm tương tự. Hi vọng sẽ giúp anh được chút gì đó

   Reply