Excel VBA質問箱 IV

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

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


18541 / 76732 ←次へ | 前へ→

【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 質問
【63633】Re:Do While、For To 文がうまくいきませ... マクロマン 09/11/23(月) 15:01 発言
【63635】Re:Do While、For To 文がうまくいきませ... KOBUN 09/11/23(月) 17:16 質問
【63636】Re:Do While、For To 文がうまくいきませ... かみちゃん 09/11/23(月) 17:26 発言
【63634】Re:Do While、For To 文がうまくいきませ... かみちゃん 09/11/23(月) 15:05 発言
【63637】Re:Do While、For To 文がうまくいきませ... KOBUN 09/11/23(月) 17:30 質問
【63638】Re:Do While、For To 文がうまくいきませ... かみちゃん 09/11/23(月) 18:01 発言
【63647】Re:Do While、For To 文がうまくいきませ... KOBUN 09/11/24(火) 18:14 質問

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