Excel VBA用户表单基于2个组合框选择使用单元格值填充文本框
我正在尝试根据2个组合框选择填充userform上的文本框?我找不到任何代码来接近这一点,我可以填充1个组合框,但不是2个。有人能帮忙吗 示例:如果combobox1=单元格E3时段1&Combox2=单元格E4周,则在Textbox1中显示单元格值E6Excel 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
如果有人能帮上忙,我会非常感激的将两个文本框集中到一个值,搜索解决了这个问题
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