In staat zijn om gegevens van het ene werkblad naar het andere in Excel kopiëren bespaart de gebruiker tijd omdat hij niet handmatig hoeft te kopiëren . De beste manier om gegevens tussen de bladen te kopiëren is het systeem klembord gebruiken . In VBA kunt u de " Select " eigenschap gebruiken om een werkblad te selecteren en u kunt de " Selection " object gebruiken om gegevens te kopiëren naar het klembord . De " Plakken" -methode voegt de inhoud van het klembord op de plaat die op dat moment is geselecteerd . Instructies
1 Klik op het tabblad " Blad1 " en type " gegevens in Sheet1 " in A1 . Klik op " Blad2 " en type " gegevens in sheet2 " in A1 . Kopen van 2 Klik op het tabblad "Ontwikkelaar " , klik op " Visual Basic , " en klik op het menu "Insert " . Klik op " Module " om een nieuwe code -module plaatsen .
3 Maak een nieuwe sub- procedure . Private Sub copyDataBetweenSheets
( )
4 Voeg de volgende code aan de Sheet1 selecteren en de gegevens in A1 kopiëren : . . Sheets
( " Blad1 " ) Selecteer Range
( " A1 " ) Selecteer
Selection.Copy
5 Voeg de volgende code naar Blad2 selecteren en plak de gegevens gekopieerd van Sheet1 : . Sheets
( " Blad2 " ) Selecteer Range
( . " A2 " ) Selecteer ActiveSheet.Paste
6
Selecteer de gegevens in cel A1 en kopieer deze door het toevoegen van de volgende code : Range
( " A1 " ) Selecteer Selection.Copy
7
Plak de gekopieerde gegevens uit Blad2 door toevoeging van de volgende code : . Sheets
( " . Blad1 " ) selecteren Range
( " A2 " ) . Selecteer ActiveSheet.Paste
End of 8 van de procedure door het toevoegen van "End Sub . " Druk op " F5 " om de sub procedure uit te voeren .
|
