@podkudahka
крутой

Можете помочь сделать рисунок в VBA?

Sub Узор() 
Range("A1").Interior.ColorIndex = Rnd() * 8 
Range("B1").Interior.ColorIndex = Rnd() * 8 
Range("C1").Interior.ColorIndex = Rnd() * 8 
Range("D1").Interior.ColorIndex = Rnd() * 8 
Range("A2").Interior.ColorIndex = Rnd() * 8 
Range("B2").Interior.ColorIndex = Rnd() * 8 
Range("C2").Interior.ColorIndex = Rnd() * 8 
Range("D2").Interior.ColorIndex = Rnd() * 8 
 
Range("A1").Copy: Range("H1").PasteSpecial 
Range("B1").Copy: Range("G1").PasteSpecial 
Range("C1").Copy: Range("F1").PasteSpecial 
Range("D1").Copy: Range("E1").PasteSpecial 
 
Range("A2").Copy: Range("H2").PasteSpecial 
Range("B2").Copy: Range("G2").PasteSpecial 
Range("C2").Copy: Range("F2").PasteSpecial 
Range("D2").Copy: Range("E2").PasteSpecial 
 
Range("A1:H2").Copy: Range("A3").PasteSpecial 
Range("A1:H4").Copy: Range("A5").PasteSpecial 
Range("A1:H8").Copy: Range("9").PasteSpecial 
Range("A1").Select


End Sub
1.1. Создайте в имеющемся модуле процедуру Цветок(), продолжив ниже новый текст. Код программы закрашивает стебель цветка в зеленый цвет, а для лепестков генерирует цвета в пределе 56.
  • Вопрос задан
  • 73 просмотра
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
ЮГПА Ростов-на-Дону
от 130 000 до 170 000 ₽
Сигнатек Новосибирск
До 200 000 ₽
Uptrade Москва
от 200 000 до 200 000 ₽