Како цртати векторе у Екцел макроима

...

Мицрософт Екцел је један од најмоћнијих доступних програма за табеларне прорачуне и користан је за велики број активности од финансијске анализе до научних пројеката. Међутим, већина људи мисли да је Екцел ограничен на манипулисање мрежама формула, то јест, традиционалну функционалност табеле. Али Екцел-ов Висуал Басиц скриптовање олакшава још више од тога. Помоћу ВБ-а можете нацртати било који облик који вам се допада у табели и користити их за креирање цртежа, графикона и других графика који ће вам помоћи да визуелизујете своју табелу.

Корак 1

Отворите Мицрософт Екцел. Ако имате Екцел 2007 или новију верзију, идите на картицу „Приказ“ на траци и кликните на „Макрои“; у супротном, кликните на мени „Алати“ и изаберите „Макрои“. Требало би да се појави дијалог Макро.

Видео дана

Корак 2

Унесите име макроа и кликните на „Креирај“. Ово би требало да отвори уређивач апликација Висуал Басиц са новим празним потпрограмом приказаним на екрану.

Корак 3

Одредите координате Кс и И које желите да користите за почетак и крај свог вектора. Горњи леви угао табеле је на (0, 0), а Кс и И се повећавају како идете десно и доле, респективно. Ставите ове вредности у променљиве, овако:

почетак_к = 0 почетак_и = 0 крај_к = 100 крај_и = 100

Ове вредности ће нацртати дијагоналну линију у горњем левом углу табеле. Можда ћете морати да експериментишете са различитим бројевима да бисте добили линију тачно тамо где желите.

Корак 4

Додајте код да нацртате саму линију:

линија = Схеет1.Схапес. АддЛине (старт_к, старт_и, енд_к, енд_и)

Корак 5

Додајте код да бисте додали врх стрелице на крај реда, како би изгледао као вектор:

линија. Линија. ЕндАрровхеадСтиле = МсоАрровхеадСтиле.мсоАрровхеадТриангле

Корак 6

Затворите Висуал Басиц едитор и отворите дијалог Макро (погледајте 1. корак). Кликните на свој макро и кликните на „Покрени“. Требало би да видите своју линију.

Савет

Можете користити променљиву „лине“ креирану у кораку 4 да промените друга својства свог вектора. На пример, да бисте променили боју линије у зелену, можете написати „линија. Линија. ФореЦолор. РГБ = РГБ(0, 255, 0)"