[算表] VBA 依条件调整字体大小

楼主: pointchi (pointchi)   2021-07-10 21:49:06
软件:Excel
版本:2016
请教,我有一个程序,例如以下范例:
当执行程序时,D13储存格的内容字体会变大,我原本是想说用字符>= 28一个字体,
以下就用另一个字体大小,
可是后来发现因为字型的关系,一样的27字符,可是横幅却不一样(如D15以下的范例)。
请问我有办法固定字体大小,然后长度到达AR列(黄底)就自动换行,或者是自动调整字体
大小以不超过AR列为原则,两者其中一个方式皆可。
https://i.imgur.com/XRFIW9m.jpg
Sub step01()
a = Cells(13, 4)
If Len(a) >= 28 Then
Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
Worksheets("raw").Cells(13, 4).Font.Size = 35
Worksheets("raw").Cells(13, 4).Font.FontStyle = "粗体"
Else
Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
Worksheets("raw").Cells(13, 4).Font.Size = 48
Worksheets("raw").Cells(13, 4).Font.FontStyle = "粗体"
End If
End Sub
作者: benedict76 (ben)   2021-07-10 22:55:00
你可以用宏录制试试看程式码。

Links booklink

Contact Us: admin [ a t ] ucptt.com