Worksheet.Change 事件 (Excel)

當使用者或外部連結變更工作表中的儲存格時會發生此事件。

語法

運算式。變更 (目標)

表達 代表 Worksheet 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Target	必要	Range	變更的範圍。 可以是多個儲存格。

傳回值

Nothing

註解

若在重新計算期間變更儲存格，則不會發生此事件。 使用 Calculate 事件來捕捉工作表重新計算。

範例

下列程式碼範例會將已變更儲存格的色彩變更為藍色。

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 5 
End Sub

下列程式碼範例會驗證，當儲存格的值變更時，已變更的儲存格位於欄 A，且儲存格的已變更值是否大於 100。 如果值大於 100，欄位 B 中的相鄰儲存格會變更為紅色。

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    If Target.Column = 1 Then 
        ThisRow = Target.Row 
        If Target.Value > 100 Then 
            Range("B" & ThisRow).Interior.ColorIndex = 3 
        Else 
            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone 
        End If 
    End If 
End Sub

下列程式碼範例會在資料輸入儲存格時，將範圍 A1:A10 的值設定為大寫。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    'Set the values to be uppercase
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。