ID非公開

2020/10/29 5:37

33回答

VBAで各セル内の文字数によって、それぞれのセルごとにフォントを変えたいです。

Visual Basic | Excel38閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

ID非公開

質問者

2020/10/29 13:17

ありがとうございます。 すみません、今後のためにお聞きしたいのですが、 フォントの大きさを4種類にした場合は変わってきますか? 4文字までは、フォントを20 5文字~10文字はフォントを16 11文字~16文字はフォントを12 17文字以上はフォントを10 のような場合なのですが。 宜しくお願い致します。

その他の回答(2件)

0

こういう書き方でもできます(´・ω・) Sub test() Dim key As Long, buf As Range For Each buf In Range("A2:Z20") key = Len(buf.Value) If buf.Row Mod 2 = 0 Then _ buf.Font.Size = IIf(key > 10, 11, IIf(key >= 5, 16, 20)) Next buf End Sub

ID非公開

質問者

2020/10/29 18:46

ありがとうございました。 なぜだか実行されませんでした。 勉強が足りずすみません。

0

シートのChangeイベントに以下を。 Dim R, C, L R = Target.Row C = Target.Column If (0 < R And R < 21) And (0 < C And C < 27) Then     If R Mod 2 = 0 Then         L = Len(Cells(R, C))         Select Case L             Case Is <= 4: Target.Font.Size = 20             Case 5 To 10: Target.Font.Size = 16             Case Is > 10: Target.Font.Size = 10         End Select     End If End If

ID非公開

質問者

2020/10/29 18:44

ありがとうございました。 なぜだか実行されませんでした。 勉強が足りなくすみません。