VBAで背景色をつけたい。エクセルの範囲を指定せずに、複数の条件分岐を実現したい
ここに質問の内容を詳しく書いてください。
かなり長文になると思いますが、色々試した結果、手詰まりになっているので質問します。
L列に行いたい処理を記載しているのですが、コードを書いて実行した結果、
こうなってしまいます。
実際に行いたい処理が
です。
そして、先輩には、仕事では特定のセル範囲のみに処理を表示させることはないから、セル範囲を指定せずに条件が合致している間は、処理を行えるようにしとほしいといわれていますが、なかなかうまくいきません。
該当のソースコード
'''
Sub Ara()
Dim a As Integer
Dim b As Integer
For a = 3 To 32
For b = 8 To 9
If Cells(a, 7) <> "" Then Cells(a, 8) = Cells(a, 7) + 1 Cells(a, 9) = Cells(a, 7) + 2 ElseIf Cells(a, b) Mod 2 = 0 And Cells(a, b) <> "" Then Cells(a, b).Interior.ColorIndex = 3 End If Next b Next a
End Sub
'''
試したこと
上記はfor文でセル範囲を指定しています。セル範囲を指定せずに条件に合致している間繰り返すということなのでwhile文を使用したのですが、うまくいきませんでした。
補足情報
文章が分かりにくいことは承知しています。
もし、ご回答いただけたら、助かります。
修正依頼がございましたので、追記致します。
「複数の条件分岐」という言葉では分からないとの事、言葉が足りませんでした。すみません。
要件といいますか実現したいことは、
条件1 G3~32に値が入っていたら、
処理(例 G3の値に+1したものをH3に、G3の値に+2したものをI3に)G4以降も同じ
条件2 値が入っていないところは
処理 空白
条件3 セルに偶数の値のみが入っている場合
処理 セルの背景色を赤色
以上をセル範囲を指定せずに、条件に当てはまる場合は繰り返す処理をしたいということです。
上記の文章でよいかは個人的に不安が残りますが、追記とさせていただきます。
回答5件
あなたの回答
tips
プレビュー