Clicca comando " Nuovo" del menu "File" per creare una nuova cartella di lavoro .
2
Tipo un elenco di numeri, lettere o formule in una serie di righe successive in qualsiasi foglio della cartella di lavoro . Ad esempio, digitare " mela ", " arancia " e "pera" in celle da A1 a A3 del foglio di calcolo corrente . Il programma VBA che scriverete sarà visualizzare ogni elemento in questo elenco .
3
Cliccate con il mouse sulla voce in alto nell'elenco, quindi trascinare fino all'ultima voce della lista e rilasciare il mouse. Questa azione seleziona l' elenco .
4 Fare clic sulla scheda "Sviluppatore " , quindi fare clic sul pulsante " Visual Basic ", per accedere all'ambiente di programmazione VBA .
5
Incollare il seguente codice di programma nella finestra centrale del ambiente . Questo programma legge il contenuto di ogni cellula del vostro elenco utilizzando la proprietà Cells dell'oggetto Selection , che rappresenta le celle attualmente selezionate . La funzione MsgBox visualizza il contenuto della cella in una piccola finestra di dialogo .
Public Sub ReadList ( ) per
Dim i
For i = 1 To Selection.Rows.Count
MsgBox Selection.Cells (i, 1 ) per
Next i
End Sub
6
clicca alcuna dichiarazione nel programma, quindi fare clic sul " eseguire il comando " del menu" Run " per eseguire il programma . Il programma visualizza una finestra di messaggio per ogni voce digitata nel passo 2 .
Parola
7
tipo un elenco di parole , ciascuno su una riga , quindi fare clic su il mouse sulla parola superiore .
8
trascinare verso il basso per la parola in basso e rilasciare il mouse per selezionare tutte le parole della lista.
9
Fare clic su " Developer pulsante " della scheda" Visual Basic ", per accedere all'ambiente di programmazione VBA .
10
Incollare il seguente programma nella finestra centrale del ambiente . Questo programma legge la proprietà " Paragrafo " dell'oggetto "Selezione" , che contiene la lista che hai selezionato . Il " MsgBox" visualizza il contenuto di ciascun paragrafo.
Pubblico ReadList Sub ( ) per
Dim i
For i = 1 To Selection.Paragraphs.Count
MsgBox Selection.Paragraphs (I). Range.Text
Next i
End Sub
11
clic su una delle affermazioni del programma, quindi premere " F5 " per eseguire il programma . VBA leggerà ogni oggetto nella tua lista e la relazione che l'articolo voi .
Programmazione © www.354353.com