|
皆様、お世話になっております。
以下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
|
|