Hoe activecell in vba in excel te gebruiken?

In VBA is actieve cel een eigenschap die de cel vertegenwoordigt die op dit moment actief is. Wanneer u een cel selecteert of naar een cel navigeert en dit groene vak dekt die cel, kunt u de eigenschap ACTIVECELL gebruiken om naar die cel te verwijzen in VBA-code. Er zijn eigenschappen en methoden die daarbij horen.

Gebruik actieve celeigenschap

1. Typ het trefwoord “ActiveCell”.
2. Typ een punt (.) om de eigenschappen en methoden uit de lijst op te halen.
3. Selecteer de eigenschap of methode die u wilt gebruiken.
4. Voer de code uit om de activiteit op de actieve cel uit te voeren.

Belangrijke punten

• Wanneer u de actieve celeigenschap gebruikt, verwijst VBA naar de actieve cel op het actieve blad van de actieve werkmap , ongeacht hoeveel werkmappen er op dat moment geopend zijn.
• ActiveCell is uiteindelijk een cel met alle eigenschappen en methoden van een normale cel.

Activeer een cel uit het geselecteerde bereik

Om een cel te activeren met behulp van VBA-code, kunt u op twee manieren een “Activeer” -methode en een “Select” -methode gebruiken.

 Sub vba_activecell() 'select and entire range Range("A1:A10").Select 'select the cell A3 from the selected range Range("A3").Activate 'clears everything from the active cell ActiveCell.Clear End Sub

De bovenstaande code selecteert allereerst het bereik A1:A10, activeert vervolgens cel A3 daaruit en wist aan het einde alles uit de actieve cel, dat wil zeggen A3.

Retourwaarde van actieve cel

De volgende code retourneert de waarde van de actieve cel met behulp van een berichtvenster .

 MsgBox ActiveCell.Value

Of als u de waarde van de actieve cel wilt ophalen en deze in een aparte cel wilt plakken.

 Range("A1") = ActiveCell.Value

Stel actieve cel in op een variabele

U kunt de actieve cel ook instellen op de variabele , zoals in het volgende voorbeeld.

 Sub vba_activecell() 'declares the variable as range Dim myCell As Range 'set active cell to the variable Set myCell = ActiveCell 'enter value in the active cell myCell.Value = Done End Sub

Haal het rij- en kolomnummer van de ActiveCell op

Bij de actieve cel is er een rij- en kolomeigenschap die u kunt gebruiken om het rij- en kolomnummer van de actieve cel op te halen.

 MsgBox ActiveCell.Row MsgBox ActiveCell.Column

Krijg een actief mobiel adres

U kunt de adreseigenschap gebruiken om het adres van de actieve cel op te halen.

 MsgBox ActiveCell.Address

Wanneer u de bovenstaande code uitvoert, wordt er een berichtvenster weergegeven met het celadres van de actieve cel van het actieve blad van de actieve werkmap (zoals ik eerder al zei).

Verplaats van actieve cel met behulp van offset

Met de eigenschap offset kunt u naar een cel gaan die meerdere rijen en kolommen verwijderd is van de actieve cel.

 ActiveCell.Offset(2, 2).Select

Selecteer een bereik in de actieve cel

En u kunt ook een bereik uit de actieve cel selecteren.

 Range(ActiveCell.Offset(1, 1), ActiveCell.Offset(5, 5)).Select