[[20200629165824]]　『文字数に応じてフォントサイズを変更したい』（キヅウェル）　ページの最後に飛ぶ

『文字数に応じてフォントサイズを変更したい』（キヅウェル）

C6にある文字列が18文字以下なら12pt、それ以外は10ptとしたいのですが、何文字でも12ptとなってしまいます。
どう修正したらよろしいでしょうか。

        If LenB(C6) / 2 <= 18 Then
            Range("C6").Font.Size = 12
        Else
            Range("C6").Font.Size = 10
        End If

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 ↓では？

 C6→Range("C6")
（OK） 2020/06/29(月) 17:13

If LenB(C6) / 2 <= 18 Then

C6という変数には何も格納されてないので、

 LenB(C6) / 2

は必ず0になります。

よって、

 If LenB(C6) / 2 <= 18

が必ずTrueになります。
（OK） 2020/06/29(月) 17:16

OK様
ありがとうございます。
If LenB(C6) / 2 <= 18 ThenをIf LenB(Range("C6")) / 2 <= 18 Thenにしたらうまくいきました。
たすかりました。
（キヅウェル） 2020/06/29(月) 17:22

コメント返信：