私有子工作表_Change（作為範圍的目標值）
‘application . screen updating = false‘關閉屏幕刷新。
“出錯時繼續下壹步”忽略錯誤。
申請。“EnableEvents = False”不允許首先觸發事件。
申請。計算= xlcalculationmanual手動重新計算‘
Dim lngRow壹樣長，LngColumn壹樣長，Dygz壹樣長
尺寸W壹樣長，X壹樣長，Y壹樣長，Z壹樣長
LngColumn = Target。現在點擊“列”獲取列號。
LngRow =目標。現在點擊“Row”獲取行號。
Dygz =目標。價值
X =單元格（18，3）
如果lngRow = 18，並且LngColumn = 3，並且X》0 . 05。那就0
對於Y = X - 1至1步進- 1
細胞（20，3）。挑選
選擇。實體行。“插入”插入壹個空行。
單元格（20，3）= Y+1
單元格（19，4）。復制單元格（20，4）
單元格（19，5）。復制單元格（20，5）
Z = Z + 1
然後
如果…就會結束
申請。“EnableEvents = True”恢復觸發事件。
申請。calculation = xlcalculationautomatic‘自動重新計算
“出錯時轉到0”的錯誤提示恢復正常。
‘application . screen updating = true‘打開屏幕刷新。
末端接頭