![...](/f/f713dfe4df2df3b47e51d8b8cf819e7f.jpg)
Microsoft Excel on üks võimsamaid saadaolevaid arvutustabeliprogramme ja see on kasulik väga erinevate tegevuste jaoks finantsanalüüsist teadusprojektideni. Kuid enamik inimesi arvab, et Excel piirdub valemite ruudustikuga manipuleerimisega, st traditsiooniliste tabelifunktsioonidega. Kuid Exceli Visual Basicu skriptimine muudab lihtsaks veelgi enama tegemise. VB abil saate joonistada arvutustabelisse mis tahes kujundeid, mis teile meeldivad, ning kasutada neid jooniste, diagrammide ja muu graafika loomiseks, mis aitab arvutustabelit visualiseerida.
Samm 1
Avage Microsoft Excel. Kui teil on Excel 2007 või uuem, minge lindil vahekaardile "Vaade" ja klõpsake "Makrod"; muul juhul klõpsake menüül "Tööriistad" ja valige "Makrod". Ilmuma peaks dialoogiboks Makro.
Päeva video
2. samm
Sisestage makro nimi ja klõpsake nuppu "Loo". See peaks avama Visual Basicu rakenduste redaktori, mille ekraanil kuvatakse uus tühi alamprogramm.
3. samm
Määrake X- ja Y-koordinaadid, mida soovite oma vektori alguse ja lõpu jaoks kasutada. Arvutustabeli vasakpoolses ülanurgas on (0, 0) ning X ja Y suurenevad, kui liigute vastavalt paremale ja alla. Pange need väärtused muutujateks järgmiselt:
algus_x = 0 algus_y = 0 lõpp_x = 100 lõpp_y = 100
Need väärtused tõmbavad arvutustabeli vasakpoolsesse ülanurka diagonaaljoone. Võimalik, et peate katsetama erinevate numbritega, et saada rida täpselt soovitud kohta.
4. samm
Joone enda joonistamiseks lisage kood:
rida = Leht1.Kujundid. Lisarida (algus_x, algus_y, lõpp_x, lõpp_y)
5. samm
Lisage kood, et lisada rea lõppu noolepea, et see näeks välja nagu vektor:
rida. Liin. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadTriangle
6. samm
Sulgege Visual Basicu redaktor ja avage dialoogiboks Macro (vt 1. sammu). Klõpsake oma makrol ja klõpsake nuppu "Käivita". Peaksite nägema oma rida.
Näpunäide
Saate kasutada 4. sammus loodud muutujat "joon", et muuta oma vektori muid omadusi. Näiteks joone värvi roheliseks muutmiseks võite kirjutada "line. Liin. ForeColor. RGB = RGB(0, 255, 0)"