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 -

引用なし
パスワード
   お世話になります。

アプリケーションを終了する時、(または起動する時)
シート1のセル(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 -

引用なし
パスワード
   ▼もも さん:

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

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

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

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

さらにお願いできますか?

【63031】Re:セルのクリアを教えて?
発言  もも  - 09/10/2(金) 17:19 -

引用なし
パスワード
   ▼ナッチン さん:
>シート6に検索したデータを置き、それを参考にしながらシート1で作業しています。

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

で、クリアしたいのはどこなんでしょうか?

【63032】Re:セルのクリアを教えて?
発言  ナッチン  - 09/10/2(金) 22:30 -

引用なし
パスワード
   ▼もも さん:

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

解りますでしょうか。自分ではやりたいことは単純なことなのに、
人に伝えるって難しいですね。

【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