[[20090119161301]]　『色を自動で』（Ｊ）　ページの最後に飛ぶ

『色を自動で』（Ｊ）excel 2003 xp

 例えば、a1のセルに３を入れるとＢ１のセルが自動的に赤色になるという風に、A1のセルに１～５６の数字を入れると
 自動的に隣のセルにそれに該当する色が表示されるようにするにはどうしたらよいのでしょうか。お願いします。

 B1セルの条件付書式の設定で
 [ 数式が　▼] [ =AND(0<A1,A1<57)   ]
                  [ セル色赤を設定]

 とするのはどうでしょう。

 ↓ライブラリ「条件付き書式」
http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html

 (HANA)

 > 自動的に隣のセルにそれに該当する色が表示される
 ここの解釈ですが、４色以上とかの場合はマクロになると思います。
 　　(Hatch)

早速のコメントありがとうございました。説明が不十分で申し訳あります。私がお聞きしたかったのは
まさにHatchさんのおっしゃる通りで、それぞれの数字に対応した色を隣のセルに表示するマクロを知りたかったのです。よろしくお願いします。

 これ？(ROUGE)
'----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rr As Range, clr As Integer
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
For Each rr In Intersect(Target, Range("A:A"))
 If IsNumeric(rr.Value) Then
  If rr.Value = Int(rr.Value) Then
   Select Case rr.Value
   Case 1 To 56: clr = rr.Value
   Case Else: clr = xlNone
   End Select
  Else
   clr = xlNone
  End If
 Else
  clr = xlNone
 End If
 rr.Offset(, 1).Interior.ColorIndex = clr
Next
End Sub

Rougeさんへ。　さっそくやってみたのですが、どうやってマクロを実行したらよいのでしょうか。
Generalのシートにコピーはしてみたのですがそのあとがわかりません（Ｊ）

 上記コードはイベントマクロと呼ばれるものです。
ワークシートのモジュールに記述します。
ワークシートの値が変わったことをトリガーにマクロが実行されます。
(ROUGE)

全く申し訳ありません。
＜ワークシートのモジュールに記述します。
とは具体的にどうするのでしょうか。基本的なことが分からずご迷惑おかけします。（Ｊ）

 シートタブ（　＼Sheet1／　<--この部分）を右クリックして、コードの表示を選択すると出てくるものが
 シートモジュールと呼ばれるものです。
 VBE画面のVBProjectのウィンドウでシートを選択しても出てきます。
 (ROUGE)

ありがとうございました。できました。（Ｊ）

コメント返信：

[ 一覧(最新更新順) ]

[[20090119161301]] 『色を自動で』（Ｊ） ページの最後に飛ぶ

[[20090119161301]]　『色を自動で』（Ｊ）　ページの最後に飛ぶ