Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come utilizzare ActiveCell in Excel Utilizzo di 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, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine . In VBA è possibile utilizzare la proprietà " ActiveCell " per apportare modifiche ai dati. Con il VBA è possibile risparmiare tempo automatizzando un processo invece di eseguire la stessa operazione manualmente . Istruzioni
1

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

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

Private Sub usingActiveCell ( )
3

Copia e incolla il seguente per attivare " Foglio1: "
< . p > Worksheets ( " Foglio1 " ) Attivare
4

Copia e incolla il seguente per aggiungere un valore a " A1 ", " A2 " e " A3 : "

Gamma ( "A1") . Selezionare

ActiveCell.Value = 3.5

Range (" A2" ) . Selezionare

ActiveCell.Value = 10

Gamma . ( "A3" ) Selezionare

ActiveCell.Value = 20
5

Copia e incolla il seguente per evidenziare le celle con dati :

ActiveCell < br Gamma >

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

Gamma ( Cells ( CurrentRegion.Row , Colonna ) , Celle ( CurrentRegion.Rows.Count + CurrentRegion.Row - . . . . . 1 , Colonna ) ) . Interior.ColorIndex = 8

End With

Application.ScreenUpdating = True
6

Copia e incolla il seguente per visualizzare i valori di inserimento attraverso la " finestra immediata : " .

Range (" A1 ") Selezionare < br

Debug.Print ActiveCell.Value

Gamma > ( "A2" ) . Selezionare

Debug.Print ActiveCell.Value

Range (" A3" ) . Selezionare

Debug.Print ActiveCell.Value
7

Copia e incolla il seguente per terminare la procedura sub :

End sub ​​
8

premere il tasto " Ctrl " e "G" per visualizzare la " finestra Immediata " e premere il tasto "F5" per eseguire la procedura .

 

software © www.354353.com