Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3290 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63009】セルのクリアを教えて? ナッチン 09/9/30(水) 20:42 質問[未読]
【63022】Re:セルのクリアを教えて? 超初心者 09/10/1(木) 11:33 発言[未読]
【63028】Re:セルのクリアを教えて? ナッチン 09/10/2(金) 13:54 質問[未読]
【63029】Re:セルのクリアを教えて? もも 09/10/2(金) 15:09 発言[未読]
【63030】Re:セルのクリアを教えて? ナッチン 09/10/2(金) 16:40 発言[未読]
【63031】Re:セルのクリアを教えて? もも 09/10/2(金) 17:19 発言[未読]
【63032】Re:セルのクリアを教えて? ナッチン 09/10/2(金) 22:30 発言[未読]
【63060】Re:セルのクリアを教えて? 代返 09/10/4(日) 23:26 発言[未読]
【63076】Re:セルのクリアを教えて? Jaka 09/10/5(月) 16:20 発言[未読]
【63083】Re:セルのクリアを教えて? ナッチン 09/10/5(月) 23:56 お礼[未読]
【63009】セルのクリアを教えて?
質問  ナッチン  - 09/9/30(水) 20:42 -
引用なし
パスワード
   お世話になります。

アプリケーションを終了する時、（または起動する時）
シート１のセル（A5）からセル（J不定）の範囲を自動的にクリアしたい。

教えていただけませんか。
【63022】Re:セルのクリアを教えて?
発言  超初心者  - 09/10/1(木) 11:33 -
引用なし
パスワード
   ▼ナッチン さん：

Sheets("シート1").Select
Range("A5:J不定").Clear

こんな感じで良いですか？
【63028】Re:セルのクリアを教えて?
質問  ナッチン  - 09/10/2(金) 13:54 -
引用なし
パスワード
   ▼超初心者 さん：
>
>Sheets("シート1").Select
>Range("A5:J不定").Clear
>
>こんな感じで良いですか？

見ていただいてありがとうございます。
でもこのままでは。

最初の質問にありますように、
エクセル(アプリ)を終了するとき、自動的にセル範囲をクリアしたい。
そのためには・・・
＊エクセルの"終了"をクリックしたときに、コードを実行する。
＊クリア範囲はそのときによって違うので Rows(5)以降と考えていいと思います。
【63029】Re:セルのクリアを教えて?
発言  もも  - 09/10/2(金) 15:09 -
引用なし
パスワード
   ▼ナッチン さん：
こんにちは

以下のような感じでどうでしょうか？
Thisworkbookモジュールに記載してください。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Worksheets("Sheet1")
　Application.Intersect(.Range("A5").CurrentRegion.Columns("A:J"), _
　　　　　　　　　　　　.Rows("5:" & .Rows.Count)).ClearContents
End With
End Sub
【63030】Re:セルのクリアを教えて?
発言  ナッチン  - 09/10/2(金) 16:40 -
引用なし
パスワード
   ▼もも さん：

こんにちは。
検討させていただきました。
うまくいきそうですが、きちんと説明していなかった、
加えて間違っていたのですいません。

シート６に検索したデータを置き、それを参考にしながらシート１で作業しています。

なので　これは　"sheet6"　かな。
>With Worksheets("Sheet1")

CurrentRegion これもこのままでは駄目でしょうか。
>　Application.Intersect(.Range("A5").CurrentRegion.Columns("A:J"), _
>End Sub

さらにお願いできますか?
【63031】Re:セルのクリアを教えて?
発言  もも  - 09/10/2(金) 17:19 -
引用なし
パスワード
   ▼ナッチン さん：
>シート６に検索したデータを置き、それを参考にしながらシート１で作業しています。

という事の意味がまったくわからないのですが・・・
何をどう検索したものがシート６にあって、
シート１での作業というのは何をしているのでしょう？

で、クリアしたいのはどこなんでしょうか？
【63032】Re:セルのクリアを教えて?
発言  ナッチン  - 09/10/2(金) 22:30 -
引用なし
パスワード
   ▼もも さん：

>>シート６に検索したデータを置き、それを参考にしながらシート１で作業しています。
＊最初の質問の際、クリアするシートが違っていた(シート１ではなくシート６が正）
と言うことです。
＊そしてクリアするシート６にいちいち移動するのではなく、
作業したシート１の状態で終了したいのです。

解りますでしょうか。自分ではやりたいことは単純なことなのに、
人に伝えるって難しいですね。
【63060】Re:セルのクリアを教えて?
発言  代返  - 09/10/4(日) 23:26 -
引用なし
パスワード
   ご自身で書かれておられるように、
"Sheet1" を "Sheet6" 変えればよいのではないでしょうか。
それとも、試してみられて何か不都合が生じたのでしょうか？
【63076】Re:セルのクリアを教えて?
発言  Jaka  - 09/10/5(月) 16:20 -
引用なし
パスワード
   これ？

With Sheets("Sheet1")
　　LR = .Cells(Rows.Count, "J").End(xlUp).Row
　　If LR >= 5 Then
　　　 .Range("A5:J" & LR).Clear
　　End If
End With
【63083】Re:セルのクリアを教えて?
お礼  ナッチン  - 09/10/5(月) 23:56 -
引用なし
パスワード
   こんにちは。

いろいろ提案していただきありがとうございました。
自分なりに少しだけ変えてうまくおもったことができました。
皆さんにはまたお聞きすることがあるかもしれません。
そのときにはよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3290 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free