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

Excel VBA用户表单基于2个组合框选择使用单元格值填充文本框,excel,vba,combobox,userform,Excel,Vba,Combobox,Userform,我正在尝试根据2个组合框选择填充userform上的文本框?我找不到任何代码来接近这一点,我可以填充1个组合框,但不是2个。有人能帮忙吗 示例:如果combobox1=单元格E3时段1&Combox2=单元格E4周,则在Textbox1中显示单元格值E6 如果有人能帮上忙,我会非常感激的将两个文本框集中到一个值,搜索解决了这个问题 Private Sub CommandButton1_Click() Dim Inp, Outp Dim Rng As Range Inp = T

我正在尝试根据2个组合框选择填充userform上的文本框?我找不到任何代码来接近这一点,我可以填充1个组合框,但不是2个。有人能帮忙吗

示例:如果combobox1=单元格E3时段1&Combox2=单元格E4周,则在Textbox1中显示单元格值E6


如果有人能帮上忙,我会非常感激的

将两个文本框集中到一个值,搜索解决了这个问题

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

组合框的值是什么?组合框1=时段1,时段2。。。。第13阶段,Combobox2=第1周、第2周、第3周和第4周您可以使用FoundRange=Range。查找以在工作表中搜索Combox1值。和FoundRange.Offset3,0代表一周,FoundRange.Offset3,1代表一周,等等。尝试一下,然后带着你的代码和一个特定的问题或你遇到的错误返回。听起来像这样,你必须列出所有的可能性,即Period1/周,周,等等。。。然后周期2/周1、周2等。。。如果这是您想要的,那么您可以使用标签而不是文本框,例如,将其命名为DisplayLabel1,然后声明:如果combobox1=单元格E3时段1&Combox2=单元格E4周,则DisplayLabel1.Caption=任何单元格地址内容都应该显示。值。。。然后是另一个if和另一个…在选择周/周期后,是否有选择单元格的模式?例如,如果选择了第1周,无论选择哪个时段,它都将始终是第6行的单元格吗?如果是,则可以在组合框中使用隐藏列,并在其中输入行/列编号。例如,周期1为第5列,第1周为第6行,偏移量为0。所以要选择的单元格是。单元格6,5。偏移量0,0