цвета

[Chip&Dale]

есть кнопка, которая раскрашивает заданные ячейки в разные цвета
Private Sub CommandButton1_Click()
For i = 1 To 20
For j = 1 To 10
Cells(i, j).Interior.Color = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())

Как сделать так, что в каждой ячейке отображалось шестнадцатиричное значение цвета в формате (R://, G://, B://). Понятно, что будет использоваться Hex(N), возможно понадобится функция Len(N) для посчета длины строки, но как это все скомпоновать

[EducatedFool]

Попробуйте такой вариант:

Sub test()
    Dim R As Byte, G As Byte, B As Byte
    ActiveSheet.UsedRange.Clear
    For i = 1 To 20
        For j = 1 To 10
            R = 255 * Rnd(): G = 255 * Rnd(): B = 255 * Rnd()
            Cells(i, j).Interior.Color = RGB(R, G, B)
            Cells(i, j) = "R:/" & R & "/, G:/" & G & "/, B:/" & B & "/"
        Next
    Next
    ActiveSheet.UsedRange.EntireColumn.AutoFit
End Sub

Пример в файле:

[nilem]

Есть вот такой примерчик от Дж. Уокенбаха. Может подойдет.

[Chip&Dale]

Все хорошо, но мне нужно чтобы в ячейках значение было уже переведено в шестнадцатиричное -R:33,G:CC,B:CC

[EducatedFool]

А не пробовали поменять одну строку кода?

Cells(i, j) = "R:" & Hex(R) & ", G:" & Hex(G) & ", B:" & Hex(B)

[Chip&Dale]

Черт...Извиняюсь за такие глупые вопросы