Kuidas joonistada vektoreid Exceli makrodes

...

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)"