" . Loop " Det mest kraftfulde træk ved en computer er dens evne til at automatisere , og som er baseret på en simpel programmering koncept kaldet en Om sproget er Visual Basic, Assembler , Fortran , C eller Java , bekvemmelighed computing kommer fra sløjfen. Væsentlige, kan du instruere computeren til at gentage en bestemt opgave hundreder, tusinder eller endda millioner af gange. Det er nemt at programmere en simpel løkke i Visual Basic til at ændre flere celler i Excel. Ting du skal
MS Excel med VB
Vis Flere Instruktioner
Indtast et simpelt program med en Loop
1
Hold " Alt" -tasten og tryk på på " F11 " tasten i et nyt regneark i Excel. Kig på Visual Basic Editor , og hvis du ser regnearket på skærmen i stedet for, skal du vælge "Funktioner ", vælge "Macro " og derefter vælge "Visual Basic Editor. "
2
Klik på " Indsæt " og vælg " Modul ". Indtast følgende kode , når du ser blinkende markør under ordet " (General )" : .
Sub SimpleLoop ()
Dim I Som IntegerWorksheets ( " Ark1 " ) ActivateRange ( "A1 " ) Vælg
' Kommentar: Her er kommer Loop
i = 1 Til 100ActiveCell.Value = IActiveCell.Offset (1, 0) ActivateNext i
. «. kommentar: Loop slutter ved ovennævnte erklæring
End Sub
3
Gennemgå din kode omhyggeligt for fejl - de to tegn efter ordet " SimpleLoop " er parenteser. Bekræft, at din kode er præcis som den ovenstående kode
4
Kør programmet : . Vælg " Kør " og derefter vælge "Kør Sub /UserForm . "
5
Bekræft resultaterne af programmet ved at klikke på den grønne "X" i øverste venstre hjørne af skærmen . Bemærk at programmet er skrevet tallene 1 til 100 i de første 100 celler på skærmen.
Ændre Programmet
6
Hold " Alt" -tasten og tryk på " F11 ". Ændre dit program til at gøre 100 hurtige beregninger og gemme resultatet: Flyt markøren til den linje, der lyder, " ActiveCell.Value = I". Ændre det til følgende ordlyd : Hej
ActiveCell.Value = 1,05 ^ ( I)
7
Kør programmet . Klik på den grønne "X " igen , og bekræft , at programmet har lavet 100 beregninger og gemt dem i regnearket. Manuelt beregne 1,05 opløftet til potensen 2 for at forstå beregningen.
8
Ryd skærmen ved at holde "Ctrl "-tasten og trykke på " A. " Slip begge taster og klik på " Slet "
9
Alter dit program til at skrive en besked 200 gange : " . F11 " Hold " Alt" -tasten og tryk på Flyt markøren til det antal "100" og erstatte det med "200 ". Flyt markøren en linje ned og erstatte "I" med "Jeg elsker computing ! " Den linje kode skal se sådan ud : Hej
ActiveCell.Value = "Jeg elsker computing"
10
Kør programmet igen. Klik på den grønne "X" igen og bekræfte, at programmet har skrevet "Jeg elsker computing! " 200 gange.