|
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って数式で導き出された値では
判別不可能なのでしょうか?
また、改善点あればご教授いただきたいのですが・・・
よろしくお願いします。
|
|