VBA 用户窗体使用基于 2 个组合框选择的单元格值填充文本框
VBA Userform Populate textbox with cell value based on 2 combobox selections
我正在尝试根据 2 个组合框选择填充用户窗体上的文本框?我找不到任何代码来接近这个我可以填充 1 个组合框但不能填充 2 谁能帮忙?
示例 combobox1 = 单元格 E3(第 1 期)& combobox2 = 单元格 E4(周)在 Textbox1 中显示单元格值 E6
如果有人能提供帮助我将不胜感激
将 2 个文本框集中到 1 个值并搜索解决了这个问题
Private Sub CommandButton1_Click()
Dim Inp, Outp
Dim Rng As Range
Inp = TextBox1.Value
With Sheets("2018 - 2019").Range("E2:H2")
Set Rng = .Find(what:=Inp, after:=.Cells(.Rows.Count, 1), LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Outp = Rng.Offset(5, 0).Value
TextBox2.Value = Outp
End If
End With
End Sub
我正在尝试根据 2 个组合框选择填充用户窗体上的文本框?我找不到任何代码来接近这个我可以填充 1 个组合框但不能填充 2 谁能帮忙?
示例 combobox1 = 单元格 E3(第 1 期)& combobox2 = 单元格 E4(周)在 Textbox1 中显示单元格值 E6
如果有人能提供帮助我将不胜感激
将 2 个文本框集中到 1 个值并搜索解决了这个问题
Private Sub CommandButton1_Click()
Dim Inp, Outp
Dim Rng As Range
Inp = TextBox1.Value
With Sheets("2018 - 2019").Range("E2:H2")
Set Rng = .Find(what:=Inp, after:=.Cells(.Rows.Count, 1), LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Outp = Rng.Offset(5, 0).Value
TextBox2.Value = Outp
End If
End With
End Sub