[算表] VBA 依條件調整字體大小

[pointchi (pointchi)]

軟體: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://www.ptt.cc/bbs/Office/M.1625924952.A.38B.html
推 benedict76: 你可以用巨集錄製試試看程式碼。