Ẩn các tên sheet hiện ra trong listbox (1 người xem)

[tu205489039]

Chào mọi người, mình có 1 file ví dụ. Giả sử khi mình nhấn button 1, hiện lên 1 user form. Nhưng trong user form này sẽ không hiện các sheet có dấu "." (dấu chấm) trong tên sheet. (Như hiện tại thì user form hiện tất cả các sheet trong file).
Một vấn đề nữa, thay vì listbox kéo xuống như hiện tại, mình có cách nào tạo listbox kéo ngang không vậy mọi người?
Mình xin cảm ơn.

 

[chucuoi92]

Chào mọi người, mình có 1 file ví dụ. Giả sử khi mình nhấn button 1, hiện lên 1 user form. Nhưng trong user form này sẽ không hiện các sheet có dấu "." (dấu chấm) trong tên sheet. (Như hiện tại thì user form hiện tất cả các sheet trong file).
Một vấn đề nữa, thay vì listbox kéo xuống như hiện tại, mình có cách nào tạo listbox kéo ngang không vậy mọi người?
Mình xin cảm ơn.

Nếu muốn ẩn các sheet đó thì có thể sửa thế này:
và nếu muốn kéo ngang thì dùng listView

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If sh.Name = "Tong hop" Or sh.Name Like "*.*" Then
     Else
     LstDS.AddItem sh.Name
     Me.ListView1.ListItems.Add , , sh.Name
    End If
Next sh
End Sub

 

[Hoang2013]

Trong tên các trang tính thân iêu của bạn hoàn toàn không nên xài dấu chấm "."; Bộ hết thứ để xài rồi hay sao vậy, như '_',. . . .

 

[tu205489039]

Nếu muốn ẩn các sheet đó thì có thể sửa thế này:
và nếu muốn kéo ngang thì dùng listView

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If sh.Name = "Tong hop" Or sh.Name Like "*.*" Then
     Else
     LstDS.AddItem sh.Name
     Me.ListView1.ListItems.Add , , sh.Name
    End If
Next sh
End Sub

sao file mình tải xuống nó báo lỗi ta

 

[tu205489039]

Trong tên các trang tính thân iêu của bạn hoàn toàn không nên xài dấu chấm "."; Bộ hết thứ để xài rồi hay sao vậy, như '_',. . . .

Thực ra thì bất kì dấu nào cũng được bạn, do mình hay dùng dấu "." thôi )

 

[chucuoi92]

Thực ra thì bất kì dấu nào cũng được bạn, do mình hay dùng dấu "." thôi )

Có thể máy tính của bạn không dùng được listView.
Bạn có thể thay đoạn code vào sheet cũ và bỏ phần:
Me.ListView1.ListItems.Add , , sh.Name đi là được

 

[tu205489039]

Có thể máy tính của bạn không dùng được listView.
Bạn có thể thay đoạn code vào sheet cũ và bỏ phần:
Me.ListView1.ListItems.Add , , sh.Name đi là được

mình cảm ơn bạn nhé

 

[Hoang2013]

Thực ra thì bất kì dấu nào cũng được bạn, do mình hay dùng dấu "." thôi )

Nhớn rồi, đừng chơi trò bập bênh nữa! Dễ té lắm!