Excel VBA组合框仅在我运行sub两次时才会填充

Question

我在表单上有8个组合框，当用户选择这样做时，我希望用保存的值填充。

我遇到的问题是虽然代码全部只能在第一个组合框中实际更新 - 除非我再次调用sub（即用户只需再次单击命令按钮），然后所有组合框都会完美填充。

这不是复杂的代码（根本没有），但显然有一些我缺少的东西 - 我不确定为什么组合框都会在第二次运行sub时更新而不是第一次。有什么想法吗？

Dim loadlimit
Dim loadrow
Dim loadprev As Boolean
Dim l(8) As String
Dim i

i = 1

loadrow = 1
loadprev = False
loadlimit = lastrow(Sheet19)


Do Until loadrow > loadlimit
    If Cells(loadrow, 1).Value = geogselect.selectedind.Value Then
        loadprev = True
        l(1) = Cells(loadrow, 2).Value
        l(2) = Cells(loadrow, 3).Value
        l(3) = Cells(loadrow, 4).Value
        l(4) = Cells(loadrow, 5).Value
        l(5) = Cells(loadrow, 6).Value
        l(6) = Cells(loadrow, 7).Value
        l(7) = Cells(loadrow, 8).Value
        l(8) = Cells(loadrow, 9).Value
        geogselect.ComboBox1.Text = l(1)
        geogselect.ComboBox2.Text = l(2)
        geogselect.ComboBox3.Text = l(3)
        geogselect.ComboBox4.Text = l(4)
        geogselect.ComboBox5.Text = l(5)
        geogselect.ComboBox6.Text = l(6)
        geogselect.ComboBox7.Text = l(7)
        geogselect.ComboBox8.Text = l(8)
    End If
    loadrow = loadrow + 1
Loop

非常感谢！

Answer 1

感谢所有的帮助，在更新每个组合框之前告诉Excel setFocus解决了这个问题。