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

Question

点击这里查看图片

嗨，我需要有人来帮助我在Excel 2007上进行这种情况:)

所以这是场景：

• 我在单元格B3 （sheet1）中输入了QZ0821
• 我单击CommandButton1 activeX按钮。 （表Sheet 1）

单击commandButton1后，

• 将文本“ Ok ”自动添加到单元格C3中，紧挨我先前在sheet1上输入的sheet2上的代码（ QZ0821 ）旁边，以及是否用其他代码或值填充单元格B3（sheet1）。

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

我可以这样做吗？

Answer 1

这样的东西？

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