在 Workbook_SheetSelectionChange 裏面加入以下代碼
if Target.HasFormula then
Dim val as Variant
val = Target.DirectPrecedents.address
Range(val).copy
Else
Application.CutcopyMode = False
在 Workbook_SheetSelectionChange 裏面加入以下代碼
if Target.HasFormula then
Dim val as Variant
val = Target.DirectPrecedents.address
Range(val).copy
Else
Application.CutcopyMode = False
VBA語句 一、VBA語句 1.宏程序語句 運行後可 以完成一個功能。 `//給單元格a1賦值 Sub test() //開始語句 Range("a1") = 10 //程序主體 End Sub