[英]VBA Userform Populate textbox with cell value based on 2 combobox selections
将 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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.