根据 Combox 选择的单元格填充 Userform 文本框
Populate Userform textbox based on cell selected by Combox
在我的 excel 文档中,我在两列中包含以下信息:
US Dollar (USD) 1
British Pound (GBP) 0.63
Guatemalan Quetzal (GTQ) 0.13
Honduras Lempira (HNL) 0.046
Other Please give factor
Other Please give factor
Other Please give factor
Other Please give factor
我有一个由第一列填充的组合框:
Private Sub UserForm_Initialize()
CurrencyList.List = Worksheets("MySheet").Range("A23:A30").Value
End Sub|
我想在下一列中使用货币换算自动填充文本框,因此当您 select 组合框中的货币时,它会自动填充文本框,因此您可以按照建议保留或更改它如果你希望。我在 mac 和 excel 2011。我遇到的所有解决方案似乎都适用于 windows,但我收到错误消息,说我调用的方法不存在。
这应该可以帮助您入门。它使用您的值(您已经拥有)填充表单组合框,并且 Vlookup 查找与组合框中的值关联的货币。仔细检查您的 ComboBox 和 TextBox 名称 属性 是否与您的代码匹配。
Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets("Sheet1").Range("A23:A30").Value
End Sub
Private Sub ComboBox1_Change()
TextBox1.Text = Application.VLookup(ComboBox1.Value, Worksheets("sheet1").Range("A23:B27"), 2, False)
End Sub
在我的 excel 文档中,我在两列中包含以下信息:
US Dollar (USD) 1
British Pound (GBP) 0.63
Guatemalan Quetzal (GTQ) 0.13
Honduras Lempira (HNL) 0.046
Other Please give factor
Other Please give factor
Other Please give factor
Other Please give factor
我有一个由第一列填充的组合框:
Private Sub UserForm_Initialize()
CurrencyList.List = Worksheets("MySheet").Range("A23:A30").Value
End Sub|
我想在下一列中使用货币换算自动填充文本框,因此当您 select 组合框中的货币时,它会自动填充文本框,因此您可以按照建议保留或更改它如果你希望。我在 mac 和 excel 2011。我遇到的所有解决方案似乎都适用于 windows,但我收到错误消息,说我调用的方法不存在。
这应该可以帮助您入门。它使用您的值(您已经拥有)填充表单组合框,并且 Vlookup 查找与组合框中的值关联的货币。仔细检查您的 ComboBox 和 TextBox 名称 属性 是否与您的代码匹配。
Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets("Sheet1").Range("A23:A30").Value
End Sub
Private Sub ComboBox1_Change()
TextBox1.Text = Application.VLookup(ComboBox1.Value, Worksheets("sheet1").Range("A23:B27"), 2, False)
End Sub