|
こんばんは。
私も作ってみました。
開いたときの値を作業列(Z列)にコピーしてそれと比較しています。
データは、Sheet1にあると仮定しています。
Thisworkbookモジュールに
Private Sub Workbook_Open()
Dim myR As Range
Set myR = Sheets("Sheet1").Range("C1", Sheets("Sheet1").Range("C65536").End(xlUp))
With myR
.Font.ColorIndex = 0
.Copy Sheets("sheet1").Range("Z1")
End With
End Sub
シート1モジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
Application.EnableEvents = False
Select Case True
Case .Value > Cells(.Row, "Z").Value
.Font.ColorIndex = 3
Cells(.Row, "Z").Value = .Value
Case .Value < Cells(.Row, "Z").Value
.Font.ColorIndex = 5
Cells(.Row, "Z").Value = .Value
End Select
Application.EnableEvents = True
End If
End With
Application.ScreenUpdating = True
End Sub
>さっそく試してみたのですが、マクロを実行しようとしても「Worksheet_Change」というマクロ名が見つかりませんでした。
Worksheet_Changeは、イベントマクロですから
ichinoseさんのは、C列D列E列の値が変化したときにマクロが走ります。
私のは、C列の値が変化したときにマクロが走ります。
|
|