![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
マクロで特殊文字入力は出来ないのでしょうか?
やりたい内容は、セルをダブルクリックした時に✓を表示させたいのです。
セルをダブルクリックした時に○を表示するマクロが、下記の通りである時、
○の代わりに✓を表示させたいのですが、VBAで○の所に✓で書き換えると
?と表示されてしまいます。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Value = "○" Then
.Value = ""
Else
.Value = "○"
End If
End With
End Sub
No.2ベストアンサー
- 回答日時:
✓
Unicode:0x2713に定義されています。
Shift-JISでは扱えない文字です。
VBEはUnicodeに対応していないようで文字化けします。
ChrW関数を使います。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Cancel = True
If Target.value = "" Then
Target.value = ChrW(&H2713)
Else
Target.ClearContents
End If
End Sub
No.1
- 回答日時:
こんにちは。
フォントを変更してもokなのであれば、以下のような方法があります。
まず対象セル(✓を表示させたいセル)のフォントを Wingdings2 に変更します。
あとは、コードで"○"を半角大文字の"P"に変更します。
回答ありがとうございます。全てのセルのフォントがWingdings2で対応できたらよいのですが、基本のフォントはゴシックなので参考とさせて頂きました。
特殊文字の表示に関しては全く問題ないのですが、特殊文字のセルを自由にレイアウトできない点がネックです。(ToT)/~~~
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ダブルクリックでセルの色を変える 1 2022/12/24 15:52
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
VBAにて読み込みが出来ない環境依存文字 ㉖ の文字コードを教えて下さい。
Excel(エクセル)
-
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
-
4
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
5
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
6
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
7
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
8
マクロについて教えてください。 ファイル名を変更すると、デバックエラー
Word(ワード)
-
9
複数の文字列のいずれかが含まれていたらTRUEを返す関数について
Excel(エクセル)
-
10
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
11
エクセル VBA ワンクリックでチェックボックスにレ点が入ったりしなかったりしたい
Excel(エクセル)
-
12
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
13
Excel Vbaを使って 結合セルをダブルクリックでチェックマークしたいのですが手順を教えてくださ
Excel(エクセル)
-
14
excelのInitializeイベントとActivateイベントについて
Excel(エクセル)
-
15
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
-
16
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
17
vba 環境依存文字がListViewボックスに設定すると化ける
Visual Basic(VBA)
-
18
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
Excel VBA:フォーム←→セルのア...
-
エクセルでセルをクリックする...
-
Excelマクロ セルを行頭に移動
-
【EXCEL-VBA】特定の値の入った...
-
エクセルのセルの選択のことで
-
EXCELに画像を貼り付けマクロの...
-
エクセルマクロで「セルのサイ...
-
VBAでの SendKeysの変数指定方法
-
ファイルサーバー上のexcelファ...
-
マクロのデータ削除
-
Excel VBA で色付きのセルの値...
-
【マクロ】1つのセルから結合...
-
CutCopyMode範囲の取得方法につ...
-
エクセル、VBAで文字列から...
-
エクセル:セルの色のコード番...
-
VBA Rangeの足し算
-
(エクセルVBA)セルを左クリッ...
-
Excelで数値の変化をカウントし...
-
セルをクリックしたら色を変え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセルでセルをクリックする...
-
Excel VBA:フォーム←→セルのア...
-
VBAでの SendKeysの変数指定方法
-
Excelマクロ セルを行頭に移動
-
マクロのデータ削除
-
ダブルクリックでセルに色をつ...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
Excel VBA で色付きのセルの値...
-
【VBA】アクティブセルだけ背景...
-
excel マクロでの特殊文字入力方法
-
セルをクリックしたら色を変え...
-
(エクセルVBA)セルを左クリッ...
-
【マクロ】1つのセルから結合...
-
ExcelVBA コンボボックスに入力...
-
Excelのマクロで選択している行...
-
VBA Rangeの足し算
-
エクセル:セルの色のコード番...
おすすめ情報