[[20250424150841]]　『マクロにて〇をつけたり消したりしたい』（モッチー）　ページの最後に飛ぶ

『マクロにて〇をつけたり消したりしたい』（モッチー）

ボタンを作成し、そこにマクロを登録と考えています。

マクロでやりたいことはA1セルが空白でしたら〇、〇となっていたら空白と
押すたびに〇をつけたり、消したりしたいです。

そのマクロを教えてください。

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

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

何の意味があるんでしょう？
VBAの練習ですか？

 Sub a()
    With Range("A1")
        If .Value = "" Then .Value = "◯" Else .Value = ""
    End With
 End Sub
（ゆたか） 2025/04/24(木) 15:20:29

厳密に言えば？指定された内容とは違いますが、
セルの値には空白か◯しかないと想定しています。
（ゆたか） 2025/04/24(木) 15:22:17

 横から失礼します。

 Iifを使った方法です。

 Sub test()
  Range("A1").Value = IIf(Range("A1").Value = "〇", "", "〇")
 End Sub
（OK） 2025/04/24(木) 16:31:09

 Select Case [A1].Value
  Case "○": [A1] = ""
  Case "":   [A1] = "○"
 End Select

別案
（豆右衛門） 2025/04/24(木) 17:03:12

コメント返信：