初っ端にボタンBをクリックしたり、
 立て続けにボタンBをクリックしたら、どうなるんですか？
 

こんな感じかな？

Sub ボタンA_Click()
    If Left(Range("Z200").ID, 1) <> "A" Then
        Randomize
        Range("Z200").ID = "A" & Round(Rnd(), 0) + 1
    End If
    
    MsgBox Right(Range("Z200").ID, 1)
End Sub

Sub ボタンB_Click()
    If Range("Z200").ID = "" Then
        Exit Sub
    ElseIf Left(Range("Z200").ID, 1) <> "B" Then
        Range("Z200").ID = "B"
        MsgBox "Bの処理"
    End If
End Sub

どのボタンをクリックしたのか、確率2分の1の出目は何だったのかについて
何処かに覚えさせておかないとならないので、上のコードでは、
Z200セルのIDプロパティに文字列型で書きこんでいます。


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

半平太さんへ

お返事が大変遅くなり、申し訳ございません。

希望通り動いたのですが、どうしても最初の1行から意味が理解できません。

If Left(Range("Z200").ID, 1) <> "A" Then

私にはIDプロパティは初めてでして、検索したのですが、html関連のサイトしか見当たらず、これがどんな働きをするのか、なぜこれをか使わなければならないのか、他の書き方ではだめなのか、皆目検討がつきません。

値としてはA1かA2のみがはいるようですが、仕組みがわからないのです。

申し訳ございませんが、上の1行だけで構いませんので、解説いただけますか。

＞私にはIDプロパティは初めてでして、
余り活用されることがないプロパティです。

＞なぜこれをか使わなければならないのか、他の書き方ではだめなのか、皆目検討がつきません。
これじゃなければだめと言うことはないですが、
以下の点はどう対処するお積りか教えてください。(どうすれば対処できるのか）

１．最初にボタンがクリックされたとき、
　(1)Aならサイコロを振る、
　　でも、最初のAかどうか、どう判断しますか？

　(2)Bなら何もしない。
　　でも、最初のBかどうか、どう判断しますか？

２．同じボタンが2回続けてクリックされたとき、
　(1)Aなら以前の出目を表示する。
　　a. Aの2回目かどうか、どう判断しますか？
　　b. 以前の出目は、どうやって出しますか？(以前の出目はどこにあるんですか？）

　(2)Bなら何もしない。
　　Bの2回目かどうか、どう判断しますか？

半平太さん

お返事が大変遅くなり申し訳ありません。書き方が悪く、他のコードを要求しているかのように聞こえたのならお許しください。そういう意図ではございません。一つ上の半平太さんが質問くださった内容につきましては、確かにその通りと納得しているのですが、IDプロパティの働きが全くわからず、ゆえにコードの1行目から何を行なっているのかがわからないのです。

あわせてIDプロパティはもちろんのこと、なぜ "A" や "B" が登場するのか（Aボタン、Bボタンというのは質問時に書いたのですが、ボタンとして"A"や"B"として登録はしていませんし、ボタン上にもテキストとして表示していません。なのになぜ文字列として登場したのか？）

昨日わたしが考えている内容にあわせて活用させていただき修正をしていたのですが、Aボタンのクリック時の最後にあるMsgBoxの内容を別の動作に書き換えたいのですが、これをEnd Ifの前に置いたら期待する動作が得られません。IDの働きや"A", "B"がなぜ登場するのかが理解できていないからだと思います。

ぜひご指導いただきたいです。

＞他のコードを要求しているかのように聞こえたのならお許しください。
そこまで勘違いはしておりません。
今回の仕様を満たすためには、どんな仕掛けが必要なのか、ご自身であれこれ考えて貰いたかったものです。

簡単に結論を言えば「どこかにクリックの痕跡と出目をメモっておく必要がある」と言うことですが、
それだけなら、セルにでも書き出しておけばいいですね。

けど、ファイルを保存して閉じ、再度オープンしたら、
前回時の痕跡が消去されていないので意図に反する挙動になりますよね。

この問題をどう解決するか？
ブックのオープンイベントで対処するのか、モジュールレベルの変数を使用して対処するのか。
※ただし、モジュールレベルの変数は、いつ勝手にクリアされるか分からないので
　今回の様な目的での使用は、Microsoft社は推奨していません。

そこで、私としてはセルのIDプロパティに書くのが手間なくていいと考えたものです。
　オープン時には、前回のIDプロパティは消えている。
　使っている間は、消えることがない(ハズ) 。
　どこのセルのIDにするかは悩ましい。今回はZ200にしてみた。その辺なら無害であろうと・・）。

＞なぜ "A" や "B" が登場するのか（Aボタン、Bボタンというのは質問時に書いたのですが、
＞ボタンとして"A"や"B"として登録はしていませんし、ボタン上にもテキストとして表示していません。
＞なのになぜ文字列として登場したのか？）
どっちのボタンが前回クリックされたのか、それを識別する為です。
文字列にしたのは、IDプロパティが文字型なので、そうならざるを得ません。
なお、数字(文字型)から数値型へ変換する必要があるなら、Val() 関数を噛ませればいいです。

こう言うのはアイデア次第なので、自分で工夫する部分です。

＞Aボタンのクリック時の最後にあるMsgBoxの内容を別の動作に書き換えたいのですが、
＞これをEnd Ifの前に置いたら期待する動作が得られません。
MsgBoxをEnd Ifの前に置いたら、サイコロを振った時しか表示されませんけど・・？
当初の仕様は、これですよね？（同じ出目を出続けさせたいんじゃなかったですか）
　　　　　　　　↓　　　
＞ボタンAを何度クリックしても、ボタンAを最初にクリックしたときに表示された数字が出続け、

この記事にはVBAのコードが含まれています。

<FONT COLOR='green'>緑の太文字→注釈
<FONT COLOR='brown'>茶色の太文字→条件分岐
<FONT COLOR='red'>赤の太文字→ループ
<FONT COLOR='BLUE'>青の太文字→その他


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞値としてはA1かA2のみがはいるようですが、仕組みがわからないのです。
 初期状態なら、 ""
 Aをクリックしたら、A1かA2
 Bをクリックしたら、B
 
その痕跡があれば、前回クリックされた状態が分かります。
前回の状態が分かれば、今回、どっちのボタンがクリックされたら、どう対処すべきか判断できます。