Заливка рандомных ячеек в заданном диапазоне, рандомным цветом - VB

Формулировка задачи:

Здравствуйте, как сделать так чтобы ячейки постоянно менялись?

Sub ГЉГ*Г®ГЇГЄГ*5_Г™ГҐГ«Г·Г®ГЄ()
Dim zap As Range
Dim i As Range
Set zap = Range("A1:E10")
For Each i In zap
i = Int(56 * Rnd)
Next i
End Sub

Решение задачи: «Заливка рандомных ячеек в заданном диапазоне, рандомным цветом»

textual
                            Листинг программы 
                        

                            Sub ГЉГ*Г®ГЇГЄГ*5_Г™ГҐГ«Г·Г®ГЄ()
 
    Dim RNG As Range
    Set RNG = Range("A1:E10")
 
    Dim RandomCell As Long
        RandomCell = Int(Rnd * RNG.Cells.Count) + 1
 
    With RNG.Cells(RandomCell)
        .Select
        .Interior.ColorIndex = Int(Rnd * 56) + 1
    End With
End Sub
                        

Оцени полезность:

11 голосов , оценка 3.727 из 5

Похожие ответы