VBA中關(guān)于change事件和Application.EnableEvents的問題

試解釋如下：

Application.EnableEvents的作用是控制事件的觸發(fā)。

當(dāng)Application.EnableEvents設(shè)置為 False時，禁止觸發(fā)事件。

當(dāng)Application.EnableEvents設(shè)置為 True 時，可以正常觸發(fā)事件，excel默認(rèn)狀態(tài)。

兩者狀態(tài)下的區(qū)別，以 Target.Value = Target.Value + 1為例：

PrivateSubWorksheet_Change(ByValTargetAsRange)
Application.EnableEvents=False'禁止觸發(fā)事件
Target.Value=Target.Value+1'在禁止觸發(fā)事件狀態(tài)下，對單元格的賦值不會導(dǎo)致Worksheet_Change事件的觸發(fā)
Application.EnableEvents=True
EndSub

因此，上面的代碼中，其實際效果是每次操作后，單元格單次加1。

PrivateSubWorksheet_Change(ByValTargetAsRange)
'Application.EnableEvents=False'默認(rèn)情況下，會自動觸發(fā)事件
Target.Value=Target.Value+1'在觸發(fā)事件狀態(tài)下，對單元格的賦值都會導(dǎo)致Worksheet_Change事件的觸發(fā)
'Application.EnableEvents=True
EndSub

因此，上面的代碼會持續(xù)的觸發(fā)Worksheet_Change事件，直到不再觸發(fā)為止，其效果是每次操作后，單元格單次跳變（其實是經(jīng)過多次加1后的結(jié)果）。

至于為什么沒有限入死循環(huán)，可能是系統(tǒng)的限制（電腦的性能、軟件的防止機制等）。經(jīng)本地電腦實際測試， excel2010版本，每次累加87，與你問題描述中的47并不相同，可見是隨機的。

vba change事件沒能觸發(fā)

事件的觸發(fā)條件是change，與事件里面的語句沒有關(guān)系 比如Worksheet_change事件，只要當(dāng)前工作表有變化，無論是哪個單元格，都會觸發(fā)

VBA 為什么有時候不觸發(fā)change事件？？

onchange要控件失去焦點的時候才觸發(fā)，如果你需要隨時觸發(fā)，可以考慮使用onkeypress等事件

在EXCEL VBA中當(dāng)單元格字體顏色改變時，自動觸發(fā)一個事件。這個事件，如何（自定義）實現(xiàn)？

在 Excel VBA 中，您可以使用 Worksheet_SelectionChange 事件來監(jiān)測單元格字體顏色的改變。 以下是示例代碼： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim selCell As Range For Each selCell In Target If selCell.Font.ColorIndex <> xlAutomatic Then '此處是您自定義的代碼 MsgBox "字體顏色已更改！" End If Next selCell End Sub 將以上代碼粘貼到您的工作簿的

EXCEL：VBA：為什么自動生成的值無法觸發(fā)Change()事件，而手動輸入的值卻可以觸發(fā)Change()事件？

你自動生成的時候，肯定用到了Excel的“重算”功能，也就是工作表事件響應(yīng)里的Calculate，所以你只要用這個就行了，而不要用Change??！ 當(dāng)然，這時候，就是相對于全工作表而言的，也就不會有Target這個變量，所以原來的代碼就不能用了。 所以你還要再找找規(guī)律，到底是根據(jù)什么自動生成的呢？ 如果只是引用單元格，那么，可以判斷源單元格改變作為事件，如果是用RAND等函數(shù)生成的，那估計方法有限！