Re: [VBA ] 這個寫法為何無法改變字體顏色?

[changyg (Bob)]

※ 引述《sde7w9xzo (4684694)》之銘言：
: 為何輸出結果，B欄只有字體變粗卻無法變色？
: http://i.imgur.com/YsQFImH.jpg
: http://i.imgur.com/q37Wmnf.jpg
: 這樣寫是希望一開時就把字體顏色粗細定義好，需要時就直接套用不用一直.font呼叫
: -----
: Sent from JPTT on my LGE LG-H962.

推 sde7w9xzo: 我的for迴圈內會有不同條件，底色跟文字顏色都不同，如
→ sde7w9xzo: 果單純複製貼上格式就要先預設十多種組合的儲存格，再
→ sde7w9xzo: 用if條件尋找，這樣應該不會比較快。不過還是感謝提供
不妨寫兩個 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
推 sde7w9xzo: 這方法好像可行，試試看
→ changyg: 不客氣，希望有幫上忙。