Aperte .
2
Clicca su "Strumenti " di Microsoft Excel "Macro" e quindi fare clic su " Visual Basic ". Si aprirà l'editor di VBA.
3
Fare clic su " Inserisci ", " UserForm " . Si è ora in un modulo di codice di programmazione .
4
Selezionare il controllo " ListBox " dal VBA strumenti, trascinare e disegnare sul vostro form .
5
Selezionare " "controllo CommandButton dalla VBA strumenti, trascinare e disegnare sul vostro form .
6
Fare doppio clic sul controllo CommandButton . Questa azione vi porterà nella routine evento Click del controllo CommandButton . Digitare o copiare e incollare il seguente codice tra " Private Sub CommandButton1_Click ( ) " e le procedure di "End Sub "
Il codice dovrebbe essere simile al seguente : .
Private Sub CommandButton1_Click ( )
Dim I As Integer
ListBox1.AddItem "Questa è la prova 1 "
ListBox1.AddItem "Questa è prova 2"
ListBox1.AddItem " Questo è la prova 3 "
ListBox1.AddItem " Questa è prova 4 "
aprire" C: \\ list.txt " Per Append As # 1
For I = 0 To ListBox1.ListCount - 1
Print # 1 , ListBox1.List (I ) per
Successivo
Chiudere # 1
End Sub
Programmazione © www.354353.com