[[20080218145658]]　『セルの文字色を変えるマクロ』（オハラ）　ページの最後に飛ぶ

『セルの文字色を変えるマクロ』（オハラ）

 マクロの超初心者です。

 一つのブックに複数のシートがあります。
 そのうち、シート１　だけの処理として
 Ａ１に１が入力された時、Ａ２の文字色を赤にする
 というマクロは、どこに記述すればよいのでしょうか。
 ちなみに、コードは下のとおりの記述でよいのでしょうか。
 ご教示をお願いいたします。

 If Cells(1, 1).Value = 1 Then
    Range("A2").Select
    Selection.Font.ColorIndex = 3
 Else
    End If

 こういった感じでよいですか?
 Sheet1の見出しを右クリックしてコードの表示からVBEへ入れば
 よいと思います。 　　（Hatch)
  エクセル・マイスターのWorksheet_SelectionChange
http://www.excel.studio-kazu.jp/mag2/backnumber/mm20040727.html
　
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    If Target.Value = 1 Then
        col = 3
    Else
        col = 1
    End If
    Target.Offset(0, 1).Font.ColorIndex = col
End Sub

 条件付き書式でいいのでは？
　
【条件付き書式 Win】
http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html

 マクロ勉強中ということなら、このレスは無視して下さい。
　
（純丸）(o^-')b

 （Hatch)様　ありがとうございました。　できました。
 （純丸）(o^-')b様　ありがとうございました。　条件付書式の方法は確認しました。
 （オハラ）

コメント返信：

[ 一覧(最新更新順) ]

[[20080218145658]] 『セルの文字色を変えるマクロ』（オハラ） ページの最後に飛ぶ

[[20080218145658]]　『セルの文字色を変えるマクロ』（オハラ）　ページの最後に飛ぶ