重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

おしえて

VBAでクリアボタンのみ残してシートをクリアしたい

解決済

  • 質問者：pocara
  • 質問日時：
  • 回答数：1件

VBAでActiveXで作成したクリアボタンをクリックするとシートをクリアするVBAを組みたいです。

シートの中身はWEBページをコピー＆ペーストで張り付けたもので、セルに入力された文字や画像、オプションボタン、など様々なものがあります。

ActiveSheet.DrawingObjects.Delete
Worksheets("Sheet1").Cells.Clear

でやると全て消えてしまうので、特定のボタンを残す方法を教えて下さい。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： WindFaller
  • 回答日時：

こんばんは。



ご質問の意味が、実行されるボタンまでもが、削除されてしまうという意味なら、以下のようなスタイルにすればよいです。


Private Sub CommandButton1_Click()
Dim obj
Worksheets("Sheet1").Cells.Clear
For Each obj In ActiveSheet.DrawingObjects
　 If obj.Name <> "CommandButton1" Then
　 obj.Delete
　 End If
Next
End Sub
    • good
    • 1
    • 件
通報する
この回答へのお礼

お礼が遅くなり申し訳ありません。
無事できました。
ありがとうございました。

通報する
お礼日時：2018/11/10 17:34

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報