Excel VBA質問箱 IV

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

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


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

45976 / 76807

←次へ　｜　前へ→


	【35816】範囲指定(?)について

ハオ - 06/3/14(火) 9:09 -


	引用なし

	パスワード

初歩的な質問で申し訳ありません。
この前は皆さんにご迷惑をおかけ致しましたが、おかげさまで解決致しました。

･･･が、新たな私にとって難問ができてしまい、皆様の知恵をお借りしたいと思いました。

その難問というのは･･･

色分け繰り返しで、

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まであって、全部記入するのは大変だと思いましたので･･･
以上よろしくお願いします。

2 hits

▼

【35816】範囲指定(?)について ハオ 06/3/14(火) 9:09

≪