Question

我想知道它是否可以在Excel VBA中使用以下内容。

我有一个带有文本框的表单，当我在该文本框中输入一定数量（唯一编号）时，我想在特定的工作表和列中搜索该编号。

当找到例如单元格“A5”的那个数字时，我想将单元格“A6”复制到该表单中的文本框中。并在另一个文本框中的“A7”中复制。等等。

先谢谢你了！

Answer 1

为了证明这一点，你应该创建：一个按钮（CommandButton1）一个文本框（TextBox1）和标签（Label1）。

A列会有数字， B列将具有任何内容。

现在点击按钮，显示B栏上的相应内容。如果没有找到条目，＆＃34;找不到匹配项＆＃34;显示。

Option Explicit

Private Sub CommandButton1_Click()

    ' decleration
    Dim row As Integer
        row = 1

    ' sheet name where data is
    Sheets("Sheet4").Select

    ' search column A for match
    Do While Range("A" & row).Value <> ""

        ' disply content if match found
        If Range("A" & row).Value = TextBox1.Text Then

            ' display
            Label1.Caption = Range("B" & row).Value

            ' exit loop because match is found
            Exit Do

        End If

        ' next entry
        row = row + 1

    Loop

    ' no entry found
    If Range("A" & row).Value = "" Then
        Label1.Caption = "No match found"
    End If

End Sub

我希望这能帮助你实现所需。

编辑：您可以随时更改要显示的内容，例如，您决定在找到数据的位置下方显示C列或1行，等等。

Excel VBA - 搜索列中的数字并复制各种文本框中的相邻单元格

1 个答案: