Excel VBA質問箱 IV

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

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


12611 / 13646 ツリー ←次へ | 前へ→

【9601】表 たかみ 03/12/10(水) 10:17 質問
【9602】Re:表 INA 03/12/10(水) 10:19 回答
【9604】Re:表 たかみ 03/12/10(水) 10:29 お礼
【9606】Re:表 たかみ 03/12/10(水) 10:48 質問
【9610】Re:表 INA 03/12/10(水) 11:49 回答
【9611】Re:表 たかみ 03/12/10(水) 12:07 質問
【9613】Re:表 INA 03/12/10(水) 13:14 回答
【9643】Re:表 たかみ 03/12/11(木) 15:10 お礼

【9601】表
質問  たかみ  - 03/12/10(水) 10:17 -

引用なし
パスワード
   ある数値がセルのE1からI20まで入っている表があります。コマンドボタンをクリックしてその数値を全て消して空欄にする、というのは可能でしょうか?可能ならば、教えてください。

【9602】Re:表
回答  INA  - 03/12/10(水) 10:19 -

引用なし
パスワード
   セル範囲を選択して、Delキーを押してください。
この操作をマクロの自動記録するとコードが自動作成されますので、
コントロールツールボックスのシートにコマンドボタンを配置して、
そのクリックイベントプロシージャにコピペすればできます。

【9604】Re:表
お礼  たかみ  - 03/12/10(水) 10:29 -

引用なし
パスワード
   ▼INA さん:
>セル範囲を選択して、Delキーを押してください。
>この操作をマクロの自動記録するとコードが自動作成されますので、
>コントロールツールボックスのシートにコマンドボタンを配置して、
>そのクリックイベントプロシージャにコピペすればできます。


ありがとうございます!やってみます!!

【9606】Re:表
質問  たかみ  - 03/12/10(水) 10:48 -

引用なし
パスワード
   実行時エラー'28':
スタック領域が不足しています。

と、なってしまうのですが、どうしたらよいのですか?

【9610】Re:表
回答  INA  - 03/12/10(水) 11:49 -

引用なし
パスワード
   どのようなコードで、どの行でエラーが発生しますか?

【9611】Re:表
質問  たかみ  - 03/12/10(水) 12:07 -

引用なし
パスワード
   ▼INA さん:
>どのようなコードで、どの行でエラーが発生しますか?

もう一度試してみたら、エラーは出なくなったのですが、以下のようになり、やっぱり出来ませんでした。
マクロの自動記録をして得たコード(以下)
'
' 値のクリア Macro
' マクロ記録日 : 2003/12/10 ユーザー名 : P021020e
'

'
  ActiveWindow.SmallScroll Down:=-3
  Application.Goto Reference:="値のクリア"
これを、コマンドボタンのクリックイベントにコピペしたのですが、コマンドボタンをクリックすると、Module2のコードが出てきて、そこに
Sub 値のクリア()
'
' 値のクリア Macro
' マクロ記録日 : 2003/12/10 ユーザー名 : P021020e
'

'
  ActiveWindow.SmallScroll Down:=-3
  Application.Goto Reference:="値のクリア"
  ActiveSheet.Shapes("CommandButton4").Select
  ActiveSheet.Shapes("CommandButton4").Select
  ActiveWindow.SmallScroll Down:=1
End Sub
というのが出てきてしまいました…。

【9613】Re:表
回答  INA  - 03/12/10(水) 13:14 -

引用なし
パスワード
   削除ですよね?

自動記録すると以下のようなコードが作成されるはずです。

Sub Macro1()
  Range("E1:I20").Select
  Selection.ClearContents
End Sub

フォームのボタンであれば、右クリックで Macro1 を登録する。

コントロールツールボックスのコマンドボタンなら、

Private Sub CommandButton1_Click()
  Range("E1:I20").Select
  Selection.ClearContents
End Sub

のようにすれば、動きます。

なお、コードは
  Range("E1:I20").ClearContents
のように、まとめることが出来ます。

【9643】Re:表
お礼  たかみ  - 03/12/11(木) 15:10 -

引用なし
パスワード
   何度ももしわけないです。ありがとうございましたっ!

12611 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free