VBA-Excel ComboBox 具有条目列表，首先显示最后输入的值答案

【问题标题】：VBA-Excel ComboBox having list of entries showing the last entered values firstVBA-Excel ComboBox 具有条目列表，首先显示最后输入的值
【发布时间】：2014-03-17 22:30:46
【问题描述】：

我正在尝试将名称添加到组合框。我想首先查看最近输入的值列表。例如名称约翰山姆史密斯会

我想在组合框下拉列表中看到将要史密斯山姆约翰

我尝试使用范围函数设置范围，然后遍历范围内的单元格并将它们添加到组合框。

函数 Rangeform() 设置 Rangeform = ActiveSheet.[a1:a50000] 结束函数

对于 Rangeform 中的每个单元格 ComboBox8.AddItem 单元格下一个

有没有办法设置从最后使用的行到第一行的范围，然后向后循环？

【问题讨论】：

标签： vba excel combobox

【解决方案1】：

试试这个：

Dim lastrow As Long
Dim i As Long
'change Sheet1 to suit
With ThisWorkbook.Worksheets("Sheet1")
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    'backward loop
    For i = lastrow To 1 Step -1
        ComboBox8.AddItem .Range("A" & i)
    Next i
End With

【讨论】：

它给了我一个编译错误，无效或不合格的 .Range 参考
尝试使用正确的工作表名称明确地使用ComboBox8.AddItem ThisWorkbook.Worksheets("Sheet1").Range("A" & i)，而不是Sheet1