作者changyg (Bob)
看板Visual_Basic
标题Re: [VBA ] 这个写法为何无法改变字体颜色?
时间Wed Sep 12 16:03:47 2018
※ 引述《sde7w9xzo (4684694)》之铭言：
: 为何输出结果，B栏只有字体变粗却无法变色？
: http://i.imgur.com/YsQFImH.jpg
: http://i.imgur.com/q37Wmnf.jpg
: 这样写是希望一开时就把字体颜色粗细定义好，需要时就直接套用不用一直.font呼叫
: -----
: Sent from JPTT on my LGE LG-H962.
1F：推 sde7w9xzo: 我的for回圈内会有不同条件，底色跟文字颜色都不同，如 09/11 16:16
2F：→ sde7w9xzo: 果单纯复制贴上格式就要先预设十多种组合的储存格，再 09/11 16:16
3F：→ sde7w9xzo: 用if条件寻找，这样应该不会比较快。不过还是感谢提供 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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1536739429.A.D47.html
4F：推 sde7w9xzo: 这方法好像可行，试试看 09/16 19:41
5F：→ changyg: 不客气，希望有帮上忙。 09/16 20:07