Question

我正在创建一个用于库存电子表格的用户界面。在此示例中，我尝试显示所选用户的详细信息以进行编辑或删除。

我打算使用一个循环遍历一列用户名，当它点击所选用户名时停止，并使用从电子表格中获取的值填充显示的实体（这些详细信息与用户名在同一行）

以下是代码的示例。

Dim nameRange As Range
Set nameRange = Range("A2:A100")

For Each x In nameRange
    If x = UserFrameUserDropdown.Value Then
        UserFrame_FName.Value = **<code to go here>**
        UserFrame_LName.Value = **<code to go here>**
        UserFrame_Country.Value = **<code to go here>**
        UserFrame_State.Value = **<code to go here>**
        UserFrame_Position.Value = **<code to go here>**
        Exit Sub
    End If
Next

感谢任何帮助。

Answer 1

如果要填充到工作表中的数据整齐地位于用户名列旁边的表中，则可以使用offset将数据放入

Dim nameRange As Range
Set nameRange = Range("A2:A100")

For Each x In nameRange
    If x = UserFrameUserDropdown.Value Then
        UserFrame_FName.Value = x.offset(0, 1)
        UserFrame_LName.Value = x.offset(0, 2)
        UserFrame_Country.Value = x.offset(0, 3)
        UserFrame_State.Value = x.offset(0, 4)
        UserFrame_Position.Value = x.offset(0, 5)
        Exit Sub
    End If
Next

这假设您的Fname，Lname，Country，State和Position的数据位于与用户名相关的行的B，C，D，E和F列中

使用基于下拉选择excel的电子表格数据填充文本框

1 个答案: