Excel VBA質問箱 IV

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

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


45901 / 76732 ←次へ | 前へ→

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

1 hits

【35816】範囲指定(?)について ハオ 06/3/14(火) 9:09 質問
【35818】Re:範囲指定(?)について Jaka 06/3/14(火) 9:50 回答
【35819】Re:範囲指定(?)について ハオ 06/3/14(火) 11:10 お礼

45901 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free