U kunt een tabel uit Excel te selecteren . Na het selecteren van de tafel indeling van de menu's kunt u de functie " COUNTA " gebruiken om het aantal namen tellen in de tabel . Bijvoorbeeld , u wilt een tafel die in kolom A genoemde tabel al 50 dossiers namen zullen moeten maken , en het zal geen koppen te hebben. Verder , wilt u deze procedure met behulp van Visual Basic , zodat u hoeft niet handmatig elke keer herhalen automatiseren . Het is mogelijk om dit alles te programmeren in Visual Basic , maar je besluit om een macro gebruiken en de Visual Basic-code . Instructies Graaf Namen in een Excel- tabel met behulp van VBA 1 Open een nieuw werkblad in Excel . Kopen van 2 Maak een tabel in Excel . Selecteer A1 tot G50 door te klikken op A1 , met "Shift " en druk op de pijl omlaag tot A50 . Blijven houden " Shift " en druk op de pijl naar rechts om de kolom G. 3 Selecteer " Format ", " AutoOpmaak , " en selecteer " Lijst 2 " uit " menu Tabel Format " . Klik op " OK " om de tabel te maken . Druk op " Ctrl " en "Home , " pijl omlaag en pijl omhoog om terug te keren naar A1 en schakel de omgeving . 4 Voer in testgegevens beginnen in A1 . Typ " Salinski " en druk op de pijl omlaag . Typ " Jones " en druk op de pijl omlaag . Type " Ikester " in A3 . Typ " Harrold " in A4 . Typ " Allison " in A5 . Typ " Roberts " in de A6 . Typ " Simmons " in A7 . Typ " Lemmon " in A8 . Typ ' Walters ' in A9 . Type " Ubikov " in A10 . Move naar cel A51 5 . Type " = AANTALARG ( A1 : A50 ) " en druk op ' Enter '. 6 Nu Visual Basic code te genereren door het creëren van een macro met uw procedure automatisch . Skip alleen het proces van het invoeren van testgegevens . 7 Hold " Alt " en druk op " F " , houd dan "Alt " en druk op " C " om het werkblad te sluiten . Hold " Alt " en druk op " F " en vervolgens " N " naar een nieuw werkblad . Druk op " OK". 8 Selecteer 'Extra ', ' Macro , " en " Nieuwe macro opnemen , " en de naam van de macro " Macro4 . " Druk op " OK". 9 Maak een tabel in Excel . Selecteer A1 tot G50 door te klikken op A1 , met "Shift " en druk op de pijl omlaag tot A50 . Blijven houden " Shift " en druk op de pijl naar rechts om de kolom G. 10 Selecteer " Format ", " AutoOpmaak , " en selecteer " Lijst 2 " uit " menu Tabel Format " . Klik op " OK " om de tabel te maken . Druk op " Ctrl " en "Home , " pijl omlaag en pijl omhoog om terug te keren naar A1 en schakel de omgeving . Move naar cel A51 11 . Type " = AANTALARG ( A1 : A50 ) " en druk op ' Enter '. Druk op de blauwe vierkant op het venster "Stop Rec " . Bevestig uw code genereren door "Extra ", " Macro ", " Macro's , " " Macro4 , " en " bewerken . " Controleer uw code . 12 Terug naar de spreadsheet door op de groene " X " in de linker bovenhoek . Raakte het tabblad " Blad2 " onderaan links . Run Macro4 door het selecteren van "Gereedschap ", " Macro ", " Macro's , " " Macro4 " , en "Run . " Test het programma door te typen in namen in het bereik A1 tot en met A50 . Sla uw spreadsheet door te oordelen " Alt " en het raken van " F " en vervolgens " S. " Geef het bestand een naam en klik op " Opslaan ".
|