我正在尝试基于2个组合框选择填充用户窗体上的文本框?我找不到任何代码可以接近这个,我可以用1个组合框填充,但没有2个可以帮助任何人?
例如,如果combobox1 =单元格E3(时段1)和combobox2 =单元格E4(星期)在Textbox1中显示单元格值E6
如果有人可以帮助我,我将非常感激
答案 0 :(得分:1)
将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