根据单元格值更改字体和颜色大小

Question

这与我在使用这个问题的搜索中发现的非常不同。

我希望能够根据某个范围的单元格值更改字体大小和颜色 (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

Answer 1

正如 BigBen 提到的，您需要向 RGB 提供 3 个参数，而 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