|
こんばんは
>*くやしい〜 go to しか思いつかなかったぁ〜
>もしかして、つんさんがもっと良いコードを見せてくれるかも・・・(へへ)
あれ?最初見たときは「りんさん」に期待されてたような^^;
最近りんさんは見に来てはらへんのかなあ・・・・
りんさんの回答なら心強いのですが・・・
とりあえず、昼間ぐちゃぐちゃといじくってたコードです
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
Dim i As Long
Dim k As Long
If Target.Column >= 3 Then Exit Sub
If IsNumeric(Cells(Target.Row, 1).Value) = True Then
For i = 1 To Cells(Target.Row, 1).Value
s = s & "◆"
Next i
k = Cells(Target.Row, 1).Value
Else
k = 0
End If
If IsNumeric(Cells(Target.Row, 2).Value) = True Then
For i = 1 To Cells(Target.Row, 2).Value
s = s & "●"
Next i
End If
Application.EnableEvents = False
With Cells(Target.Row, 3)
.Value = ""
.Value = s
If .Value <> "" Then
.Characters(1, k).Font.ColorIndex = 3
.Characters(k + 1, Len(.Value)).Font.ColorIndex = 4
End If
End With
Application.EnableEvents = True
End Sub
半分以上、友人が作ったのをアレンジしたんですが^^;;;
「数値」以外が入力された時は対応出来てるけど、
少数や負の数字の時はちゃんと出来てませんね。
あらかじめ、入力規則で、正の整数しか入力できないようにしとくのがいいのかなあ?
好き勝手にやってますが(すみませんっ)、Q&Aさん大丈夫かな?
|
|