这与我在使用此问题的搜索中发现的发现有很大不同。
我希望能够根据范围的单元格值更改字体大小和颜色（RGB）。这将允许用户自定义表单（标题的大小和颜色，常规文本等）。
对于字体大小，下面的代码可以很好地工作，但是除非我在代码中指定颜色，否则它不适用于字体颜色。
单元格B1包含字体大小12，单元格B2包含255、255、0
Sub fontsizecolor ()
Dim rgb2 As String
rgb2 = ThisWorkbook.Worksheets("sheet1").Range("B2").Text
With Worksheets("Sheet1").Range("A1:A10")
.Font.Size = Range("B1")
'.Font.Color = RGB(255, 255, 0) **<---- this works**
.Font.Color = RGB(rgb2)
End With
End Sub
正如BigBen所述，您需要提供3个参数RGB，该Split函数才能为您实现。
在下面的示例中，我们从B2中获取文本，将其拆分并将元素存储到数组中。然后，我们只需将这些元素输入RGB：
Sub fontsizecolor()
Dim rgb2, rgbArray() As String
rgb2 = ThisWorkbook.Worksheets("sheet1").Range("B2").Text
rgbArray = Split(rgb2, ",") ' split string on ","
With Worksheets("Sheet1").Range("A1:A10")
.Font.Size = Range("B1")
.Font.Color = RGB(rgbArray(0), rgbArray(1), rgbArray(2)) ' feed array elements as arguments
End With
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句