[转]Worksheet.Change Event (Excel)

2022-10-30 15:31:39

本文转自：https://msdn.microsoft.com/en-us/library/office/ff839775.aspx#AboutContributor

Example

The following code example changes the color of changed cells to blue.

Private Sub Worksheet_Change(ByVal Target as Range)

    Target.Font.ColorIndex = 5

End Sub

Sample code provided by: Bill Jelen, MrExcel.com | About the Contributors

The following code example verifies that, when a cell value changes, the changed cell is in column A, and if the changed value of the cell is greater than 100. If the value is greater than 100, the adjacent cell in column B is changed to the color red.

VBA

Copy

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

Sample code provided by: Tom Urtis, Atlas Programming Management | About the Contributors

The following code example sets the values in the range A1:A10 to be uppercase as the data is entered into the cell.

VBA

Copy

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

码农公寓

相关文章