高分：EXCEL VBA 代码翻译

1、'当双击工作表时发生此事件，此事件先于默认的双击操作。
'若双击单元格“$A$1”，即第一个单元格，执行自定义函数Sx；否则忽略该事件
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub
Cancel = True '不执行默认代码
Call Sx
End Sub

2、
'当用户更改工作表中的单元格，或外部链接引起单元格的更改时发生此事件。
'若表格修改的不是A1单元格或者A!单元格的值<10，忽略该事件。
‘’Private Sub Worksheet_Change(ByVal Target As Range)'该事件声明错误，改为下句：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'通过改变值与A1的重合区域判断是否A1修改；Len(Target(1)) ，判断A1单元格内文本长度是否大于或等于10。其中，Target(1)的标准写法是Target(1).text
If Intersect(Target, Range("A1")) Is Nothing Or Len(Target(1)) < 10 Then Exit Sub
Call Sx
End Sub