根據單元格值更改字體和顏色大小

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