Excelで入力数値の桁数に応じてフォントサイズを変える方法

質問

ＶＢＡの初心者です。
Excelで列幅＝３の、列数の多い表を作りました。
ある程度見やすいフォントサイズ９ｐにすると、桁数の多い数値が####となってしまいます。
その場合には、８ｐに変えて４桁まで見られるようにしたいのです。
そこで、下記のプロシージャを組み込んでみました。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, r As Range
Set r = Application.Intersect(Me.Range("B2:BJ10"), Target)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each c In r
If IsNumeric(c.Value) Then
If LenB(c.Value) > 5 Then
c.Font.Size = 8
Else
c.Font.Size = 9
End If
End If
Next c
Application.EnableEvents = True
End Sub

ところが、実際に数値を入れてみると、どういうわけか 1.2 など３バイトの数値も８ｐになってしまいます。
LenB(1.2)=3 であるのに、どういう現象なのかわかりません。
いきなり If LenB(c.Value) > 5 Then　としたのが間違っているのかと思うのですが、どう直したらよいか教えて下さい。よろしくお願いします。

回答No.2

ka_na_de · ベストアンサー

「書式」→「セル」→「配置」タグ→
文字の制御で「縮小して全体を表示する」にチェックを入れて「OK」

としてみてください。

お礼

ka_na_deさん　ありがとうございます。
ＯＫです。気付きませんでした。

回答No.4

zap35

UNICODEのせいですね
Ａ１セルに1.2と入力してワークシート関数で
=LENB(A1)
と入力すると「3」が結果として返りますが、VBAで
MsgBox(Cells(1,1).Value)
と入力すると「6」が返ります

If LenB(StrConv(c.Value ,vbFromUnicode)) > 5 Then
にしてやれば、当初の期待通りの動作をすると思います。あるいはLenbでなく、Len()で文字数を判定するのも手だと思いますが…

お礼

zap35さん　ありがとうございます。
> If LenB(StrConv(c.Value ,vbFromUnicode)) > 5 Then
はうまくいきませんでした。

> Lenbでなく、Len()で文字数を判定
これならＯＫでした。

回答No.3

ka_na_de

＃２です。

どうしても、マクロで記述したいなら、こうかな？

Sub Macro1()

　　Range("B2:BJ10").ShrinkToFit = True

End Sub

お礼

ka_na_deさん　ありがとうございます。

> Range("B2:BJ10").ShrinkToFit = True
はどの部分と入れ換えればよいのでしょうか。よくわかりません。

回答No.1

Nayuta_X

そんな難しい設定をしないで

Selection.Columns.AutoFit

***
解説;
そのセルを選択して、書式⇒列⇒選択範囲に合わせる。

を、実行するようにしたらどうですか??。

お礼

Nayuta_Xさん　ありがとうございます。
書き込み方が難しく、よくわかりませんでした。