但是可以簡單地實現如下。
私有子工作表_SelectionChange(ByVal目標作為範圍)
Dim n As Long
N = MsgBox("選擇終止:選項1 " & vbCrLf & amp;"選擇重試:選項2 " &;vbCrLf & amp;“選擇忽略:選項3”,vbabortretryinore,“提示”)
調試。印刷
單元格(1,1) = n
末端接頭