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

看板Office作者 (pointchi)時間3年前 (2021/07/10 21:49), 編輯推噓1(100)
留言1則, 1人參與, 3年前最新討論串1/1
軟體: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

07/10 22:55, 3年前 , 1F
你可以用巨集錄製試試看程式碼。
07/10 22:55, 1F
文章代碼(AID): #1WwQLOEB (Office)