Excel VBA質問箱 IV

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

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


18539 / 76736 ←次へ | 前へ→

【63638】Re:Do While、For To 文がうまくいきません
発言  かみちゃん  - 09/11/23(月) 18:01 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>そこでH15をブランクにしたところ、
>今度はCells(1,1)から処理が始まってしまってセル達一面が真っ赤に・・・。
>For to で開始セルを指定していたはずなのに、何故でしょうか。

SpecialCells
が単一セルになっているからだと思います。

  k = FEAP
というコードがよくわからないのですが、以下のようにすればいかがですか?
(For〜Nextを使う必要はありません)

Sub 入力漏れチェック2()
  Dim i As Integer
  Dim j As Integer
  Dim k As String
 
  i = 15
  j = 2
  k = FEAP
 
 
  On Error Resume Next
 
  With Worksheets("Publication List")
   Do While .Cells(i, 8) = k
     .Cells(i, j).Interior.ColorIndex = xlColorIndexNone
     .Cells(i, j).Resize(, 12).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
     i = i + 1
   Loop
  End With
  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 質問

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