.OnAction 如何传递一个target

cgx5871

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2.     With Application.CommandBars("cell").Controls.Add(, , , 3, 1)
   
3.         Dim tar As Range
   
4.         Set tar=Cells(1, 1)
   
5.         'Set tar=Target     '对象错误
   
6.         'Set tar=Range("a1:b5")   '对象错误
   
7.         .OnAction = "'tt tar'"
   
8.         .Caption = "粘贴(可见单元格)"
   
9.         .Style = msoButtonIconAndCaption
   
10.     End With
    
11. End Sub
    
12. Sub tt(ByVal tar As Range)
    
13.     tar.Select
    
14. End Sub

复制代码

上面的tar=Cells(1, 1)能正常传递.但Cells(1,1)换成Target 或  Range("a1:b5")
都出现对象错误.  是何因?

cgx5871

有人解疑吗?

wpxxsyzx

        .OnAction = "'tt Range(""" & tar.Address(0, 0) & """)'"