2017-06-23 16 views
0

Click here to see the pictureExcel宏在基于第一片

在具体的单元格的值不同的工作表添加一个单元格的值,我需要有人来帮我做这个场景在我的Excel 2007中:)

所以这里是情景:

  • 我输入QZ0821细胞B3(Sheet1中)
  • 我点击ŧ他CommandButton1 activeX按钮。 (Sheet1中)的CommandButton1的点击

后,

  • 添加文本“”自动细胞C3旁边Sheet 2上的代码(QZ0821)我以前在sheet1上输入过以及如果用另一个代码或值填写单元格B3(sheet1)。

因此,无论何时输入另一个代码,例如QZ0822(sheet1),然后单击按钮后,它会自动在包含QZ0822(sheet2)的单元格旁边添加“Ok”。

我可以这样做吗?

+0

是的,这是可能的。已经有一个答案可以为你做下面的确切的事情,你现在只需要钩住按钮点击事件。下次请添加一些代码并告诉我们您卡在哪里。 –

回答

0

Somehting like this?

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 
+0

你实际上可以把它放到Worksheet_Change事件中。然后你不需要每次按下按钮。 – Pearli