Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1652 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【72827】楕円クリア show 12/9/23(日) 4:54 質問[未読]
【72828】Re:楕円クリア かみちゃん 12/9/23(日) 8:40 発言[未読]
【72829】Re:楕円クリア show 12/9/23(日) 9:57 質問[未読]
【72830】Re:楕円クリア かみちゃん 12/9/23(日) 10:21 発言[未読]
【72872】Re:楕円クリア show 12/9/27(木) 6:29 質問[未読]
【72827】楕円クリア
質問  show  - 12/9/23(日) 4:54 -
引用なし
パスワード
   クリアボタンにて図形のみを選択し、クリアしたいのですが、何度やってもうまくいきません。
例えば、A1のセル内に【はい・いいえ】とあり、ダブルクリックをすると【はい】を楕円で囲み、次のダブルクリックで【いいえ】を楕円で囲むように組んであります。
現状では、クリアボタンを使用すると楕円がクリアされず、【はい・いいえ】がクリアされてしまいます。

どなたか、楕円のみを選択しクリアできるようお知恵をお貸しください。

よろしくお願い致します。
【72828】Re:楕円クリア
発言  かみちゃん  - 12/9/23(日) 8:40 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 現状では、クリアボタンを使用すると楕円がクリアされず

現状のコードを見せていただいて、それをどこのモジュールに書いているのかを
教えていただけますか？

クリアボタンと言っていますが、
キーボードではないですよね？
単に、フォームのボタンか、コントロールツールボックスのCommandButtonのいずれかのことではないでしょうか？
【72829】Re:楕円クリア
質問  show  - 12/9/23(日) 9:57 -
引用なし
パスワード
   ▼かみちゃん さん：

はい。その通りです。

コントロールツールボックスで作成したボタンのことです。

その作成時でかみちゃんさんに教えて頂いた下記のコードを引用し、使用できないものかと検討しましたがうまくいきません。


Sub クリア()
'
' 楕円クリア Macro
' 入力領域をクリアするマクロ
'
'
　Range("A1").Select
　 Selection.ClearContents
　 End Sub

上記ではA1となっていますが、機器の点検用紙の状態表示として使用する予定なので楕円囲みになる箇所が結構あり、クリアボタンを作成し一度に楕円のみを削除できると使い勝手がいいので検討しています。

私ではわからないのでご教授願います。
【72830】Re:楕円クリア
発言  かみちゃん  - 12/9/23(日) 10:21 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 楕円のみを削除

一度にたくさんのことをしようとせずに、一歩ずつ確認してみませんか？
まず、「楕円のみを削除」を手作業でしてみてください。
それでできるようになれば、その操作を「マクロの記録」で記録してみてください。
それで、わからないことがあれば、その記録したコードを提示してみてください。

たぶん、全然違うコードが得られると思います。

ちなみに
提示されたコードは、A1セルの値を消去するのであって、楕円を削除するものではありません。
【72872】Re:楕円クリア
質問  show  - 12/9/27(木) 6:29 -
引用なし
パスワード
   ▼かみちゃん さん：

おはようございます。

あれから考察してみましたが、実行できません。
以下のコードで不具合箇所をご指導願います。


楕円をクリア
'
'楕円をクリア　Macro

'
　Application.Goto Reference:="楕円をクリア"

End Sub


よろしくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1652 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free