" . Loop" Den kraftigste funksjonen i en datamaskin er dens evne til å automatisere , og som er basert på en enkel programmering konsept kalt en Om språket er Visual Basic, assembler , Fortran , C eller Java , kommer det praktiske ved databehandling fra sløyfen . I hovedsak kan du instruere datamaskinen til å gjenta en bestemt oppgave hundrevis, tusenvis eller millioner av ganger . Det er lett å programmere en enkel løkke i Visual Basic for å endre flere celler i Excel. Du trenger
MS Excel med VB
Vis flere instruksjoner
type i et enkelt program med en Loop
en

Hold " Alt"-tasten og trykk "F11 "-tasten i et nytt regneark i Excel. Se på Visual Basic-redigering , og hvis du ser regnearket på skjermen i stedet , velger du " Tools ", velg "Macro ", velg deretter " Visual Basic Editor . "
2

Klikk "Sett inn " og velg " Module ". Skriv inn følgende kode når du ser markøren blinker under ordet " (General )" : .

Sub SimpleLoop ( )

Dim jeg Som IntegerWorksheets ( " Ark1 ") ActivateRange ( " A1 ") Velg

' Kommentar : Her er kommer Loop

For jeg = 1 To 100ActiveCell.Value = IActiveCell.Offset ( 1 , 0 ) ActivateNext jeg

. ' . kommentar : Loop slutter ved ovennevnte uttalelse

End Sub
3

Gjennomgå koden nøye for feil - de to tegn etter ordet " SimpleLoop " er parenteser. Bekreft at koden er akkurat som koden ovenfor
4

Kjør programmet : . Velg "Run ", velg deretter "Run Sub /UserForm . "
5

Bekreft resultatene av programmet ved å klikke på den grønne "X" i øvre venstre hjørne av skjermen . Merk at programmet har skrevet tallene 1 til 100 i de første 100 celler på skjermen.
Endre programmet
6

Hold " Alt"-tasten og trykk "F11 ". Endre programmet for å gjøre 100 raske beregninger og lagre resultatet : Flytt markøren til linjen som leser, " ActiveCell.Value = I". Endre det til å lyde som følger : en

ActiveCell.Value = 1,05 ^ ( I)
7

Kjør programmet . Klikk på den grønne "X" igjen og bekrefter at programmet har gjort 100 beregninger og lagret dem i regnearket . Manuelt beregne 1,05 opphøyd to å forstå beregningen.
8

Tøm skjermen ved å holde " Ctrl "-tasten og trykke på " A." Slipp opp begge tastene og trykk " Slett "
9

Alter programmet til å skrive en melding 200 ganger : " . F11 " Hold " Alt"-tasten og trykk Flytte markøren til tallet " 100 " og erstatte det med "200 ". Flytte markøren én linje ned og erstatte "I" med "Jeg elsker databehandling ! " Linjen av koden skal se slik ut : en

ActiveCell.Value = " Jeg elsker computing"
10

Kjør programmet igjen . Klikk på den grønne "X" igjen og bekrefter at programmet har skrevet "Jeg elsker databehandling! " 200 ganger .