Excel VBA質問箱 IV

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

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


51205 / 76732 ←次へ | 前へ→

【30400】Re:If文で・・・
回答  Statis  - 05/10/26(水) 18:10 -

引用なし
パスワード
   こんばんは。

>上記の場合で範囲のC13:C27とH13:H27なのですが
>ここの部分は注文シートの品番と数量が入るところなのですべて全部取得するわ
>けではないんですね。1行の時もあれば6行で終わる時もあるんですよ。
最初に書いて頂かないとこちらでは判りません。


Jakaさんが記載された「CountA関数」の方が正解ですね。

こんな感じかな?。

Sub Test()
Dim Ch As Boolean
Ch = True
With Sheets("印刷")
   If WorksheetFunction.CountA(.Range("I4,D9,I8,I9")) <> 4 Then: Ch = False
   If WorksheetFunction.CountA(.Range("C13:C27")) = 0 Then: Ch = False
   If WorksheetFunction.CountA(.Range("H13:H27")) = 0 Then: Ch = False
   If Ch = False Then
    MsgBox "未入力があります。"
    Exit Sub
   End If
   .PrintPreview
End With
End Sub

1 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 お礼

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