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