Excel VBA質問箱 IV

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

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


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

18545 / 76736

←次へ　｜　前へ→


	【63632】Do While、For　To　文がうまくいきません

KOBUN - 09/11/23(月) 14:57 -


	引用なし

	パスワード

皆様、お世話になっております。
以下Do Whileで実行したいプロシージャがあるのですが、
Do Whileをパスして次ステップで終わってしまいます。
（MsgBoxにいってしまいます）
どうも条件文が悪いのか、それとも他に原因があるのか？
どなたかご教示頂ければ幸いです。
このプロシージャの目的・意図は、
Do Whileで特定セルにある文字列が入っていることを認識
→指定セルたちがブランクなら、それらのセルを赤くする
です。
どうかよろしくお願い致します。

Sub 入力漏れチェック1()
　　Dim i As Integer
　　Dim j As Integer
　　Dim k As String
　　
　　i = 15
　　j = 2
　　k = FEAP
　　
　　
　　On Error Resume Next
　　
　　Do While Worksheets("Publication List").Cells(i, 8) = k
　　
　　For j = 2 To 13
　　　　Worksheets("Publication List").Cells(i, j).Interior.ColorIndex = xlColorIndexNone
　　　　Worksheets("Publication List").Cells(i, j).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
　　
　　Next j
　　
　　i = i + 1
　　
　　Loop
　　
　　MsgBox ("赤いセル箇所を入力して下さい。")

End Sub

0 hits

▼

【63632】Do While、For　To　文がうまくいきません KOBUN 09/11/23(月) 14:57

≪