Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44483 / 76732

←次へ　｜　前へ→


	【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