Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12566 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9859】セルの値のクリアについて テンさん 03/12/19(金) 14:02 質問
【9868】Re:セルの値のクリアについて INA 03/12/19(金) 15:36 回答
【9872】Re:セルの値のクリアについて テンさん 03/12/19(金) 15:42 お礼
【9876】Re:セルの値のクリアについて INA 03/12/19(金) 16:10 回答
【9859】セルの値のクリアについて
質問  テンさん  - 03/12/19(金) 14:02 -
引用なし
パスワード
   コマンドボタンでクリアボタンをつくり、クリックすると指定した範囲のセル内の値を消したいのですが、どのようにしたらいいのか分からないので、教えていただけませんか。
範囲の指定の仕方は、例えば、Ｂ５からＢ１０を消したい場合は、Ｂ５をクリックすると範囲がＢ５からＢ１０になり、クリアボタンをクリックするとその範囲のセル内の値が消える、という感じにしたいのですが、可能でしょうか？
【9868】Re:セルの値のクリアについて
回答  INA  - 03/12/19(金) 15:36 -
引用なし
パスワード
   ２種類の処理が混ざっています。

１．
セルをクリックすると、
アクティブセルから下方向へ５セルを選択する処理と、

２．
選択範囲をクリアする処理です。


−−−−−−−−−−−−−−−−−−−−−−

もし、アクティブセルから下方向へ５セル分をクリアであれば、

Private Sub CommandButton1_Click()
　　ActiveCell.Resize(5).ClearContents　　
End Sub

です。
【9872】Re:セルの値のクリアについて
お礼  テンさん  - 03/12/19(金) 15:42 -
引用なし
パスワード
   ありがとうございますm(__)m
そして、ごめんなさいっ！質問を間違えてしまいました。
Ｂ５からＢ１０ではなくて、Ｂ５からＩ５でした。縦ではなく横なのですが、その場合はどーしたらいいのですか？
【9876】Re:セルの値のクリアについて
回答  INA  - 03/12/19(金) 16:10 -
引用なし
パスワード
   ヘルプで Resize のページを読んでみて下さい。
あと削除は、「対象範囲を選択してDELキーを押す」操作を
マクロの自動記録すれば、コードは自動作成されます。

Private Sub CommandButton1_Click()

　　ActiveCell.Select
　　MsgBox ActiveCell.Address & " が選択されています。　次に、５列分 リサイズします。"
　　　　
　　ActiveCell.Resize(1, 5).Select
　　MsgBox Selection.Address & " が選択されてました。 次に、選択範囲をクリアします。"
　　
　　Selection.ClearContents
　　
　　MsgBox "選択範囲がクリアされました。"
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12566 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free