A1セルに(ナ)という文字を入力、消去するマクロ

質問

A１セルに、ボタンを押すたびに(ナ)という文字が入力と消去を交互にしてくれる
ボタンを作りたいです。調べても、入力するボタン、消去するボタンの作り方
しかありません。。。

回答No.2

keithin · ベストアンサー

そんなに大仰なマクロにしなくても

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
range("A1") = iif(range("A1") = "(ナ)", "", "(ナ)")
end sub

ファイルメニューから終了してエクセルに戻る

シートにオートシェイプの図形でボタン絵柄を作成する（○とか□でなかに「ボタン」とテキストを追加するぐらいで全然ＯＫ）
右クリックしてマクロの登録を開始、準備したマクロを登録する。

ぐらいでもＯＫです。

＞調べても、入力するボタン、消去するボタンの作り方…

エクセルには「ボタン」として使えるモノとして
・オートシェイプやJPGやGIF画像
・コントロールツールボックス（ActiveXコントロール）のコマンドボタン
・フォームコントロールのコマンドボタン
などを利用する事ができます。

具体的にどれを使って準備するかに応じて、具体的な作成の手順とか用意するマクロの書き振りとかが変わるので、ごっちゃにしないようによく気を付けてください。

＞…しかありません

ちなみに具体的なマクロの書き振りも、実際に何をしたいのか、言ってしまえばアイデア次第で千差万別変わります。

回答のようにあれとこれを交互に記入するような方法でも実現できます。
「ナ」は記入しっぱなしにしておいて、書式だけで現れたり見えなくなったりを繰り返すような方法も考えられます。

ご相談で書かれているように、Ａ１セルに記入したり消去したりというのも勿論一つの方法です。「入力する」「消去する」のサンプルマクロを見つけていたなら、あとは単にそれを組み合わせて、実際にあなたがヤリタイことに応用します。（ネットとかで「ヤリタイ事に完全にミートするコタエ」を探すのは、結構時間の無駄です）

お礼

ご回答ありがとうございます！
keithinさんのシンプルなマクロに圧巻ですm(__)m
ボタンの種類によってマクロの作り方が異なるのですね！
勉強になりました♪
なるほど。。そのようないろいろな方法があるのですね。。
全く勉強不足でお恥ずかしい限りです；
ご丁寧な回答に感謝いたします(*^_^*)

回答No.1

tom04

こんにちは！

＞ボタンを押すたびに(ナ)という文字が入力と消去を交互にしてくれる・・・

直接A1セルをダブルクリック等で操作する方法もありますが、
今回は「ボタン」がご希望だというコトですので

メニュー　→　開発　→　挿入　→　Active Xコントロールの「コマンドボタン」を挿入
→　挿入したコマンドボタンをダブルクリック　→　↓のコードにしてみてください。

Private Sub CommandButton1_Click()
With Range("A1")
If .Value = "" Then
.Value = "（ナ）"
Else
.Value = ""
End If
End With
End Sub

これでExcel画面に戻り、デザインモードを解除して完了です。
こんな感じではどうでしょうか？m（_ _）m

お礼

ご回答ありがとうござます！
参考にさせていただきます♪