VBA手詰まりしました

質問

VBA初心者です

シートモジュールにコードをかきたいのですが
例えば
A1からA10まで数値を記入
しかもその数値を赤色にする
数値を記入したら反映されるようにしたいのですが

private sub

range("A1:A10").Value="100"
range("A1:A10").Font.Color=vbred

end sub

このコードでは当たり前ですが機能しません
申し訳ないですがコードを書いてくれると助かります
お願いします。

回答No.2

ubku · ベストアンサー

WorksheetオブジェクトのChangeイベントを使います。

A1～A10の値が変わったらフォントの色を赤にします。
数値かどうかは判定していません。

Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target

If cell.Column = 1 And cell.Row >= 1 And cell.Row <= 10 Then
cell.Font.Color = vbRed
End If

Next

End Sub

やりたいことと違っていたらスミマセン。

回答No.1

SI299792

マクロは名前を付けないと動きません。
Sub Macro1()
にしてみてください。