首頁猿問為什么MSExcel在WorkSh...

為什么MSExcel在WorkSheet_ChangeSub過程中崩潰并關(guān)閉？

源碼

翻翻過去那場雪 2019-05-31 16:58:46

為什么MSExcel在WorkSheet_ChangeSub過程中崩潰并關(guān)閉？當(dāng)我在Excel表上運(yùn)行VBA代碼時，我遇到了Excel崩潰的問題。我試圖在工作表更改中添加以下公式：Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("testpage").Range("A1:A8").Formula = "=B1+C1"End Sub當(dāng)運(yùn)行此代碼時，我收到一條消息：“excel遇到了一個問題，需要關(guān)閉?！岸鳨xcel關(guān)閉了。如果我在Worksheet_Activate()程序，工作正常，不會崩潰Private Sub Worksheet_Activate() Worksheets("testpage").Range("A1:A8").Formula = "=B1+C1"End Sub但我真的需要它在Worksheet_Change()程序。在使用Worksheet_Change()事件，誰能指出解決這個問題的正確方向？

查看完整描述

3 回答

三國紛爭

TA貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超7個贊

Excel崩潰了，而不是VBA函數(shù)。
事件未被禁用，調(diào)用堆棧由OnChange事件的無限循環(huán)填充。
幫助查找這類錯誤的一個小建議是：在事件的第一行上設(shè)置一個斷點(diǎn)，然后一步地按F8執(zhí)行它。

反對回復(fù) 2019-05-31

慕哥9229398

TA貢獻(xiàn)1877條經(jīng)驗(yàn) 獲得超6個贊

這個解決方案也很好：

Option ExplicitPrivate Busy As BooleanPrivate Sub Worksheet_Change(ByVal Target As Range)
    If Not Busy Then
        Busy = True
        Range("A1:A8").Formula = "=B1+C1"
        Busy = False
    End IfEnd Sub

反對回復(fù) 2019-05-31