如果雙擊單元格“$A$1”，即第壹個單元格，執行自定義函數Sx；否則，忽略該事件。
private Sub Worksheet _ before double click(ByVal Target作為範圍，Cancel作為布爾值)
如果目標。地址& lt& gt" $A$1 "然後退出Sub
“Cancel = True”不執行默認代碼。
打電話給Sx
末端接頭
2、
當用戶更改工作表中的單元格，或者外部鏈接導致單元格更改時，會發生此事件。
如果表格沒有被A1單元格或A修改！單元格的值
private worksheet _ change(byval target as range)'事件聲明不正確，並更改為以下句子:
私有子工作簿_SheetChange(ByVal Sh作為對象，ByVal Target作為範圍)
通過改變值與A1的重疊面積判斷A1是否被修改；Len(Target(1))，以確定單元格A1中的文本長度是否大於或等於10。其中，Target(1)的標準拼寫是Target(1).text。
If Intersect(Target，Range(" a 1 "))Nothing或Len(Target(1))& lt；10然後離開接頭
打電話給Sx
末端接頭