[算表] 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