Tämä opetusohjelma näyttää, kuinka käytät Excel Sum -toimintoa VBA: ssa
Summafunktio on yksi yleisimmin käytetyistä Excel -funktioista ja luultavasti ensimmäinen, jota Excel -käyttäjät oppivat käyttämään. VBA: lla ei oikeastaan ole vastaavaa - käyttäjän on käytettävä VBA: n sisäänrakennettua Excel -toimintoa käyttämällä WorkSheetFunction esine.
Sum -laskentataulukkoToiminto
WorksheetFunction -objektia voidaan käyttää useimpien Excel -toimintojen kutsumiseen, jotka ovat käytettävissä Excelin Lisää toiminto -valintaikkunassa. SUM -toiminto on yksi niistä.
| 123 | AlatestitoimintoAlue ("D33") = Application.WorksheetFunction.Sum ("D1: D32")End Sub |
SUMMA -funktiossa voi olla enintään 30 argumenttia. Jokainen argumentti voi viitata myös solualueeseen.
Tämä alla oleva esimerkki lisää solut D1 - D9
| 123 | Alatestisumma ()Alue ("D10") = Application.WorksheetFunction.SUM ("D1: D9")End Sub |
Alla oleva esimerkki lisää alueen sarakkeeseen D ja alueen sarakkeeseen F. Jos et kirjoita sovellusobjektia, se oletetaan.
| 123 | Alatestisumma ()Alue ("D25") = WorksheetFunction.SUM (Alue ("D1: D24"), alue ("F1: F24"))End Sub |
Huomaa yksittäiselle solualueelle, että sinun ei tarvitse määrittää sanaa "Range" solujen edessä olevassa kaavassa, se oletetaan koodilla. Jos kuitenkin käytät useita argumentteja, sinun on tehtävä se.
Summatuloksen määrittäminen muuttujaan
Voit halutessasi käyttää kaavan tulosta muualla koodissa sen sijaan, että kirjoitat sen suoraan takaisin Excel -alueelle. Jos näin on, voit määrittää tuloksen muuttujalle käytettäväksi myöhemmin koodissasi.
| 1234567 | Sub AssignSumVariable ()Himmennä tulos tuplana'Määritä muuttujaresult = WorksheetFunction.SUM (Alue ("G2: G7"), alue ("H2: H7"))'Näytä tulosMsgBox "Alueiden kokonaismäärä on" & tulosEnd Sub |
Summaa alueobjekti
Voit määrittää Range -objektille soluryhmän ja käyttää sitten Range -objektia LaskentataulukkoToiminto esine.
| 123456789 | AlatestiSumRange ()Dim rng as Range'määritä solualueAseta rng = alue ("D2: E10")'käytä kaavaaAlue ("E11") = Työsivun toiminto.SUMMA (rng)'vapauta etäisyysobjektiAseta rng = ei mitäänEnd Sub |
Summaa useita alueita
Samoin voit laskea yhteen useita alueobjekteja.
| 123456789101112 | AlatestiSumMultipleRanges ()Dim rngA As RangeDim rngB kuin alue'määritä solualueAseta rngA = alue ("D2: D10")Aseta rngB = alue ("E2: E10")'käytä kaavaaAlue ("E11") = Työsivun toiminto.SUMMA (rngA, rngB)'vapauta etäisyysobjektiAseta rngA = ei mitäänAseta rngB = ei mitäänEnd Sub |
Summaa koko sarake tai rivi
Voit myös käyttää Sum -toimintoa lisätäksesi koko sarakkeen tai koko rivin
Tämä alla oleva menettely lisää kaikki sarakkeen D numeeriset solut.
| 123 | Alatestisumma ()Alue ("F1") = WorksheetFunction.SUM (Alue ("D: D")End Sub |
Vaikka tämä alla oleva menettely lisää kaikki rivin 9 numerosolut.
| 123 | Alatestisumma ()Alue ("F2") = WorksheetFunction.SUM (Alue ("9: 9")End Sub |
Summa Array
Voit lisätä taulukon arvoja myös käyttämällä WorksheetFunction.Sum -arvoa.
| 123456789101112 | Sub TestArray ()Dim intA (1 - 5) kokonaislukunaDim SumArray kokonaislukuna'täytä taulukkointA (1) = 15intA (2) = 20intA (3) = 25intA (4) = 30intA (5) = 40'lisää taulukko ja näytä tulosMsgBox WorksheetFunction.SUM (intA)End Sub |
SumIf -toiminnon käyttäminen
Toinen laskentataulukkotoiminto, jota voidaan käyttää, on SUMIF -toiminto.
| 123 | AlatestiSumIf ()Alue ("D11") = WorksheetFunction.SUMIF (Alue ("C2: C10"), 150, Alue ("D2: D10"))End Sub |
Yllä oleva menettely laskee alueen (D2: D10) solut yhteen vain, jos vastaava sarake C = 150.
Summakaava
Kun käytät LaskentataulukkoToiminto.SUMMA summan lisäämiseksi laskentataulukon alueeseen palautetaan staattinen summa, ei joustava kaava. Tämä tarkoittaa sitä, että kun Excelin luvut muuttuvat, arvo on palauttanut LaskentataulukkoToiminto ei muutu.
Yllä olevassa esimerkissä TestSum -menettely on lisännyt alueen (D2: D10) ja tulos on lisätty arvoon D11. Kuten kaavapalkista näet, tämä tulos on luku eikä kaava.
Jos jokin arvo muuttuu siksi alueella (D2: D10), tulos kohdassa D11 muuttuu EI muuttaa.
Käyttämisen sijasta LaskentataulukkoToiminto.SUMMA, voit käyttää VBA: ta summatoiminnon käyttämiseen solussa käyttämällä Kaava tai KaavaR1C1 menetelmiä.
Kaavan menetelmä
Kaavamenetelmän avulla voit osoittaa erityisesti solualueelle, esimerkiksi: D2: D10, kuten alla on esitetty.
| 123 | AlatestiSumFormulaAlue ("D11"). Kaava = "= SUMMA (D2: D10)"End Sub |
FormulaR1C1 -menetelmä
FromulaR1C1 -menetelmä on joustavampi, koska se ei rajoita sinua tiettyyn solualueeseen. Alla oleva esimerkki antaa meille saman vastauksen kuin yllä oleva.
| 123 | AlatestiSumFormula ()Alue ("D11"). KaavaR1C1 = "= SUMMA (R [-9] C: R [-1] C)"End Sub |
Kaavan joustavuuden parantamiseksi voisimme kuitenkin muuttaa koodia tältä:
| 123 | AlatestiSumFormula ()ActiveCell.FormulaR1C1 = "= SUMMA (R [-9] C: R [-1] C)"End Sub |
Missä tahansa olet laskentataulukossasi, kaava lisää sitten 8 solua suoraan sen yläpuolelle ja sijoittaa vastauksen ActiveCellisi. SUM -toiminnon sisällä olevaan alueeseen on viitattava rivin (R) ja sarakkeen (C) syntaksilla.
Molempien näiden menetelmien avulla voit käyttää dynaamisia Excel -kaavoja VBA: ssa.
D11: ssä on nyt kaava arvon sijaan.
