0

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

我遇到的问题是，虽然所有代码都有效，但只有第一个组合框实际更新 - 除非我调用 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

衷心感谢！

4

1 回答 1

1

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

于 2013-08-06T07:12:53.123 回答