【VBA】SelectionChange Replaceがうまく作動しない

Question

実現したいこと

将棋の駒をReplaceで変換したい

発生している問題・エラーメッセージ

エラー等は特に出ませんが、Replaceがうまく作動しません。
MsgBoxで”成りますか？”　YES選択前には数式バーに「桂」が表示されず、YES選択後に「桂」が数式バーに表示されているためかと思います。

コードが間違っているか、エクセルの仕様なのか判断がつきません。
また、何か対策等ありましたら、教えていただけると幸いです。

該当のソースコード

Private Sub Worksheet_SelectionChange(ByVal target As Range)

'中略

          If Range("A15").font.name = "@游ゴシック" Then
            target.font.name = "@游ゴシック"
            target.Orientation = 90
            target.Value = Range("A15")
            target.HorizontalAlignment = xlCenter
            Range("A15") = " "
            Range("A15").font.name = "游ゴシック"
            Range("A15").Orientation = 0
            
          Else
            target.ClearFormats
            target.Value = Range("A15")
            target.HorizontalAlignment = xlCenter
            Range("A15") = " "

’この部分です           
            MsgBox "成りますか？", vbYesNo
                If rc = vbYes Then
                    target.Value = Replace(target.Value, "圭", "桂")
                End If
                
          End If
End Sub

Answer 1

MsgBoxでYesがクリックされたかどうかを判定するのであれば、以下の部分で、MsgBox関数の戻り値を受け取る必要があります。

MsgBox "成りますか？", vbYesNo

次のように修正

rc = MsgBox("成りますか？", vbYesNo)

これで、どのボタンをクリックしたかが変数rcに入るので、そのあとのIFステートメントで判定できます。

Comments

[ninngin]

無事解決しました！
ありがとうございます！