[[20190816104620]]　『環境依存文字（unicode）の入力禁止』（かば）　ページの最後に飛ぶ

『環境依存文字（unicode）の入力禁止』（かば）

お世話になります。
宜しくお願いします。

漢字変換のためスペースキーを押下した際に「環境依存文字（unicode）」と表示される文字がセルに1文字でも含まれる場合、セルの色を赤色にするように設定したいと考えております。

環境依存文字（unicode）の例：刘

条件付書式を利用することになるかと思うのですが「環境依存文字（unicode）」を指定する方法が分かりません。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 UDF
 標準モジュールへ

 Function PDC(ByVal txt As String) As Boolean
     With CreateObject("VBScript.RegExp")
         .Pattern = "[\u2121\u2116\u2150-\u2182\u2460\24EF\u2600-\u266F\u3220-\u324F\u3280-\u33ff]"
         PDC = .test(txt)
     End With
 End Function

 条件付き書式の数式例

 =PDC(A1)
（seiya） 2019/08/16(金) 13:03

（seiya）様
ありがとうございます。ご返信が遅れて申し訳ありません。
ご教示いただいた方法で望んでいることが全て実現できるかの検証に時間がかかっていました。

今回は、VBAで範囲を指定する方法ではなく、以下の関数で対応する方向で検討します。

=SUMPRODUCT(
　IF(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)="?",0,1),
　IF(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=63,1,0))<>0

ありがとうございました。
（かば） 2019/08/22(木) 17:39

コメント返信：

[ 一覧(最新更新順) ]

[[20190816104620]] 『環境依存文字（unicode）の入力禁止』（かば） ページの最後に飛ぶ

[[20190816104620]]　『環境依存文字（unicode）の入力禁止』（かば）　ページの最後に飛ぶ