在用户窗体中,将文本框链接到与组合框相同的行,但不同的列

时间:2019-05-29 19:36:30

标签: excel vba combobox textbox userform

我创建了一个用户窗体,其中包含2个组合框,一个文本框和一个按钮,用于根据情况链接该组合框/文本框。

对于一种情况,如果组合框2在工作表MRFGLR范围列A中当前显示相同的文本/值,请更改AE列的值,并将文本框值与工作表MFGLR中的组合框2值放在同一行中。 在用户窗体中,将文本框链接到组合框的同一行,但列不同

我无法让代码找到与combobox2值相同的行,然后将textbox1值粘贴到右侧的31列中。到目前为止,这就是我所拥有的。

With Worksheets("MFGLR").Range("a1:a500")
Set C = .Find(ComboBox2.Value, LookIn:=xlValues)
If Not C Is Nothing Then
    firstAddress = C.Address
    Do
        C.Value = TextBox1.Value
        Set C = .FindNext(C)
    Loop While Not C Is Nothing
End If
End With

1 个答案:

答案 0 :(得分:0)

一种基于“ combobox2”中的值查找所需行的方法是使用Range.Find方法。 Here是Microsoft提供的有关如何使用该方法的文档。您将传递“ combobox2”中的值作为要查找的值。它还向您展示了如何在找不到所需的值时捕获错误(以我的经验,这种情况可能经常发生)。

Range.Find方法返回一个Range对象,它基本上是单元格的地址。从那里,您可以使用类似.Row的东西来查找所需的行,然后将其与列“ AE”结合使用。

让我知道这是否有帮助!祝你好运!