Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3103 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【64391】ﾜｰｸｼｰﾄ上のデータ消去方法？ T生 10/2/2(火) 9:58 質問[未読]
【64393】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？ 超初心者 10/2/2(火) 11:47 発言[未読]
【64394】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？ UO3 10/2/2(火) 12:55 発言[未読]
【64395】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？ T生 10/2/2(火) 13:45 質問[未読]
【64396】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？ 超初心者 10/2/2(火) 13:53 発言[未読]
【64397】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？ 超初心者 10/2/2(火) 14:17 発言[未読]
【64405】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？ T生 10/2/3(水) 16:45 お礼[未読]
【64391】ﾜｰｸｼｰﾄ上のデータ消去方法？
質問  T生  - 10/2/2(火) 9:58 -
引用なし
パスワード
   ﾜｰｸｼｰﾄ上で範囲を選択して　DELボタンを押せば　ﾃﾞｰﾀは範囲内全部瞬時に消去可能です。このことをｿﾌﾄで行うのに　FOR　NEXTで消去できるのですが　時間がかかるので　範囲指定とDELキで消去する方法を教えてください。
【64393】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？
発言  超初心者  - 10/2/2(火) 11:47 -
引用なし
パスワード
   ▼T生 さん：
範囲指定はどのようにするつもりでしょう？
マウスで囲む？
マウスで囲んだあと、マクロのボタンを押す？
[Delete]キーを押すこととの違いは？

マクロ作るより[Delete]キーを押した方が簡単？
な気がするのですが・・・


[Delete]キーの動作なら「マクロの記録」でコード化できます。

範囲指定に特殊な方法（事情）があるのであれば、
それを載せると良いかもです＾＾；；
【64394】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？
発言  UO3  - 10/2/2(火) 12:55 -
引用なし
パスワード
   ▼T生 さん：

おそらくは、範囲をセレクトして実行するのではなく、ＶＢＡ内で
範囲を規定して、それを消去されたいのだとは思いますが、
それは、超初心者さんがおっしゃっているように、マクロで自動記録
してみて出来上がるコートの【Selection】のところを、ご希望のセル範囲
にされればよろしいかと。
（あっ、このとき、【○○○.Select】の○○○をご希望の範囲に変えても
　処理はできますが、このステートメントは使わず、消されたほうがいいですね）
【64395】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？
質問  T生  - 10/2/2(火) 13:45 -
引用なし
パスワード
   ▼T生 さん：
>ﾜｰｸｼｰﾄ上で範囲を選択して　DELボタンを押せば　ﾃﾞｰﾀは範囲内全部瞬時に消去可能です。このことをｿﾌﾄで行うのに　FOR　NEXTで消去できるのですが　時間がかかるので　範囲指定とDELキで消去する方法を教えてください。

A釦をクリックすると　機械の動作に合わせてせると　50*50000程度のデータを読見込みます。読み終わると　現在のシート上のデータを消去して　新しいデータに変更するのですが　このとき　現在のデータを消去するVBAが　FOR　NEXTで作成すると　あまりにも　遅いので　範囲を選択して　DELキ操作のような　方法がないものでしょうか？　新しいデータを旧データに上書きすれば　旧のデータは自動的に消去可能です。しかし　新しいデータ数＜旧データ数の時は　古いデータを消去する必要があります。教えてください。
【64396】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？
発言  超初心者  - 10/2/2(火) 13:53 -
引用なし
パスワード
   ▼T生 さん：
マクロの記録で記録しました。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/2/2　ユーザー名 :
'

'
　　Cells.Select
　　Selection.ClearContents
End Sub


少し変えて
Sub Macro1()
　　Cells.ClearContents
End Sub

これでいかがでしょう。
【64397】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？
発言  超初心者  - 10/2/2(火) 14:17 -
引用なし
パスワード
   ▼T生 さん：
ついでにもうひとパターン＾＾

５０列（A:AX）を選択してクリアしてみました。
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2010/2/2　ユーザー名 :
'

'
　　Columns("A:AX").Select
　　Selection.ClearContents
End Sub


少し変更して
Sub Macro2()
　　Columns("A:AX").ClearContents
End Sub


参考までに
【64405】Re:ﾜｰｸｼｰﾄ上のデータ消去方法？
お礼  T生  - 10/2/3(水) 16:45 -
引用なし
パスワード
   うまく行きました。ありがとうございました。
また　ご指導よろしく。小生　初心者です。


▼超初心者 さん：
>▼T生 さん：
>ついでにもうひとパターン＾＾
>
>５０列（A:AX）を選択してクリアしてみました。
>Sub Macro2()
>'
>' Macro2 Macro
>' マクロ記録日 : 2010/2/2　ユーザー名 :
>'
>
>'
>　　Columns("A:AX").Select
>　　Selection.ClearContents
>End Sub
>
>
>少し変更して
>Sub Macro2()
>　　Columns("A:AX").ClearContents
>End Sub
>
>
>参考までに
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3103 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free