開発メモ

【VBA】特定の範囲で変更があったセルに着色するExcelマクロ

【Worksheet】【Change】

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
Dim j As Integer

i = Target.Row
j = Target.Column

If Intersect(Target, Range(“A1:Y65″)) Is Nothing Then
Exit Sub
Else
Cells(i, j).Interior.Color = RGB(255, 0, 0) ‘ 色付け

End If

End Sub

プライバシーマーク
Return Top