软件: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