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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Excel上でどれが外字か調べたい
その他(コンピューター・テクノロジー)
-
アクセスで外字を探す方法
Access(アクセス)
-
エクセルで文字化けしているセルを検索するには?
Excel(エクセル)
-
-
4
Excel/Accessで画面に「・」と表示された文字のコードが知りたい。
Excel(エクセル)
-
5
Unicodeの文字がどれか、調べたいです
Windows 7
-
6
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
7
StrConvでUnicodeに変換出来ない文字
Visual Basic(VBA)
-
8
VBAでUnicodeしか存在しない文字の判定について
Visual Basic(VBA)
-
9
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
10
半角記号、全角記号を含む正規表現を作れなくて困っています。
Java
-
11
VBAにて読み込みが出来ない環境依存文字 ㉖ の文字コードを教えて下さい。
Excel(エクセル)
-
12
レコード削除時に(サブ)フォームに表示される#Deleted"について"
Access(アクセス)
-
13
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
14
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
15
VBAで仕様書は書きますか?
Visual Basic(VBA)
-
16
外字の ・やハングル文字を一括検索したいのですが…
Excel(エクセル)
-
17
シングルクォーテーションを含む文字列の更新
Visual Basic(VBA)
-
18
『unicode形式の文字を含んでいる』と表示が・・・
その他(パソコン・スマホ・電化製品)
-
19
複数あるPDFファイルのページ数を知りたい
フリーソフト
-
20
ADODB.Streamを使用してUTF-8を出力
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UNICODE文字が含まれているかの...
-
Accessのクエリで、replace関数...
-
VS C++6.0のCString にて先頭1...
-
文字列の後ろから必要分だけ削...
-
URLとパラメータの区切り文字
-
awk で右端の文字を1文字削除...
-
文字列中のシングルクォートに...
-
文字列にアルファベットが何文...
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
ExcelのINDEXとMATCH関数でスピ...
-
VBA:小数点以下の数字を取得で...
-
Excel VBA、 別ブックの最終行...
-
ハッシュテーブル(連想配列)が...
-
Listviewのデータを上から順番...
-
【Excel VBA】指定行以降をクリ...
-
array関数で格納した配列の型を...
-
VBAで行削除できないようにする...
-
連続する複数のセル値がすべて0...
-
ListViewで複数選択された項目...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリで、replace関数...
-
文字列の後ろから必要分だけ削...
-
文字列にアルファベットが何文...
-
エクセル関数で記号から記号の...
-
ダブルクォーテーションを文字...
-
UNICODE文字が含まれているかの...
-
strcmp( )関数について教えて...
-
CSVの禁則文字
-
環境依存文字?をEnumで定義したい
-
GetDlgItemTextについて
-
URLで使える文字・使えない...
-
右から何文字目にあるか文字位...
-
C言語でギリシャ文字は使えます...
-
VB2008 文字列に等間隔にスペ...
-
awk で右端の文字を1文字削除...
-
PatternSyntaxException
-
8文字以上の文字を暗号化する方法
-
関数によって、MAX_PATHの値が...
-
VBからACCESSのレポートを印...
-
文字入れ可能なボタンの素材集...
おすすめ情報