Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
44486 / 76735 ←次へ　｜　前へ→
【37265】Re:メッセージボックスの出し方
質問  福神漬  - 06/4/27(木) 13:41 -
引用なし
パスワード
   Statisさん、ありがとうございました。
早速、試したらできました。

重ね重ねで申し訳ないのですが、コードの初めの方に↓で1度表内をデリートしています。
r1 = Range("B65536").End(xlUp).Row
Worksheets("保守期限一覧表").Range("B5：AR" & r1).ClearContents

1〜4までは見出しがあり、データの初めが5行目からなのですが、
表中にデータがない状態で保存されている場合、抽出ボタンを押すと見出し部分も
消されてしまいます。
データがない場合は消さないようにしたいのですが

If Worksheets("保守期限一覧表").Range("B5：AR" & r1) < 5 Then
Worksheets("保守期限一覧表").Range("B5：AR" & r1).ClearContents
Else

↑Else以降はどうゆうコードを書けばいいでしょうか？
0 hits
▼ 【37257】メッセージボックスの出し方 福神漬 06/4/27(木) 11:17 質問
【37258】Re:メッセージボックスの出し方 Statis 06/4/27(木) 11:33 回答
【37260】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 12:34 質問
【37261】Re:メッセージボックスの出し方 Statis 06/4/27(木) 12:58 回答
【37265】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 13:41 質問≪
【37288】Re:メッセージボックスの出し方 Statis 06/4/28(金) 8:04 回答
【37300】Re:メッセージボックスの出し方 福神漬 06/4/28(金) 14:29 質問
【37303】Re:メッセージボックスの出し方 Statis 06/4/28(金) 14:45 回答
【37307】Re:メッセージボックスの出し方 福神漬 06/4/28(金) 15:39 質問
【37308】Re:メッセージボックスの出し方 Statis 06/4/28(金) 15:49 回答
【37259】Re:メッセージボックスの出し方 Kein 06/4/27(木) 11:40 回答
【37266】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 13:43 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
44486 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free