【EXCEL2010/クリアボタンを設置する】

クリアボタンを設置し、ボタンを押すと

例えばA1とB１に入力された文字がクリアされるようにしたいです。

よろしくお願いします。

No.3 ベストアンサー 回答者： tom04 回答日時： 2013/11/24 19:38

続けてお邪魔します。

No.2の補足に関して・・・

＞結合セルが多数ある場合はどのような式になりますか？
＞（"B2,L5,G10"）と入力してもエラーになります。

ClearContentsを使う場合は結合セルの最後のセルまで指定しないとダメのようなので
手っ取り早く
Range("B2,L5,G10") = ""
としてみてはどうでしょうか？

※　厳密にいえば　""　は長さ0の文字列を代入する！という意味になりますので、
ClearContents　と若干意味が違うかもしれません。

Range("B2,L5,G10") = Empty

とした方が正解なのかもしれませんが、
その辺は結果オーライでごめんなさい。m(_ _)m

No.2 回答者： tom04 回答日時： 2013/11/23 12:08

No.1です。

＞B2：G3までのセルを結合し、”エリア”と名前をつけた場合

セルを結合なおかつ、名前定義しているというコトですね？

結合セル番地が判っているのであれば
＞Range("B2").MergeArea.ClearContents

敢えて名前定義を使用する場合、無理やりやれば
＞Range("エリア") = Null

といった感じでしょうかね！m(_ _)m

この回答への補足

ありがとうございます！

初歩的な質問させていただきます。

結合セルが多数ある場合はどのような式になりますか？

（"B2,L5,G10"）と入力してもエラーになります。

補足日時：2013/11/24 08:13

No.1 回答者： tom04 回答日時： 2013/11/20 22:32

こんばんは！

ごくごく簡単に・・・
一例です。

「開発」タブ　→　挿入　→　ActiveXコントロールを選択　→　コマンドボタンを挿入
→　挿入したコマンドボタン上でダブルクリック　→　↓のコードの2行目だけを入力

Private Sub CommandButton1_Click()
Range("A1:B1").ClearContents
End Sub

として、デザインモードを終了してください。
以上で完了です。

※　フォームコントロールのボタンでもコードは一緒です。m(_ _)m

この回答への補足

ありがとうございます。

例えばなのですが、結合されたセルの場合はどのようになるのでしょうか？

B2：G3までのセルを結合し、”エリア”と名前をつけた場合はどのようになるのでしょうか？

よろしくお願いいたします。

補足日時：2013/11/22 23:02