Vba Excel宏根据第一张工作表中的特定单元格值在不同的工作表中添加单元格值

您好，我需要有人帮助我在Excel 2007上执行此方案：）

下面是一个场景：

• 在单元格B3中输入QZ0821（表1）
• 我单击命令按钮1activeX按钮。（第1张）

单击命令按钮1后

• 将文本“Ok”自动添加到表格2上我之前在表格1中输入的代码（QZ0821）旁边的单元格C3，以及如果我用另一个代码或值填写单元格B3（表格1）

因此，每当我输入另一个代码，例如QZ0822（sheet1），单击按钮后，它将自动在包含QZ0822（sheet2）的单元格旁边添加“Ok”

我可以这样做吗？

像这样的事情

Sub lookup()
    Dim strSearch As String
    Dim wks1 As Worksheet
    Dim wks2 As Worksheet

    Set wks1 = Sheets("Your Sheet 1") '<--- fill in your sheet name
    Set wks2 = Sheets("Your Sheet 2") '<--- fill in your sheet name

    strSearch = wks1.Range("B3").Value

    With wks2
        .Columns(2).Find(strSearch).Offset(0, 1).Value = "Ok"
    End With
End Sub

子查找（）
作为字符串的Dim stresearch
将wks1设置为工作表
将wks2设置为工作表
设置wks1=工作表（“您的工作表1”）“是，这是可能的。下面已经有了一个答案，它可以为您做完全相同的事情，您现在只需连接到button click事件。下次，请添加一些代码，并告诉我们您在哪里卡住了。您可以将其放入工作表更改事件中。那你就不必每次都按这个按钮了。