Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
129 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81863】環境依存文字があると関数が動かないです すず 21/7/28(水) 16:44 質問[未読]
【81864】Re:環境依存文字があると関数が動かないです 山内 21/7/29(木) 10:12 回答[未読]
【81865】Re:環境依存文字があると関数が動かないです すず 21/7/29(木) 15:56 発言[未読]
【81866】Re:環境依存文字があると関数が動かないです 山内 21/7/29(木) 16:32 回答[未読]
【81869】Re:環境依存文字があると関数が動かないです すず 21/8/23(月) 15:18 お礼[未読]
【81863】環境依存文字があると関数が動かないです
質問  すず  - 21/7/28(水) 16:44 -
引用なし
パスワード
   セルに半角があるかチェックするために関数をEXCEL VBAで使っていますが、
環境依存文字（㊑とか）が入ると「全て全角ではありません」になってしまいます。
環境依存文字って全角ですよね？
環境文字列があると「vbFromUnicode」って使えないのでしょうか？
他にチェックする方法がありましたらお願いします。
基本、掲載名には環境依存文字が入るのですが半角全角チェックはVBAでしたいです。
下記が使っている式です。ご教授お願いします！！！

If LenB(対象文字列) > LenB(StrConv(対象文字列, vbFromUnicode)) Then
　　　　Range(対象文字列).Interior.ColorIndex = 22
　　　　MsgBox "■掲載情報" & f & vbCrLf & "新" & Range("E16")
& "が" & vbCrLf & "すべて全角ではありません。"
, vbCritical, "必須項目エラーあり"
【81864】Re:環境依存文字があると関数が動かない...
回答  山内  - 21/7/29(木) 10:12 -
引用なし
パスワード
   vbFromUnicodeはS-JISに変換するためS-JISに変換できない文字は正常に動作しません
if 対象文字列 <> Strconv(対象文字列,vbWide) thenとかじゃダメでしょうか
【81865】Re:環境依存文字があると関数が動かない...
発言  すず  - 21/7/29(木) 15:56 -
引用なし
パスワード
   ▼山内 さん：
>vbFromUnicodeはS-JISに変換するためS-JISに変換できない文字は正常に動作しません
>if 対象文字列 <> Strconv(対象文字列,vbWide) thenとかじゃダメでしょうか

vbwideだと確かにerrorではなくなりますが半角カナでもerrorではなくなってしまいます。。。( ;∀;)
【81866】Re:環境依存文字があると関数が動かない...
回答  山内  - 21/7/29(木) 16:32 -
引用なし
パスワード
   半角カナは半角だけど例外的にセーフってことですか？
それならS-JISにあるかどうかとか半角カナが含まれるかとか判定する関数を作る必要があるんじゃないでしょうか。
例外がどれだけあるのかこちらからはわからないのではっきりとした回答はできないです。
【81869】Re:環境依存文字があると関数が動かない...
お礼  すず  - 21/8/23(月) 15:18 -
引用なし
パスワード
   とりあえず、うまくできないのでこの件は終了します。
アドバイスありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
129 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free