![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
こんな感じでしょうか?
Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
Select Case c.Value
Case "●"
c.Interior.ColorIndex = 3
Case "■"
c.Interior.ColorIndex = 6
End Select
Next
End Sub
No.2
- 回答日時:
こんにちは。
>下記のようなデータがあり、●、■文字のセルに色をつけたいです。●、■以外の何種類かの文字列にも各々の色をつけます。ここでは2種類にします。
それは、以下のコードで出来ます。
>空白には何も入れないで色つけをしたいです。
しかし、パターンの色付けということですか?
別のコードにするしかないかもしれませんね。
'<標準モジュール>
Sub Sample1()
Dim myWords As Variant, myColors As Variant
Dim myFadd As String, c As Range, i As Long
'=========================================
'ユーザー設定部分([,]コンマで切ること)
Const 検索値 As String = "●,■"
Const 色番号 As String = "3,5" ' 赤と青 '色番号は下記参照
'=========================================
myWords = Split(検索値, ",")
myColors = Split(色番号, ",")
If UBound(myWords) <> UBound(myColors) Then MsgBox "検索値と色の数は合わせてください。", 64: Exit Sub
For i = LBound(myWords) To UBound(myWords)
Set c = Cells.Find(What:=myWords(i), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
myFadd = c.Address
Do
c.Font.ColorIndex = myColors(i)
Set c = Cells.FindNext(c)
Loop Until c Is Nothing Or c.Address = myFadd
End If
Next
'Call Sample2 ''ここを外せば、Sample2 に進みます。
End Sub
Sub Sample2()
Const 色番号 As String = 8 '水色
On Error Resume Next
Cells.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 色番号
On Error GoTo 0
End Sub
代表的な、ColorIndex(色番号)です。
'黒(1),白(2),赤(3),黄緑(4),青(5),黄色(6),ピンク(7),
'水色 (8), 茶(9), 緑(10), 藍(11), 黄土色(12), 紫(13), 濃緑(14)
'灰色 (15), 濃い灰色(16),淡い水色(34),ゴールド(44),オレンジ(45),
'黄緑 (35)
この回答へのお礼
お礼日時:2005/09/02 14:47
ありがとうございます。
>空白には何も入れないで色つけをしたいです。
空白は空白のままで、という意味でした。わかりにくい表現でしたね(^^;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) 特定の文字を条件に指定範囲のデータを貼り付けるVBA 3 2023/01/15 06:14
- Excel(エクセル) エクセルで#以降の文字を取得したい 1 2022/03/28 13:14
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
うごメモ3Dについてです。た...
-
DS本体 シリアル番号について
-
木軸シャーペンって炙ってらい...
-
オイルステインで塗った色が希...
-
下ネタでもうしわけないです ま...
-
塗りつぶしの色の初期設定
-
日本人の肌の色は?
-
お散歩途中の斜面に白い小さな...
-
トールペイントの絵の具について
-
車のホイールの色が違う
-
Excel ツールボックス オプシ...
-
iPhoneのメモ帳って文字に色つ...
-
クラフトボックスのバラ売りを...
-
エクスプローラのアクティブウ...
-
エクセルVBAでデータ中の文字列...
-
音に色が見える
-
手作り行灯の色塗りについて。
-
これ何の文章ですかね
-
塗る色を失敗してしまいました…...
-
好きな色は?(理由も言えたら言...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクスプローラのアクティブウ...
-
Excelでデフォルトのフォ...
-
チャコールってどんな色でしょ...
-
差込印刷で番号に色をつけたいです
-
iPhoneのメモ帳って文字に色つ...
-
ロックミシンで使う糸。万能色...
-
セ-ジ色ってどんな色?
-
ワード2016で図の形式の色の変...
-
うごメモ3Dについてです。た...
-
塗りつぶしの色の初期設定
-
日本人の肌の色は?
-
ローチャコについて質問です。
-
Access コマンドボタンの色の件
-
MOS Word2013 についての質問で...
-
牛乳パックの裏側の色はなんで...
-
銀目(灰色の目)は実在する?
-
Excel ツールボックス オプシ...
-
けん玉の玉の色についてです。
-
【二者択一】どうやって決めま...
-
スマホの色とかどうでもいいと...
おすすめ情報