VBA Userform使用基于2个组合框选择的单元格值填充文本框

时间:2018-07-11 10:03:33

标签: excel-vba combobox userform

我正在尝试基于2个组合框选择填充用户窗体上的文本框?我找不到任何代码可以接近这个,我可以用1个组合框填充,但没有2个可以帮助任何人?

例如,如果combobox1 =单元格E3(时段1)和combobox2 =单元格E4(星期)在Textbox1中显示单元格值E6

enter image description here

enter image description here

如果有人可以帮助我,我将非常感激

1 个答案:

答案 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