verwijst naar de kolom van nummers die u hebt ingevoerd .
de macro uitvoeren door terug te keren naar het Excel-werkblad te selecteren ontwikkelaar> macro's , het selecteren Macro1 , en druk op de knop Uitvoeren . Uw macro somt de kolom met getallen , die het resultaat van de geactiveerde cel . ( Als u niet het tabblad Ontwikkelaars zien , bloot door de knop Office in de bovenste Excel linkerbovenhoek , het kiezen van Opties voor Excel en " Tabblad Ontwikkelaars op het lint . " )
< Br > project Twee : Gebruik een formulier
het tweede project bouwt voort op de eerste doordat de gebruiker van je programma een keuze van functies
voer de Visual Basic IDE en selecteer . invoegen > Userform . Sleep de volgende besturingselementen op het formulier van de Toolbox : een keuzelijst en een knop . Druk op F7 om terug te keren naar de codeweergave en selecteer Userform van links drop-down box in het bovenste gedeelte van het venster code , en initialiseren van rechts drop-down box . De IDE creëert de functie Sub UserForm_Initialize ( ) . In die functie , voert u deze code , die wordt toegevoegd aan de keuzelijst de namen van de functies die de gebruiker kiezen uit :
ListBox1.AddItem " sum "
ListBox1.AddItem " gemiddeld "
Gebruik de links en rechts keuzelijsten code venster nogmaals , het kiezen CommandButton1 van links drop-down , en Klik de juiste drop-down box . De IDE maakt de lege functie CommandButton1_Click ( ) . Voer de volgende code in die functie , die zal bellen met de oorspronkelijke Macro1 je schreef met de functie die de gebruiker kiest uit de keuzelijst :
Macro1 ( ListBox1.Value ) op
Wijzig Macro1 te aanvaarden argument : klik met de rechtermuisknop de " Macro1 " tekst en selecteer definitie te navigeren naar de Macro1 definitie . Verander de lijn " Sub Macro1 ( ) " te lezen " Sub Macro1 ( func As String ) "
Nu je het argument hebt toegevoegd , te wijzigen Macro1 om het te gebruiken : verander de verklaring s = " = gemiddelde ( " & q.Address & " ) " te lezen als volgt :
s
= " = " & func & " ( " & q.Address & " ) "
Schrijf het functie die Laadt het formulier
Vul deze nieuwe functie hieronder Macro1 :
Sub macro2 ( ) op UserForm1.ShowEnd Sub
Terug naar Excel ( alt - F11 ) op Twitter en verplaats de cursor onder de kolom met getallen . Geef het userform door ontwikkelaar> Macro's te selecteren en te selecteren Macro2 en Run . Wanneer het formulier wordt weergegeven , kiest u de som of gemiddelde functie en druk op de knop . Uw programma zal de formule in te voeren in het werkblad . De formule samenvatting van de gegevens uit de kolom boven de actieve cel .