De meest krachtige eigenschap van een computer is het vermogen om te automatiseren , en dat is gebaseerd op een eenvoudige programmering concept genaamd een "loop . " Of de taal Visual Basic , Assembler , Fortran , C of Java , het gemak van de computer komt uit de loop . Wezen , kunt u de computer instrueren om een bepaalde taak uit honderden, duizenden of zelfs miljoenen keren herhalen . Het is gemakkelijk om een eenvoudige lus in Visual Basic om meerdere cellen te veranderen in Excel te programmeren . Wat je nodig hebt MS Excel met VB Toon Meer Instructions Typ in een eenvoudig programma met een lus 1 Houd de toets " Alt " en druk op de toets " F11 " in een nieuw werkblad in Excel . Kijk naar de Visual Basic Editor , en als u de spreadsheet op het scherm in plaats daarvan zien, selecteer "Extra ", selecteer " Macro ", selecteer " Visual Basic Editor . " Kopen van 2 Klik op " Invoegen " en " Module " te selecteren. Typ de volgende code wanneer je de cursor knippert onder het woord " ( Algemeen ) " : . Sub SimpleLoop ( ) op Dim I Zoals IntegerWorksheets ( " Blad1 " ) ActivateRange ( " A1 " ) Selecteer ' Commentaar: Hier komt de Loop I = 1 To 100ActiveCell.Value = IActiveCell.Offset ( 1 , 0 ) ActivateNext ik . ' . reactie : Loop eindigt bij bovenstaande verklaring End Sub 3 Controleer uw code zorgvuldig op fouten - de twee tekens na het woord " SimpleLoop " zijn tussen haakjes . Bevestigen dat uw code is precies hetzelfde als de bovenstaande code 4 Voer het programma : . Selecteer " Uitvoeren " en selecteer " Uitvoeren Sub /UserForm . " 5 Bevestig de resultaten van het programma door te klikken op de groene " X " in de linkerbovenhoek van het scherm . Merk op dat het programma van de nummers heeft geschreven 1 tot en met 100 in de eerste 100 cellen op het scherm . Wijzig het Programma 6 Houd de toets " Alt " en druk op " F11 ". Verander je programma om 100 snelle berekeningen te maken en sla het resultaat : Verplaats de cursor naar de regel die leest, " ActiveCell.Value = I " . Verander het als volgt : ActiveCell.Value = 1,05 ^ ( I ) 7 Voer het programma uit . Klik op de groene " X " opnieuw en bevestigen dat het programma 100 berekeningen heeft gemaakt en opgeslagen ze in de spreadsheet . Handmatig te berekenen 1,05 tot de macht 2 om de berekening te begrijpen . 8 Wis het scherm door met de toets " Ctrl " en druk op " A. " Laat beide toetsen los en druk op " Del " 9 Alter uw programma om een bericht te schrijven 200 keer : " . F11 " Houd de toets " Alt " en druk op Verplaats de cursor naar het getal " 100 " en vervang het door " 200 . " Verplaats de cursor een regel omlaag en vervang " ik " met " Ik hou van het berekenen ! " De regel code moet er zo uitzien : ActiveCell.Value = " Ik hou computing" 10 Voer het programma opnieuw . Klik op de groene " X " opnieuw en bevestigen dat het programma heeft geschreven " Ik hou computing! " 200 keer .
|