エクセル、セル内英文字配置が微妙にズレている

判定をキーにしてセルの背景色を変える簡単なコードを書いています。
こんな感じ。

vba
1If reportWs.Cells(j, k).Value = judge And reportWs.Cells(j, k).MergeCells Then
2   reportWs.Cells(j, k).Interior.Color = RGB(0, 255, 0)
3ElseIf reportWs.Cells(j, k).Value = judge Then 
4   reportWs.Cells(j, k).Interior.Color = RGB(255, 0, 0)
5end if

そこでエラーが出るので調べるとjudgeの英小文字とreport.cells(j,k).valueのそれとの違いに気づきました。

これがそのgifです

問題なのはcells(2,1)の文字でcells(1,1)の左寄せとも、cells(3,1)の半角空白を先頭に付けたものとも微妙に違います。gifの数式バーをみるとよくわかります。これがエラーの原因で、急いでいたので元データのほうをコピペの上、左寄せに書き換えてから実行しましたが、なんだか気になっています。

➀半角空白でない
➁インデントは0
➂標準文字

上記が原因ではないことは分かっています。
お教えくださると幸いです。

行動規範の内容に同意します

回答5件

ベストアンサー

推測ですが、ノーブレークスペース（あるいはその変種）かなと思います。
詳細は下記参照。

ノーブレークスペース - Wikipedia

jawaさんの回答にもあるワークシート関数の CODE() で確認すれば、半角空白なら 60、ノーブレークスペースなら 160 になります。（変種は上記のWikipediaで確認してください。）

ちなみにVBAで確認するには、Asc関数ではなくAscW関数を使います。Asc関数はShif-JIS、AscWはUnicodeを返しますが、ノーブレークスペースはShif-JISにはないので、Asc関数だと?のコードを返します。

CODE()かAscW関数で文字コードを確認したら、

Replace(文字列, ChrW(160), "")

で削除できます。（160の部分は調べた文字コード）

ノーブレークスペース（またはその変種）はTRIMやCLEANでは削除できません。

投稿2019/03/25 06:42

hatena19

総合スコア33715

hokosugi

2019/03/25 08:50

ご回答ありがとうございます。予想通り、ノーブレークスペースでした。デバックで "?" が出たところでしっかり検索出来たら見つけることできたはずでした。ともあれ一つ賢くなりました、ありがとうございました。

行動規範の内容に同意します

Excel TRIM関数で消えない謎の半角スペースをVBAでなんとかする

↑これかな？
結局ここのhatena19さんのログに戻ってくるのかも？

この件に関しては、以前に「エクセルの学校」の掲示板でも話題になったような気がします。
対応策はそっちの方がいろいろな案が出てるかも？
あと、見えない文字を消すのは、ワークシート関数のClean関数が便利です。
が、今回の件の文字は消えないと思うので、あちこち探し回ってみるのも一案です。
（一応の解決案が見つかったところで、ベストの案という保証はないので、いろいろ見て回って、
見識を広げてみてください。）

自分で欲しい情報を探せるようになることも肝要です＾＾

投稿2019/03/25 04:21

mattuwan

総合スコア2136

hokosugi

2019/03/25 08:53

ご回答ありがとうございます。リンク先のとおり、ノーブレークスペースでした。自分で欲しい情報を探せるようになることも肝要です＾＾そうですね。精進いたします、ありがとうございました。

行動規範の内容に同意します

情報が不足しています

提示いただいた判定文のコードだけでは、reportWs.Cells(j, k).Valueや変数judgeにどんな値が入ってくるのかもわかりません。

実際の値も「文字」として提示されていませんし、添付の動画では見た目の違いしかわかりません。

これではろくなアドバイスもできませんよね？

推測込みのアドバイス

おそらくreportWs.Cells(j, k).Valueの(j,k)にはおそらく(2,1)などが入ってきて、変数judgeにはA1セルの値などが入っており、一致しないということだと思います。

提示いただいたコードを見る限り、値が一致していれば結合セルか否かに応じた色で着色する処理に入るので、そのどちらの処理にも入らないということですよね？

本当にこの2項が不一致となっているのなら、いかに見た目が似ていようともそれは「文字列として異なるもの」ということです。

ちなみにアドレスバーには書式設定にかかわらず、そのセルの内容が表示されますので、フォントサイズやインデントが異なってもaならaが同じように表示されるはずです。
しかし今回はアドレスバーに表示される内容が少しずつ異なっているようですので、実際に異なる値が入っているのは間違いないのでしょう。

確認のために

なぜ不一致と判断されているのか？

それを確認するためには、それぞれどんな文字を取得しているのかを把握する必要があります。
ExcelVBAerさんからの「文字コードを調べてください」というのもそういうことです。

考えられる要因はいくつかあります。

・全角/半角の違い
⇒フォントによっては全角/半角の違いが非常に見分けにくいものがあります。
ワークシート関数=LEN(A2)や=LENB(A2)で文字の桁数を確認してみてください。
半角のaであれば、LENが1、LENBも1となります。
全角のａであれば、LENが1、LENBが2となるはずです。
半角スペース＋半角aであれば、LENが2、LENBも2となるはずです。

・余分な文字が含まれている
⇒これはExcelVBAerさんのアドバイスにある文字コードを調べる方法で確認できます。
VBAで確認するならASC関数を使います。
ワークシート関数で確認するなら、=CODE(A2)などで確認してみてください。
対象セルの先頭文字の文字コードが確認できると思います。
例えば先頭が半角aなら97、全角ａなら9057、半角スペースなら32が返されるはずです。

まずはここらへんから確認して、現状を把握されてはどうでしょうか？

そのうえで「この状態のまま一致と判断させる」のか、「不要な文字を含まず、文字種も統一して、一致するような値をセルに入れる」のか、対応方針を決めればいいと思います。
↑ここらへんがnatoさんからのアドバイスの部分です。

参考になれば幸いです。

投稿2019/03/25 02:31

編集2019/03/25 02:49