從另一張紙上識別單擊形狀的名稱

Question

我在紙張1和紙張2上工作，並且在兩張紙中都有包含代碼的形狀。表單1中的形狀ID爲「RUN 1」，表單2中爲「EQ-1」。我已經有一個代碼可以識別我在sheet1/sheet2上點擊過的形狀ID。但是代碼調試的解釋是「找不到具有指定名稱的項目」。謝謝。請幫助:) 此代碼必須位於板材2

sub x() 

'the first trial 
If Sheet1.Shapes(Application.Caller).Name = "RUN 1" Then Sheet2.Cells(1, 2) = "x" 
If activesheet.Shapes(Application.Caller).Name = "EQ-1" Then Sheet2.Cells(1, 2) = "x" 

'the second trial 
If Sheet1.Shapes(Application.Caller).Name = "RUN 1" Or _ 
activesheet.Shapes(Application.Caller).Name = "EQ-1" Then Sheet2.Cells(1, 2) = "x" 

end sub 

Answer 1

嘗試...

Sub x() 

    If Application.Caller = "RUN 1" Or Application.Caller = "EQ-1" Then 
     Sheet2.Cells(1, 2) = "x" 
    End If 

End Sub 

希望這有助於！