繁体   English   中英

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

[英]VBA Userform Populate textbox with cell value based on 2 combobox selections

我正在尝试根据 2 个组合框选择在用户表单上填充文本框? 我找不到任何代码来接近这个我可以用 1 个组合框填充但不是 2 任何人都可以帮忙吗?

如果组合框 1 = 单元格 E3(期间 1)和组合框 2 = 单元格 E4(周)的示例在文本框 1 中显示单元格值 E6

在此处输入图片说明

在此处输入图片说明

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

将 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.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM