Question

Click here to see the picture

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

所以这是场景：

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

点击 commandButton1后 ，

自动将文字“确定”添加到我之前输入的sheet2上代码（ QZ0821 ）旁边的 C3 sheet1以及如果我用另一个代码或值填写单元格B3（sheet1）。

所以每当我输入另一个代码时，例如QZ0822（sheet1），然后在我点击按钮后，它会自动在包含QZ0822（sheet2）的单元格旁边添加“Ok”。

我可以这样做吗？

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

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

1 个答案: