Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21209 / 76738

←次へ　｜　前へ→


	【60931】色づけ

Q&A - 09/3/25(水) 13:54 -


	引用なし

	パスワード

REPT関数を用いて,
A列　 B列　　C列
あ　　い
3　　 4　　　◆◆◆●●●●

C2に　=rept("◆",A2)&rept("●",B2)

としてC列以降にそれぞれの記号でグラフのようにしました。
これを記号ごとに色を変更したくて、
ネット上で検索したものをそのまま使用して申し訳ないのですが、

Sub 色づけ()

　　Dim c As Range
　　Dim i As Long
　　　For Each c In Selection
　　　　If c Like "*◆*" Or c Like "*●*" Then
　　　　　　For i = 1 To Len(c.Value)
　　　　　　　　If Mid(c.Value, i, 1) = "◆" Then
　　　　　　　　　　c.Characters(i, 1).Font.ColorIndex = 3
　　　　　　　　ElseIf Mid(c.Value, i, 1) = "●" Then
　　　　　　　　　　c.Characters(i, 1).Font.ColorIndex = 4
　　　　　　　　End If
　　　　　　Next i
　　　　End If
　　Next c
　　
End Sub

例えばこれを採用した場合、現状で実行すると、
C列に入っているものが全て1色（試したときはColorIndex = 4（赤））
になってしまうのですが、
初歩的な質問ですがVBAって数式で導き出された値では
判別不可能なのでしょうか？
また、改善点あればご教授いただきたいのですが・・・
よろしくお願いします。

0 hits

▼

【60931】色づけ Q&A 09/3/25(水) 13:54

≪