Excel VBA質問箱 IV

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

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


51192 / 76732 ←次へ | 前へ→

【30413】Re:If文で・・・
回答  awu  - 05/10/27(木) 0:58 -

引用なし
パスワード
   ▼りんご さん:
>上記の場合で範囲のC13:C27とH13:H27なのですが
>ここの部分は注文シートの品番と数量が入るところなのですべて全部取得するわけではないんですね。1行の時もあれば6行で終わる時もあるん
>ですよ。

データの未入力を検知するのですから、データ範囲の最終行を決定できる列が
必要と思いますよ。

例えば、A列に「受注No」が必ず入力されていて、その最終行までをデータ
範囲とする などのように。

A列の最終行をデータの最終行とした場合、こんな感じで如何でしょうか。

Sub test()
Dim Rng As Range
Dim EndRw As Long
EndRw = Range("A65536").End(xlUp).Row
Set Rng = Range("I4,D9,I8,I9,C13:C" & EndRw & ",H13:H" & _
        EndRw).Find("", lookat:=xlWhole)
If Not Rng Is Nothing Then
  MsgBox Rng.Address(False, False) & _
        " に未入力があります。確認して下さい"
End If
Set Rng = Nothing
End Sub
0 hits

【30393】If文で・・・ りんご 05/10/26(水) 16:47 質問
【30394】Re:If文で・・・ Jaka 05/10/26(水) 17:13 回答
【30395】Re:If文で・・・ Statis 05/10/26(水) 17:15 回答
【30398】Re:If文で・・・ りんご 05/10/26(水) 17:49 質問
【30400】Re:If文で・・・ Statis 05/10/26(水) 18:10 回答
【30413】Re:If文で・・・ awu 05/10/27(木) 0:58 回答
【30421】Re:If文で・・・・ りんご 05/10/27(木) 10:45 質問
【30426】Re:If文で・・・・ Statis 05/10/27(木) 11:55 発言
【30429】Re:If文で・・・・ awu 05/10/27(木) 12:27 発言
【30430】Re:If文で・・・・ Statis 05/10/27(木) 12:32 発言
【30435】Re:If文で・・・・ りんご 05/10/27(木) 13:16 お礼

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