我正在使用Excel中的宏写下我想要做的事情的要求:
我遇到的问题是上面的粗体字母。我知道我必须确保使用以下内容:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
因此我在SourceSheet中尝试了类似下面的内容(尽管没有成功:()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("ActiveCell:(ActiveCell.Offset(0, 5))").Copy Worksheets("TargetSheet ").Range("C2:G2")
ActiveCell.Offset(0, 9).Copy Worksheets("TargetSheet ").Range("B18")
End Sub
我是vba的新手所以任何帮助将不胜感激。提前谢谢。
答案 0 :(得分:1)
您需要测试是否在A:A范围(=第1列)中实际双击。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 1 Then
MsgBox "Double click on A:A range."
End If
End Sub