No.3ベストアンサー
- 回答日時:
#2の回答者です。
>最低でもどのセルにUNICODE文字が含まれているか知りたい
ということで、#2のユーザー定義関数を利用した、シート全体を探すマクロを加えておきます。どちらも、標準モジュールを使います。
'//
Sub Macro_8996251()
Dim Rng As Range
Dim c As Variant
On Error Resume Next
Set Rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23)
If Err() <> 0 Then Exit Sub
On Error GoTo 0
For Each c In Rng.Cells
If CheckUNICODE(c.Value) = 1 Then
c.Interior.ColorIndex = 3
End If
Next c
End Sub
'///
No.2
- 回答日時:
UNICODE文字というのは、あくまでも、JISに対するUNICODEのみの文字ですね。
Excel VBAというのは、Excel 97の時にUNICODEに対応するようになったのに、未だにVBEditor は、JIS対応のようです。以下は、7年前に、そのUNICODEが、「?」になることを着目して作られたものです。UNICODE文字を直接ヒットするわけでありません。
文字列の中に、UNICODE文字が含まれてれば、1が返る
文字列の中に、外字が含まれていれば、2が返る
そうでなければ、0 になる、
というプログラムです。
'//
Function CheckUNICODE(ByVal txt As String)
Dim i As Integer
Dim c As String
For i = 1 To Len(txt)
c = Mid$(txt, i, 1)
If Asc(c) = 63 Then
If "?" <> txt Then
CheckUNICODE = 1 'Unicode
Exit Function
End If
ElseIf AscW(c) > -8193 And AscW(c) < -5887 Then
CheckUNICODE = 2 '外字
Else
CheckUNICODE = 0 '一般(JIS)
End If
Next
End Function
No.1
- 回答日時:
「UNICODE文字」とは何を意味していますか。
Windowsで扱える文字は,Symbolのような特殊なフォントに含まれるものとPrivate Use領域に定義した文字を除くと全てUnicodeに収録されている文字になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# VisualStudioのソースコードで漢字を使いたい 4 2022/05/21 10:16
- Windows 8 win8 "ベータ ワールドワイド言語サポートで Unicode UTF-8 を使用"を出したい 2 2023/05/23 19:57
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) Excelのリストにある文字を含むセルを、複数の色で色付けしたいです 2 2022/08/11 17:39
- Excel(エクセル) 幾何学模様のセル内貼り付け 1 2023/07/11 00:45
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- その他(プログラミング・Web制作) iMacのターミナルにユニコード文字を出す方法 2 2022/06/22 21:48
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excel上でどれが外字か調べたい
その他(コンピューター・テクノロジー)
-
アクセスで外字を探す方法
Access(アクセス)
-
エクセルで文字化けしているセルを検索するには?
Excel(エクセル)
-
-
4
VBAにて読み込みが出来ない環境依存文字 ㉖ の文字コードを教えて下さい。
Excel(エクセル)
-
5
VBAでUnicodeしか存在しない文字の判定について
Visual Basic(VBA)
-
6
[VBS] Unicodeの文字化けを防ぎたい
Visual Basic(VBA)
-
7
Unicodeの文字がどれか、調べたいです
Windows 7
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
StrConvでUnicodeに変換出来ない文字
Visual Basic(VBA)
-
10
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
11
Excel/Accessで画面に「・」と表示された文字のコードが知りたい。
Excel(エクセル)
-
12
複数あるPDFファイルのページ数を知りたい
フリーソフト
-
13
DATE型変数を初期化する方法
Visual Basic(VBA)
-
14
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
15
On ErrorでエラーNoが0
Visual Basic(VBA)
-
16
含まない言い方ってどうしたらいいんでしょうか
日本語
-
17
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
18
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
19
Accessのフィールド数が255しかない=業務では使えない?
PowerPoint(パワーポイント)
-
20
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのクエリで、replace関数...
-
GetDlgItemTextについて
-
文字列の後ろから必要分だけ削...
-
VS C++6.0のCString にて先頭1...
-
文字数と単語数を数えるプログラム
-
Windows formアプリで データグ...
-
特定のセルが空白だったら、そ...
-
ExcelVBAを使って、値...
-
VBAでセルをクリックする回...
-
ハッシュテーブル(連想配列)が...
-
Excelのセルの色指定をVBAから...
-
VBからEXCELのセルの値を取得す...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
【Excel】指定したセルの名前で...
-
ExcelのINDEXとMATCH関数でスピ...
-
Sub 要具ライフ() ActiveSheet....
-
VBAでActiveDirectoryのユーザ...
-
Excelで勤怠管理をしたいです。...
-
【VBA】配列に数式を仕込む方法...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリで、replace関数...
-
文字列の後ろから必要分だけ削...
-
UNICODE文字が含まれているかの...
-
ダブルクォーテーションを文字...
-
エクセル関数で記号から記号の...
-
文字列にアルファベットが何文...
-
awk で右端の文字を1文字削除...
-
strcmp( )関数について教えて...
-
C言語でギリシャ文字は使えます...
-
CSVの禁則文字
-
URLで使える文字・使えない...
-
vb.net IVSの漢字を1文字切り...
-
VS C++6.0のCString にて先頭1...
-
環境依存文字?をEnumで定義したい
-
GetDlgItemTextについて
-
アルファベットを含むランダム...
-
◆COUNTIF関数またはダブルクォ...
-
VB 文字判別
-
文字数と単語数を数えるプログラム
-
VBScriptでXcopyしたいのですが
おすすめ情報