程序修改界面如下圖:
妳程序裏面的事件代碼比較多,建議註意優化,盡可能避免事件裏面帶來事件,可以參考我修改7行時候的操作,暫時禁止事件發生。
第壹個方框內的代碼文本如下(最後三行是拷屏後新增了,有壹定的必要):
'自動計算:7行=5行*6行 開始
For Each mRngA In Application.Intersect(Sh.UsedRange, Target).Cells
mRow = mRngA.Row
If mRow = 5 Or mRow = 6 Then
mCol = mRngA.Column
If VarType(Sh.Cells(5, mCol)) = vbDouble And VarType(Sh.Cells(6, mCol)) = vbDouble Then
Application.EnableEvents = False
Sh.Cells(7, mCol) = Sh.Cells(5, mCol) * Sh.Cells(6, mCol)
Application.EnableEvents = True
End If
End If
Next mRngA
Set mranga = Nothing
mRow = 0
mCol = 0
'自動計算:7行=5行*6行 結束