Nwlapcug.com


Come utilizzare ActiveCell in Excel utilizzando un VBA



Se si lavora con Microsoft Office Excel spesso è bene sapere come utilizzare la proprietà "ActiveCell" per aggiungere, ottenere e anche cambiare il formato dei dati in un foglio di lavoro. Visual Basic for Applications (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine. In VBA è possibile utilizzare la proprietà "ActiveCell" per apportare modifiche ai tuoi dati. Con VBA è possibile risparmiare tempo automatizzando il processo anziché eseguire la stessa operazione manualmente.

Istruzioni

1

Avviare Microsoft Office Excel, fare clic sulla scheda "Sviluppatore" e fare clic su "Visual Basic".

2

Fare clic sul menu "Inserisci" e scegliere "Modulo" per inserire un nuovo modulo di codice. Digitare il seguente codice per avviare una nuova routine sub:

Private Sub usingActiveCell()

3

Copiare e incollare il seguente per attivare "Sheet1:"

Worksheets("Sheet1"). Attivare

4

Copiare e incollare il seguente per aggiungere un valore a "A1", "A2", e "A3:"

Range("a1"). Selezionare

ActiveCell. Value = 3,5

Range("a2"). Selezionare

ActiveCell. value = 10

Range("a3"). Selezionare

ActiveCell. Value = 20

5

Copiare e incollare il seguente per evidenziare le celle con i dati:

Con ActiveCell

Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8

Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8

Terminare con

Application. ScreenUpdating = True

6

Copiare e incollare il seguente per visualizzare i valori aggiunti attraverso la "finestra immediata:"

Range("a1"). Selezionare

Debug. Print ActiveCell. Value

Range("a2"). Selezionare

Debug. Print ActiveCell. Value

Range("a3"). Selezionare

Debug. Print ActiveCell. Value

7

Copiare e incollare il seguente per terminare la routine sub:

End Sub

8

Premere "Ctrl" e "G" per visualizzare la "finestra immediata" e premere "F5" per eseguire la procedura.