Microsoft Excel є однією з найпотужніших доступних програм для роботи з електронними таблицями, і вона корисна для різноманітних видів діяльності від фінансового аналізу до наукових проектів. Однак більшість людей вважають Excel обмеженим маніпулюванням сітками формул, тобто традиційною функціональністю електронних таблиць. Але сценарії Excel Visual Basic дозволяють легко зробити навіть більше. За допомогою VB ви можете малювати будь-яку фігуру, яка вам подобається, у електронній таблиці та використовувати їх для створення малюнків, діаграм та іншої графіки, щоб допомогти візуалізувати вашу електронну таблицю.
Крок 1
Відкрийте Microsoft Excel. Якщо у вас Excel 2007 або новішої версії, перейдіть на вкладку «Вид» на стрічці та натисніть «Макроси»; в іншому випадку натисніть меню «Інструменти» та виберіть «Макроси». Повинно з'явитися діалогове вікно Макрос.
Відео дня
Крок 2
Введіть назву макросу та натисніть «Створити». Це має відкрити редактор програм Visual Basic з новою порожньою підпрограмою, яка відображатиметься на екрані.
Крок 3
Визначте координати X і Y, які ви хочете використовувати для початку і кінця вектора. Верхній лівий кут електронної таблиці знаходиться на (0, 0), а X і Y збільшуються, коли ви рухаєтеся вправо і вниз відповідно. Помістіть ці значення в змінні, наприклад:
start_x = 0 start_y = 0 end_x = 100 end_y = 100
Ці значення матимуть діагональну лінію у верхньому лівому куті електронної таблиці. Можливо, вам доведеться поекспериментувати з різними числами, щоб отримати лінію саме там, де ви хочете.
Крок 4
Додайте код, щоб намалювати саму лінію:
рядок = Аркуш1.Фігури. AddLine (start_x, start_y, end_x, end_y)
Крок 5
Додайте код, щоб додати наконечник стрілки в кінець рядка, щоб він виглядав як вектор:
лінія. Лінія. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle
Крок 6
Закрийте редактор Visual Basic і відкрийте діалогове вікно Макрос (див. Крок 1). Натисніть свій макрос і натисніть «Виконати». Ви повинні побачити свою лінію.
Порада
Ви можете використовувати змінну "line", створену на кроці 4, щоб змінити інші властивості вашого вектора. Наприклад, щоб змінити колір лінії на зелений, ви можете написати «line. Лінія. ForeColor. RGB = RGB(0, 255, 0)"
