Re: [VBA ] 這個寫法為何無法改變字體顏色?
: 這樣寫是希望一開時就把字體顏色粗細定義好，需要時就直接套用不用一直.font呼叫
: -----
: Sent from JPTT on my LGE LG-H962.
推
09/11 16:16,
09/11 16:16
→
09/11 16:16,
09/11 16:16
→
09/11 16:16,
09/11 16:16
不妨寫兩個 Sub 如何？
Sub test3()
Dim i As Integer
With Sheets("工作表1")
For i = 1 to 10
Call myFont(.Cells(i,"b"))
Next i
End With
End Sub
---------------------------------------
Sub myFont(a as Range)
a.Value = 2
a.Font.Color = -39675
a.Font.TintAndShade = 0
a.Font.FontStyle = "粗體"
End Sub
----------------------------------------
若要更多的字型組合，就設定多組 myFont_1, myFont_2 ...
再使用 Call myFont_1() 以此類推。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.24.16.128
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1536739429.A.D47.html
推
09/16 19:41,
6年前
, 1F
09/16 19:41, 1F
→
09/16 20:07,
6年前
, 2F
09/16 20:07, 2F
討論串 (同標題文章)
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
