用户窗体运行时错误 380 - 无法设置行源属性 - 修复？

Question

代码在过去一年中一直运行良好。进行了一些编辑并扩展了一些数据 - 确保当时所有数据都排列正确。我开始使用它，但现在我收到以下错误

运行时错误 380：无法设置行源属性”

我已将其范围缩小到.RowSource = "VOLNAME2"，但我没有更改有关此数据的任何内容。

当您按下按钮以启动此用户窗体时，最初会出现错误，因此调试从newlog.show（单独的模块）开始。但是，我使用 F8 来突出显示上面的错误行。

我尝试重新定义名称管理器并重命名它。删了再重新输入。我看了其他一些答案，但看不到任何突出的答案。

Sub UserForm_Initialize()

Dim R As Range
Me.TextBox2.Locked = True
Me.TextBox3.Locked = True
Me.CommandButton1.Enabled = False      
With Me.ComboBox4
  .RowSource = "VOLNAME2"
  .MatchEntry = fmMatchEntryComplete
  .Style = fmStyleDropDownList
End With 

With Me.ComboBox1
  .RowSource = ""
  .MatchEntry = fmMatchEntryComplete
  .Style = fmStyleDropDownList
  For Each R In Range("'Database'!F4:F23")
    .AddItem R.Text
  Next
End With

With Me.ComboBox3
 .RowSource = ""
 .MatchEntry = fmMatchEntryComplete
 .Style = fmStyleDropDownList
 For Each R In Range("'Database'!F26:F51")
   .AddItem R.Text
  Next
End With

With Me.ComboBox2
 .RowSource = ""
 .MatchEntry = fmMatchEntryComplete
 .Style = fmStyleDropDownList
 For Each R In Range("'Database'!H3:H32")
   .AddItem R.Text
  Next
End With
End Sub

我希望定义的名称“volname2”填充组合框 4

Answer 1

您不能将这些的 rowSource 更新为直接值，它们需要一个范围或其他一些查找。 变化：

With Me.ComboBox4
  .RowSource = "VOLNAME2"
  .MatchEntry = fmMatchEntryComplete
  .Style = fmStyleDropDownList
End With 

以下选项之一：

Option - 1 清除列表添加请求的文本并设置索引以显示该值

ComboBox1.Clear 
ComboBox1.AddItem ("volname2")
ComboBox1.ListIndex = 0

选项 2 - 清除列表并将文本值设置为请求值。就个人而言，这是一个不好的选择，因为如果你想重新使用它，你必须用 .Text = "" 强行清除文本值。

ComboBox1.Clear 
ComboBox1.Text = "volname2"