userform - 我有一个准备就绪的用户表单，但是当我尝试将其添加为加载项时，它不起作用。请帮忙！显示的错误是下标超出范围

Question

子表单加载（）

UserForm1.Show

结束子

私有子 UserForm_Initialize()

Dim nCom As Range
Dim dDate As Range
Dim ws As Worksheet
Set ws = Worksheets("Macro")

For Each nCom In ws.Range("Com_Name")
  With Me.ComboBox1
    .AddItem nCom.Value
    .List(.ListCount - 1, 1) = nCom.Offset(0, 1).Value
  End With
Next nCom

For Each dDate In ws.Range("Date1")
  With Me.ComboBox2
    .AddItem dDate.Value
  End With
Next dDate
Me.ComboBox1.SetFocus

结束子

这是我用来调用我的用户表单的代码

标签： userform