妳的程序中有很多事件代碼，建議註意優化，盡量避免將事件帶入事件中。大家可以參考我修改7號線時的操作，並暫時禁止事件的發生。
第壹個框中的代碼文本如下（最後三行是在復制屏幕後添加的，這是必需的）:
自動計算:7行=5行*6行開始。
對於申請中的每個mRngA。相交（Sh。UsedRange，Target）。細胞
mRow = mRngA。排
如果mRow = 5或mRow = 6，則
mCol = mRngA。圓柱
if VarType（Sh。cells（5，mCol））= VB double和VarType（Sh。cells（6，mCol））= VB double Then
申請。EnableEvents = False
先令cells（7，mCol）= Sh。單元格（5，mCol）* Sh。細胞（6，mCol）
申請。EnableEvents = True
如果…就會結束
如果…就會結束
下壹個mRngA
Set mranga = Nothing
mRow = 0
mCol = 0
自動計算:7行=5行*6行結束。