|
初歩的な質問で申し訳ありません。
この前は皆さんにご迷惑をおかけ致しましたが、おかげさまで解決致しました。
・・・が、新たな私にとって難問ができてしまい、皆様の知恵をお借りしたいと思いました。
その難問というのは・・・
色分け繰り返しで、
Sub 色分け繰り返し()
Range("B4").Activate
Do Until IsEmpty(ActiveCell)
For i = 1 To 224
Call 色分け
ActiveCell.Offset(1, 0).Activate
Next
Loop
Range("A4").Select
End Sub
まではうまくできていますが、問題の
Sub 色分け()
'
' 色分け Macro
'
'
If ActiveCell.Value = "1" Then
Call ベージュ
ElseIf ActiveCell.Value = "2" Then
Call ベージュ
ElseIf ActiveCell.Value = "3" Then
Call ベージュ
ElseIf ActiveCell.Value = "4" Then
Call ベージュ
ElseIf ActiveCell.Value = "5" Then
Call ベージュ
ElseIf ActiveCell.Value = "6" Then
Call ベージュ
ElseIf ActiveCell.Value = "7" Then
Call ベージュ
Else
Call 色なし
End If
End Sub
のことです。
If ActiveCell.Value = "1" Then
Call ベージュ
ElseIf ActiveCell.Value = "2" Then
Call ベージュ
・
・
・
と数字が7まで書いてありますが、これを省略化にしたいと思っていますが、どうやればいいでしょうか?
ちなみ、これは1〜7の数字は色を塗っていく感じですが、実際は300まであって、全部記入するのは大変だと思いましたので・・・
以上よろしくお願いします。
|
|