用户表单组合框仅采用第一个值 - Excel VBA

Question

我设置了一个包含 ComboBox 的用户表单。 ComboBox 填充了来自动态命名范围“List1”的值..一切都很好..当我从列表中选择第一个值时，它可以工作并且我可以完成我的任务..但是当我从列表中选择另一个值时该值消失，组合框值变为空.. 这是代码：

Private Sub ComboBox1_Change()
ComboBox1.RowSource = "'[" & ActiveWorkbook.Name & "]DATA'!List1"
ComboBox1.DropDown
Worksheets("TEMP").Range("A3").Value = ComboBox1.Value
End Sub

谁能给我一个解决方案..

更新： 我按照本教程中的说明进行操作..但我是在用户表单中进行的： http://trumpexcel.com/2013/10/excel-drop-down-list-with-search-suggestions

Answer 1

我无法让它在单元格 A3 中显示为空白 - 一切正常，但我必须在组合框中键入才能显示值（即触发更改事件）。还可以尝试将ActiveWorkbook 更改为ThisWorkbook（包含代码的书）。

第一次打开表单时尝试填充组合框：

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "'[" & ActiveWorkbook.Name & "]DATA'!List1"
End Sub

Private Sub ComboBox1_Change()
    Worksheets("TEMP").Range("A3").Value = ComboBox1.Value
End Sub

Answer 2

主要问题：组合框将根据所选项目更改其值

选择项目 5 -> 项目 5 被选中（如果值改变） 如果源已更改（不存在第 5 项或有空字符串），则该框将为空。你没有选择一个值！试试这样：

Private Sub UserForm_Initialize()
  Dim ListCB As Variant, TmpText As String
  If Not IsArray(Sheets("Data").Range(Names("List1"))) Then
    temptext = Worksheets("TEMP").Range("A3").Value
    Worksheets("TEMP").Range("A3").Value = ""
  End If
  ListCB = Sheets("Data").Range(Names("List1"))
  If Len(temptext) Then Worksheets("TEMP").Range("A3").Value = temptext
  ComboBox1.List = ListCB
End Sub

ListCB 不会在选择项目时更改 -> 您的组合框保持原样。

编辑：
试试这个方法：

Dim ListCB As Variant

Private Sub UserForm_Initialize()
  Dim TmpText As String
  If Not IsArray(Sheets("Data").Range(Names("List1"))) Then
    temptext = Worksheets("TEMP").Range("A3").Value
    Worksheets("TEMP").Range("A3").Value = ""
  End If
  ListCB = Sheets("Data").Range(Names("List1"))
  If Len(temptext) Then Worksheets("TEMP").Range("A3").Value = temptext
  GetCBList
End Sub

Sub GetCBList()
  Dim b As Variant, i As Long
  Dim a() As Variant: ReDim a(UBound(ListCB))
  For Each b In ListCB
    If Len(b) Then
      If InStr(1, b, ComboBox1.Value, vbTextCompare) > 0 Or ComboBox1.Value = "" Then: a(i) = b: i = i + 1
    End If
  Next
  If i > 0 Then ReDim Preserve a(i - 1)
  ComboBox1.List = a
End Sub

Private Sub ComboBox1_Change()
  GetCBList
  ComboBox1.DropDown
  Worksheets("TEMP").Range("A3").Value = ComboBox1.Value
End Sub

注意：Dim ListCB As Variant 需要在子/函数之外（在这种形式中应该是第一行）。用此代码替换 Private Sub UserForm_Initialize() 和 Private Sub ComboBox1_Change() 并检查是否是您想要的。