Als u werkt met Microsoft Office Excel vaak is het goed om te weten hoe de " ActiveCell " eigenschap gebruiken om toe te voegen , krijg , en zelfs de vorm van de gegevens in een werkblad wijzigen . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinetaken te automatiseren . In VBA kunt u de " ActiveCell " eigenschap gebruiken om veranderingen aan te brengen in uw gegevens. Met VBA kunt u tijd besparen door het automatiseren van een proces in plaats van het handmatig uitvoeren van dezelfde taak. Instructies
1 Lancering Microsoft Office Excel , klikt u op het tabblad "Ontwikkelaar " , en klik op ' Visual Basic . " Kopen van 2 Klik op het menu " Invoegen " en klik op " Module "om een nieuwe code -module plaatsen . Typ de volgende code om een nieuwe sub- procedure te starten : Private Sub usingActiveCell
( )
Kopieer 3 en plak de volgende aan " Blad1 : " activeren
< . p > Worksheets ( " Blad1 " ) Activeer
Kopieer 4 en plak de volgende om een waarde toe te voegen aan " A1 ", " A2 " en " A3 : " Range
( " A1 " ) . Selecteer ActiveCell.Value = Range
3,5
( " A2 " ) . Selecteer ActiveCell.Value Range
= 10
. ( " A3 " ) Selecteer ActiveCell.Value = 20
Copy
5 en plak de volgende om de cellen met gegevens markeren :
met ActiveCell < br Range ( Cells ( rij , CurrentRegion.Column ) , Cells ( rij , CurrentRegion.Columns.Count + CurrentRegion.Column . . . . . - 1 ) ) > . Interior.ColorIndex = Range 8
( Cells ( CurrentRegion.Row , kolom ) , Cells ( CurrentRegion.Rows.Count + CurrentRegion.Row - . . . . . 1 , Kolom ) ) . Interior.ColorIndex = 8 End met
Application.ScreenUpdating = True
Copy 6 en plak de volgende om de waarden weer toegevoegd via het " venster Direct : " . Range
( " A1 " ) Selecteer < br Debug.Print ActiveCell.Value Range >
( " A2 " ) . Selecteer Debug.Print ActiveCell.Value Range
( " A3 " ) . Selecteer Debug.Print ActiveCell.Value
Copy
7 en plak de volgende aan de sub procedure te beëindigen :
End sub
8 Druk op "Ctrl " en " G " aan het " venster direct " weer te geven en druk op " F5 " om de procedure uit te voeren.
|
