[[20070406121558]]　『fontの色』（ララ）　ページの最後に飛ぶ

 『fontの色』（ララ）
 いつもエクセルの学校に助けられています。
 fontの色を変えたいので教えてください。

 Aシートに番号と月数が入っています。
 同じファイルのBシートに番号を入力したときに
 月数によって入力した番号の色を変える方法はないでしょうか。

 [[20050115131721]]でVBAを使って出来るらしいのはわかったのですが
 入力したそのものの条件でfontの色が変わるのでなく
 別シートの条件によって色を変えたいのですが・・・

 3ヶ月なら赤　4ヶ月なら青と条件をつけて

 Bシート
 1   ←　　と入力したら1が赤になるような・・・

 どうぞよろしくお願い致します。

 よく意味がわかってないと思いますが、こんなこと？

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim x
 With Target.Cells(1,1)
      If Intersect(.Cells, Range("a1:a10")) Is Nothing Then Exit Sub
      x = Application.VLookUp(.Value, Sheets("A").Range("a:b"), 2, False)
      If Not IsError(x) Then 
           .Font.ColorIndex = x
      Else
           .Font.ColorIndex = xlAutomatic
      End If
 End With
 End Sub
 (seiya)

 シート2のA1に数値を打ち込んでマクロを実行すると
色が付きます。
  色（番号）は適当に設定していますので，自分で直してください。
 それと，途中までの月数しか設定していませんので，必要に応じて
追加ください。（夕焼）

 Sub test()

 lastrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 For i = 1 To lastrow

 If Worksheets(1).Cells(i, 1) = Worksheets(2).Cells(1, 1) Then

 Select Case Worksheets(1).Cells(i, 2)
  Case 1
     Worksheets(1).Cells(i, 1).Font.ColorIndex = 2
  Case 2
     Worksheets(1).Cells(i, 1).Font.ColorIndex = 3
  Case 3
     Worksheets(1).Cells(i, 1).Font.ColorIndex = 4
  Case 4
     Worksheets(1).Cells(i, 1).Font.ColorIndex = 5
  Case 5
     Worksheets(1).Cells(i, 1).Font.ColorIndex = 6
 '  以下同様

 End Select
 End If

 Next

 End Sub

seiya様　夕焼様

 早々にお答え下さりありがとうございました。
 VBAは超初心者で、勉強不足なのですが、
 夕焼様
 シート2の打ち込む場所がA1だけでなくシート全体に散らばっている場合は
 どうなりますでしょうか。
 例えば（B5）とか、（FA260）とか・・・
 Cells(1, 1)のところを範囲にすればいいのでしょうか・・・？
 すみません。教えてくださいませ。

コメント返信：

[ 一覧(最新更新順) ]

[[20070406121558]] 『fontの色』（ララ） ページの最後に飛ぶ

[[20070406121558]]　『fontの色』（ララ）　ページの最後に飛ぶ