[[20070406121558]] 『fontの色』(ララ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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

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

 Aシート
 番号  月数
 1   3
 2   4
 3   3
 4   2

 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)のところを範囲にすればいいのでしょうか・・・?
 すみません。教えてくださいませ。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.