いつもお世話になっております。
マクロボタンでI列が空欄だった場合、色を変える処理をしたいのですが、(データ一列目がI6です)
下へループするにはどうすればいいでしょうか。変数 iをつかってみましたが、forの使い方、ifとどう合わせて使うかが分かりません。。初歩的で申し訳無いですが、宜しくお願い致します。
-----現在のコード-----------------------
Sub ボタン13_Click()
If Range("I6").Value = "" Then
Range("A6").Interior.ColorIndex = 3
End If
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは!
I列6行目からI列最終行までループさせれば良いのですね。
一例です。
Sub Sample1()
Dim i As Long
For i = 6 To Cells(Rows.Count, "I").End(xlUp).Row
If Cells(i, "I") = "" Then
Cells(i, "A").Interior.ColorIndex = 3
Else
Cells(i, "A").Interior.ColorIndex = xlNone
End If
Next i
End Sub
こんな感じで大丈夫だと思います。m(_ _)m
回答ありがとうございます。
ズバリ、色が変わりました!見ると理解できますが、考えた通りコードを書くことがまだまだできません。。今後も宜しくお願い致します。
No.2
- 回答日時:
こんにちは
>forの使い方、ifとどう合わせて使うかが分かりません。
Forループをご存知なら、何raかの変数の値を変えながらループすることはご存知ですよね?
ご質問の場合は、各行についての処理なのでしょうから、行の値を変えながら順に処理するできるようなコードにする必要があります。
例えば、行番号を表す変数を「r」とするなら、
まずご提示のコードを、「r行でI列が空白だったら、r行のA列の色を変える」という内容に変えてみます。
例えば、以下のようにな感じ。
If Cells(r, 9).Value = "" Then Cells(r, 1).Interior.ColorIndex = 3
あるいは、Rangeを使ってセル位置を示すなら
If Range("I" & r).Value = "" Then Range("A" & r).Interior.ColorIndex = 3
元のA列のセルの状態がわからないので、空白でない場合には必ず背景色無しにセットするとかであるなら、カラーコードを一旦変数colorに入れるとして
If Cells(r, 9).Value = "" Then color = 3 Else color = xlNone
Cells(r, 1).Interior.ColorIndex = color
みたいになるのかも知れませんね。
このあたりまで考えられれば、後は、rの値を6から「処理したい最終行番号」まで変えながらループさせて、この処理を繰り返せば良さそうに思いませんか?
では、Good Luck ‼。
凄く順序立てて説明いただきありがとうございます。
背景色を無しにセットをまさに考えていました!
まだエラーなのですが、教えて頂いた方法でトライしてみます。
また宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
エクセルでエラーが出て困って...
-
納豆食べた後の尿の納豆臭は何故?
-
中出しをするとお腹が痛い・・・。
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
尿検査の前日は自慰控えたほう...
-
勃起する時って痛いんですか? ...
-
値が入っているときだけ計算結...
-
彼女のことが好きすぎて彼女の...
-
小数点以下を繰り上げたものを...
-
これって喉仏ですか? 私は女性...
-
風俗店へ行く前のご飯
-
EXCELで条件付き書式で空白セル...
-
テスターで断線を調べる方法教...
-
精子が黄色?
-
麻疹風疹の抗体検査結果につい...
-
EXCELの条件付き書式で数式を空...
-
エクセルのラベルの値(文字列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
エクセルでエラーが出て困って...
-
中出しをするとお腹が痛い・・・。
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
勃起する時って痛いんですか? ...
-
納豆食べた後の尿の納豆臭は何故?
-
精子が黄色?
-
至急!尿検査前日にオナニーし...
-
小数点以下を繰り上げたものを...
-
これって喉仏ですか? 私は女性...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
舌の裏の痛みのないプツプツの...
-
甲状腺が腫れているが血液検査...
-
Excelで""で囲む方法
-
健否~書類の書き方~
-
リンク先のファイルを開かなく...
おすすめ情報