" . Loop " Den mest kraftfulla funktionen av en dator är dess förmåga att automatisera , och som bygger på en enkel programmering koncept som kallas en Huruvida språket är Visual Basic , Assembler , Fortran , C eller Java , kommer att underlätta för datorer från slingan . I huvudsak kan du instruera datorn att upprepa en viss uppgift hundratals, tusentals eller miljontals gånger . Det är lätt att programmera en enkel slinga i Visual Basic för att ändra flera celler i Excel . Saker du behöver
MS Excel med VB
Visa fler instruktioner
typ i ett enkelt program med en Loop
1
Håll " Alt " -tangenten och tryck på den " F11 " -tangenten i ett nytt kalkylblad i Excel . Titta på Visual Basic Editor , och om du ser kalkylbladet på skärmen istället , välj " Verktyg ", välj " Macro " och välj sedan " Visual Basic Editor . "
2
Klicka på " Infoga " och välj " modul . " Skriv in följande kod när du ser markören blinkar under ordet " ( General ) " : .
Sub SimpleLoop ( ) katalog
Dim Jag Som IntegerWorksheets ( " Blad1 " ) ActivateRange ( " A1 " ) Välj
' Kommentar : Här är kommer
Loop
för i = 1 till 100ActiveCell.Value = IActiveCell.Offset ( 1 , 0 ) ActivateNext i
. ' . kommentar : Loop slutar vid ovanstående uttalande
End Sub
3
Granska din kod noggrant för fel - de två tecken efter ordet " SimpleLoop " är parenteser . Bekräfta att din kod är exakt som ovanstående kod
4
Kör programmet : . Välj " Kör " och välj sedan " Kör Sub /UserForm . "
5
Bekräfta resultaten av programmet genom att klicka på den gröna " X " i övre vänstra hörnet av skärmen . Observera att programmet har skrivit siffrorna 1 till 100 i de första 100 celler på skärmen . Ändra programmet
6
Håll " Alt " -tangenten och tryck
" F11 ". Ändra ditt program att göra 100 snabba beräkningar och lagra resultatet : Flytta markören till raden som lyder , " ActiveCell.Value = I " . Ändra det till följande lydelse :
ActiveCell.Value = 1,05 ^ ( I )
7
Kör programmet . Klicka på den gröna " X " igen och bekräfta att programmet har gjort 100 beräkningar och lagrade dem i kalkylbladet . Manuellt beräkna 1,05 upphöjt till 2 för att förstå beräkningen .
8
Rensa skärmen genom att hålla " Ctrl " -tangenten och trycker på " A " Släpp båda knapparna och tryck på " Del "
9
Alter ditt program för att skriva ett meddelande 200 gånger : " . F11 " Håll " Alt " -tangenten och tryck på Flytta markören till numret " 100 " och ersätta det med " 200 . " Flytta markören ned en rad och ersätt " jag " med " I love datoranvändning! " Den kodrad bör se ut så här :
ActiveCell.Value = "Jag älskar computing "
10
Kör programmet igen . Klicka på den gröna " X " igen och bekräfta att programmet har skrivit " Jag älskar datorer ! " 200 gånger . Addera
