こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

となります。

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

投稿日時 - 2010-09-11 19:03:25

QNo.6175096

暇なときに回答ください

質問者が選んだベストアンサー

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

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

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

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

投稿日時 - 2010-09-11 19:40:59

お礼

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

投稿日時 - 2010-09-12 22:02:08

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問