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上でどれが外字か調べたい
その他(コンピューター・テクノロジー)
-
VBAにて読み込みが出来ない環境依存文字 ㉖ の文字コードを教えて下さい。
Excel(エクセル)
-
アクセスで外字を探す方法
Access(アクセス)
-
-
4
Unicodeの文字がどれか、調べたいです
Windows 7
-
5
VBAでUnicodeしか存在しない文字の判定について
Visual Basic(VBA)
-
6
エクセルで文字化けしているセルを検索するには?
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
9
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
10
StrConvでUnicodeに変換出来ない文字
Visual Basic(VBA)
-
11
VBAで仕様書は書きますか?
Visual Basic(VBA)
-
12
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
13
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
14
[VBS] Unicodeの文字化けを防ぎたい
Visual Basic(VBA)
-
15
エクセルのセル内の文字から、JISコードまたはシフトJISコードを知りたい
Excel(エクセル)
-
16
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
17
EXCELのVBAでLenB関数について
Excel(エクセル)
-
18
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
19
エクセルでセルの中身が漢字かどうか識別する方法は?
Excel(エクセル)
-
20
DATE型変数を初期化する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのクエリで、replace関数...
-
C言語について。
-
VBScriptでXcopyしたいのですが
-
文字列にアルファベットが何文...
-
C言語について。
-
関数によって、MAX_PATHの値が...
-
CSVの禁則文字
-
環境依存文字?をEnumで定義したい
-
ダブルクォーテーションを文字...
-
Excel VBA 差分用語抽出方法に...
-
表にフィルターをかけ、絞った...
-
テキストボックスのvalueとtext...
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
ExcelのINDEXとMATCH関数でスピ...
-
サーバ時刻の取得
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
VB.NETで DataRow()を利用して...
-
数値を通貨型に変換して(1000...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリで、replace関数...
-
文字列の後ろから必要分だけ削...
-
UNICODE文字が含まれているかの...
-
ダブルクォーテーションを文字...
-
文字列にアルファベットが何文...
-
エクセル関数で記号から記号の...
-
strcmp( )関数について教えて...
-
awk で右端の文字を1文字削除...
-
C言語でギリシャ文字は使えます...
-
右から何文字目にあるか文字位...
-
VBからACCESSのレポートを印...
-
文字数と単語数を数えるプログラム
-
VBScriptでXcopyしたいのですが
-
◆COUNTIF関数またはダブルクォ...
-
秀丸マクロで、ダブルクォーテ...
-
エクセルのマクロでセルに数式...
-
テキストの文字列検索で、検索...
-
CSVの禁則文字
-
環境依存文字?をEnumで定義したい
-
GetDlgItemTextについて
おすすめ情報