Soru Random metin renklendirme

[tukayf]

Merhabalar değerli hocalarım. Bu kod ile hücre rengi değiştirilebiliyor rastgele ancak yapmak istediğim hücre rengi yerine hücredeki metin renginin rastgele değişmesi. Pattern yazan yerleri font olarak değiştirdim ancak bir sonuç alamadım. Yardımcı olabilir misiniz. Şimdiden teşekkürler.

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

 

[dEdE]

Dener misiniz?

Sub TrimExcessSpaces()
    Dim rng As Range
    Dim WorkRng As Range
    Dim xRed As Byte
    Dim xGreen As Byte
    Dim xBule As Byte
    On Error Resume Next
   
    xTitleId = "Excel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   
    For Each rng In WorkRng
        xRed = Application.WorksheetFunction.RandBetween(0, 255)
        xGreen = Application.WorksheetFunction.RandBetween(0, 255)
        xBule = Application.WorksheetFunction.RandBetween(0, 255)
        rng.Font.Color = VBA.RGB(xRed, xGreen, xBule)
    Next
End Sub

 

[Necdet]

Merhaba,

rng.Font.Color = RGB(xRed, xGreen, xBule)

 

[Necdet]

geç kalmışım

 

[tukayf]

Değerli hocalarım çok teşekkür ederim her ikinize de. Çözümü bulmuşum aslında ama klavyenin q ya dönmesi nedeni ve ramazan kafasıyla fark edememişim. Çok teşekkür ederim.