A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは!
B2~B6セルの範囲で、
セルの塗りつぶしがあればフォント色をその色に、塗りつぶしがなければ「自動」にしてみました。
Sub Sample1()
Dim c As Range
For Each c In Range("B2:B6")
If c.Interior.ColorIndex <> xlNone Then
c.Font.Color = c.Interior.Color
Else
c.Font.ColorIndex = xlAutomatic
End If
Next c
End Sub
※ 質問文では黄色・青・白等々が出ていますが
フォント色は指定せずに塗りつぶしの色にしています。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) エクセルから、パワーポイントのスライドを複数作成する。 1 2022/07/08 09:40
- スタンプ・絵文字・顔文字 gメールの文字背景のベース色が勝手に変わりました。機能は変わりないですが元の色にもどせますか? 1 2022/11/21 00:16
- Photoshop(フォトショップ) MacでPhotoshopに使い方 教えて! 2 2023/07/08 08:24
- その他(Microsoft Office) マクロについて教えて下さい 3 2022/05/28 15:36
- Photoshop(フォトショップ) Photoshopで背景の色を知りたいのですが、文字の色は出るのに背景の色は計測できません。どうすれ 2 2023/01/23 00:06
- Excel(エクセル) エクセルの条件付き書式について教えてください。 3 2022/04/23 10:00
- Windows 95・98 タスクバーの背景の色だけを変えたい。 2 2022/07/13 14:44
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PhotoShopで文字の背景色をつけ...
-
Graphic Converterで切り抜きし...
-
疲労の少ない背景色と、文字色...
-
木製表札の文字部の塗装
-
文化祭のポスターを作っている...
-
ホームページビルダー リンク...
-
Gimpで文字が入らない
-
シルクスクリーンについてです ...
-
ぼかされた文字を見たいんです...
-
白抜き文字の背景透明画像デー...
-
フォトショップの文字がギザギ...
-
イラストレーターでスプレー缶...
-
Photoshopでパスのオフセットの...
-
フォトショップがディスクエラ...
-
集合写真の上に人物を線で描き...
-
線を太くする方法
-
エクセルで並び替えが一部(下...
-
新聞紙をPDFにスキャンした際の...
-
JW-CADのレイヤー間の移動を教...
-
イラストレーターCS2頂いた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PhotoShopで文字の背景色をつけ...
-
テキストエディタの背景は何色...
-
Gimpで文字が入らない
-
疲労の少ない背景色と、文字色...
-
KingSoft Office 2016で白黒反...
-
エクセル 背景色によって文字色...
-
文字が潰れる
-
白抜き文字の背景透明画像デー...
-
画像の中の文字を同じ書体で違...
-
木製表札の文字部の塗装
-
基本的なことですいません 4(a ...
-
■JTrim 文字の枠を無くしたい
-
Photoshopの 「光沢輪郭」のト...
-
黒い台紙に白い文字をきれいに...
-
手描き文字の白抜きについて
-
イラレ ほぼ初心者です。 文字...
-
ワープロソフト、一太郎で、下...
-
文字の透過(png)
-
ステカsv-8でSUBARUという文字...
-
photoshopで身体に文字を入れる
おすすめ情報
Sub B列の背景色が黄色でなければ文字色を白色に黄色色なら黄色に()
If Range("B2:B6").Interior.ColorIndex <> 6 Then
Range("B2:B6").Font.ColorIndex = 2
Else
Range("B2:B6").Font.ColorIndex = 6
End If
End Sub
背景色が黄色なら文字色が黄色にはなるのですが、背景色が黄色でないものまで文字色が黄色になってしまいました。
まだVBA初心者でよくわかっていません。