檢查公式

Workbook_SheetSelectionChange 裏面加入以下代碼

if Target.HasFormula then 
	Dim val as Variant 
	val = Target.DirectPrecedents.address
	Range(val).copy
Else
	Application.CutcopyMode = False
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章