記号をマクロで記録することは不可能か？

質問

記号をマクロで記録することは不可能か？

エクセル２００３を使用しています。
マクロの記録→挿入→記号と特殊文字で
ハートを挿入し、マクロの記録の終了をして標準モジュールを見たのですが

Sub Macro1()
ActiveCell.FormulaR1C1 = "?"
Range("a1").Select
End Sub

となります。

セルにはハートが入っています。
そのあと、Macro1を実行すると、?がセルに挿入されました。
ＶＢＡで記号を挿入することは不可能のなのでしょうか？

回答No.1

xls88 · ベストアンサー

VBEがUnicode文字セットに対応していないので文字化けします。
「記号と特殊文字」で、ハートの文字コードが2661ということが解ります。

ChrW関数で
ActiveCell.Value = ChrW(&H2661)

とすれば、ハートに変換入力されます。
文字コードの前の&Hは16進数字を扱うおまじないです。

念のためですが、下記でも大丈夫です。
ActiveCell.FormulaR1C1 = ChrW(&H2661)

お礼

できました
ありがとうございました。