作者pointchi (pointchi)
看板Office
标题[算表] VBA 依条件调整字体大小
时间Sat Jul 10 21:49:06 2021
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 118.168.51.218 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1625924952.A.38B.html
1F：推 benedict76: 你可以用巨集录制试试看程式码。 07/10 22:55