Az excel makrók egyszerűek
Nemrégiben tesztelési feladatot végeztem, amelyben a következőket kellett tennie: "Excelben automatizálja a számítást, a build függvényérték táblázatokat és grafikákat. Az építés a gomb megnyomásával kezdődik. Egy y = 4 * (i + 2) ^ (2/3) függvényt, kezdeti és végleges koordinátát, valamint egy számítási lépést is adtak. Hogy kell nézni, meglehetősen gyorsan bemutattam.
Gyorsan, érett matematikai algoritmussal rendelkezem a feladat végrehajtására.
De nem tudtam, hogyan lehet inicializálni és hozzáadni egy diagramot a VBA használatával.
Ezért annak érdekében, hogy megértsük, miként lehet beilleszteni egy diagramot egy munkalapba egy makrót használva, vettem és írtam egy ilyen makrót. Vagyis a "Nézet" lapon megtaláltam a "Makrók" és a "Makrófelvétel" opciót. Ezután hozzáadtam egy diagramot a munkalaphoz, és kiválasztottam a diagram adatsorát, általában kaptam a következő kódot:
Itt azt látjuk, hogy a vonal «ActiveSheet.Shapes.AddChart.Select» közvetlenül hozzáadja a menetrend, a következő sorban «ActiveChart.ChartType = xlXYScatterSmoothNoMarkers» meghatározza annak típusát. «ActiveChart.SeriesCollection.NewSeries» - hozzáad egy új adat tartomány ( „sorozat”).
Húr «ActiveChart.SeriesCollection (1) .name = "= "" y """» nevét adja meg, a grafikon az ábrán, és a vonal «ActiveChart.SeriesCollection (1) .XValues = "= Munka1! $ A $ 1 :! $ A $ 8" , ActiveChart.SeriesCollection (1) .Values = „= Munka1! $ B $ 1 :! $ B $ 8 '' - ez mozog«x értékek»és«y».
A lapon egy szembetűnő rajzot kaptunk.
Most már tudni, hogy melyik vonalat kívánja használni, könnyű megváltoztatni őket, és testreszabni őket az Ön igényeinek megfelelően.
Először hozzon létre egy munkadarabot a makróhoz, nevezetesen adj hozzá egy gombot (a "Fejlesztői" fület), és rögzítse a kezdeti adatokat a számításokhoz.
Rendben van. Ezután írja be a makró kódját.
x1 = Cella (1, 2) .Value
x2 = Cella (2, 2) .Value
shag = Cellák (3, 2) .Value
I = x1 x2 lépéshez
y = 4 * (i + 2) ^ (2/3)
Cellák (j, 3) érték = i
Cellák (j, 4) .Value = y
ActiveChart.SeriesCollection (1) .Name = "=" "Funkciógrafika" ""
ActiveChart.SeriesCollection (1) .XValues = tartomány ("C" 1, "C" j)
ActiveChart.SeriesCollection (1) .Values = tartomány ("D" 1, "D" j)
Beszéljük meg a kód néhány aspektusait.
"Oszlopok (" C: D "). ClearContents" - mi lesz törölni a tartomány előtt, hogy írjon valamit.
A "Cells (1, 10) .Select" egy javítás, anélkül, hogy a grafikon helytelenül jeleníthető meg.
A "For" hurok végrehajtása addig történik, amíg "i" egyenlővé válik az "x2" végértékével.
Miután elmentette a makrót, menjen a korábban hozzáadott gombunkhoz, és rendelje hozzá egy makrót (jobb gombbal kattintson a gombra, majd rendeljen hozzá egy makrót).
Csak a gomb megnyomásával és az eredmények megtekintésével marad.
Minden nekünk dolgozik, így mindent megtettünk. Így tanulmányoztuk egy makró sikeres átvételét, emlékezünk arra, hogy miként adhatunk hozzá egy diagramot, kitaláltuk, hogyan hozzárendelhet egy makrót egy gombhoz.