Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5092 / 13644 ツリー ←次へ | 前へ→

【52654】4つ以上の条件付き書式について J 07/11/23(金) 23:26 質問[未読]
【52656】Re:4つ以上の条件付き書式について じゅんじゅん 07/11/24(土) 9:44 発言[未読]
【52657】Re:4つ以上の条件付き書式について P 07/11/24(土) 9:46 発言[未読]
【52659】Re:4つ以上の条件付き書式について 吉本 07/11/24(土) 10:02 回答[未読]
【52661】Re:4つ以上の条件付き書式について じゅんじゅん 07/11/24(土) 10:23 発言[未読]
【52665】Re:4つ以上の条件付き書式について J 07/11/25(日) 8:24 お礼[未読]

【52654】4つ以上の条件付き書式について
質問  J  - 07/11/23(金) 23:26 -

引用なし
パスワード
   こんばんわ。
よく分からないので、教えて頂けますでしょうか。

セルB6にリストを作り、空白も含め7つ選べる項目があります。
空白以外の項目を選ぶと、指定した書式になるようにしたいのですが、
どのようにすればいいのか分かりません。
乱文で分かりにくいかと思いますが、どなたかご教示頂けないでしょうか。

リストは以下の様に設定されていて、指定したい書式は以下の通りです。
Z 空白
A 薄い青の塗りつぶしに、白い字
Aa 薄い青の塗りつぶしに、白い字
B 黄色の塗りつぶしに、赤い字
Bb 黄色の塗りつぶしに、赤い字
C 塗りつぶし無しで、ピンクの字
Cc 塗りつぶし無しで、ピンクの字

同じ内容のリストが、B6:AF19の範囲であります。

どうか宜しくお願いします。

【52656】Re:4つ以上の条件付き書式について
発言  じゅんじゅん  - 07/11/24(土) 9:44 -

引用なし
パスワード
   ▼J さん:
>リストは以下の様に設定されていて、指定したい書式は以下の通りです。
>Z 空白
>A 薄い青の塗りつぶしに、白い字
>Aa 薄い青の塗りつぶしに、白い字
>B 黄色の塗りつぶしに、赤い字
>Bb 黄色の塗りつぶしに、赤い字
>C 塗りつぶし無しで、ピンクの字
>Cc 塗りつぶし無しで、ピンクの字
>
>同じ内容のリストが、B6:AF19の範囲であります。
>
>どうか宜しくお願いします。

セルB6:AF19を選択
条件付き書式で「数式が」を使い

条件1
=OR(B6="A",B6="Aa") 条件設定

条件2
=OR(B6="B",B6="Bb") 条件設定

条件3
=OR(B6="C",B6="Cc") 条件設定

>Z 空白
ここがちょっと不明ですけど、上記内容ではダメですか?

【52657】Re:4つ以上の条件付き書式について
発言  P  - 07/11/24(土) 9:46 -

引用なし
パスワード
   ▼J さん:
>こんばんわ。
>よく分からないので、教えて頂けますでしょうか。

B 黄色の塗りつぶしに、赤い字
Bb 黄色の塗りつぶしに、赤い字
 
塗りつぶしと文字色が同じもので「B」と「Bb」を判断することは
出来ません。が・・・

【52659】Re:4つ以上の条件付き書式について
回答  吉本  - 07/11/24(土) 10:02 -

引用なし
パスワード
   ▼J さん:

コードの原型を書きました

>B 黄色の塗りつぶしに、赤い字
>Bb 黄色の塗りつぶしに、赤い字
これとB・C列を使っています
 Dim i As Integer
  For i = 6 To 19
  If Cells(i, 2).Value = "B" Or Cells(i, 2).Value = "Bb" Then
   Cells(i, 3).Interior.ColorIndex = 6
   Cells(i, 3).Font.ColorIndex = 3
  End If
  Next


>同じ内容のリストが、B6:AF19の範囲であります。
意味が少し分かりにくいですが、上の原型をアレンジ(列方向に2又は3なのでしょうか移動させていくと出来ると思います。

【52661】Re:4つ以上の条件付き書式について
発言  じゅんじゅん  - 07/11/24(土) 10:23 -

引用なし
パスワード
   >▼J さん:

私だいぶ勘違いしているのかも。

セルの入力規則−リストで選択された値によって、
そのセルの塗りつぶしやフォント色を変更したいのだと
思っていたのですが・・・
(AやAaは例えの文字として)

違っていたらすいません。

【52665】Re:4つ以上の条件付き書式について
お礼  J  - 07/11/25(日) 8:24 -

引用なし
パスワード
   じゅんじゅん様、P様、吉本様、どうもありがとうございました。

じゅんじゅん様の条件付き書式で解決できました!
条件付き書式の「数式が」を完全に見逃していて、
VBAを使わないと解決出来ないと思い込んでいたようでしたf^^;

改めて、どうもありがとうございましたm(_ _)m

5092 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free