VBA 仅将“一个工作表名称”返回到列表框中，用户表单正在初始化，但预计会有更多工作表

Question

Private Sub UserForm_Initialize()

 'declare the variable

 Dim Sh As Variant

 Dim cc As Variant

 cc = Sheet4.Range("C4").Value

 'for each loop to add sheets based on permission rank

 For Each Sh In ActiveWorkbook.Sheets

    'add only permitted sheet(ranking 1 to 6) and exclude settings sheet
    If Sh.Range("G1").Value >= cc And Sh.Name <> "settings" Then
    'add sheets to the list box
        Me.lstSheet.AddItem Sh.Name
    End If

Next Sh

End Sub

Answer 1

尝试在 Me.1stSheet.AddItem 之后添加 Me.Repaint

这将刷新表单。

考虑将 ListBox 变量名称也从 1stSheet 更改为 sheet1ListBox，以使其更具描述性且更易于调试。