Вы используете Эксель для создания и редактирования таблиц? Честно говоря, я тоже. Обычно. Но иногда хочется чего то необычно. Именно об этом эта статья. Кто сказал, что всем известный продукт от компании Microsoft нельзя использовать, чтобы, например, создать уникальное и необычно изображение? Сегодня именно этим мы и займемся:-).
Создавать мы будем именно картинку, представленную выше, но вы сможете самостоятельно поэкспериментировать и создать своё уникальное изображение. Итак, поехали.
Что нам нужно? Ну конечное, Эксель. Запускаем его. У меня установлена версия 2010 года, поэтому все скриншоты будут именно из этой версии.
Запустив программу, мы увидим чистую книгу и активный лист под названием "Лист1".
Далее необходимо перейти на вкладку "Разработчик" и нажать кнопку "Visual Basic" (см. рисунок ниже). Если у вас отсутствует кнопка "Разработчик", то вы можете написать в комментарии об этом, назвав свою версию Эксель и я подскажу, как её открыть, или вы можете найти об этом информацию самостоятельно через поиск.
В открывшемся окне редактора Visual Basic нужно два раза щелкнуть на кнопке "Эта книга" (см. рисунок ниже)
Далее вам необходимо выделить мышкой следующий код прямо из статьи:
Sub My()
Range("A1:KN300").RowHeight = 1
Range("A1:KN300").ColumnWidth = 0.1
Dim x, y As Integer
For x = 1 To 300
For y = 1 To 300
Worksheets("Лист1").Cells(x, y).Interior.Color = x * y
Next y
Next x
End Sub
и нажать на правую кнопку "Копировать" или комбинацию клавиш "Ctrl+C". Далее возвращаемся в редактор VisualBasic, ставим курсор на белое поле (см. рисунок выше) и нажимаем правую кнопку мыши "Вставить" или комбинацию клавиш "Ctrl+V". После этого мы должны получить вид редактора, как на нижеследующем рисунке. Далее нажимаем кнопку "Пуск" и любуемся картинкой в Экселе :-).
Хочу обратить внимание, что процедура может занимать некоторое время, особенно на слабых компьютерах. Коротко по коду, что он делает.
В первых строках для блока размером 300х300 ячеек меняется ширина и высота, чтобы они стали маленькими квадратиками. Далее последовательно перебираются все ячейки этого диапазона и закрашиваются цветом по некоему алгоритму. В нашем случае алгоритм такой, код цвета (максимальное значение цвета 16777215 ) равен произведению координаты х и у. Тут вы можете поэкспериментировать и создать свою уникальную картинку. Например, поменяв после знака равенства значение "x * y" на "Sin(x) + Cos(y)" и запустив программу снова мы получим картинку ниже.
Забавно, не правда ли? Обратите внимание на нижний рисунок. Если у вас что-то не получилось, не беда, задавайте вопросы и присылайте ваши уникальные изображения.
Удачи!
