Forme di Microsoft Office Excel possono aiutare a presentare i dati in modo chiaro e diretto, piuttosto che fare riferimento a un file sul disco rigido. Il modo più veloce per importare i dati in una forma da un foglio di calcolo è quello di utilizzare Visual Basic, Applications Edition (VBA). VBA è un linguaggio di programmazione utilizzato per automatizzare le operazioni manuali nelle applicazioni di Microsoft Office, ad esempio Excel. Fai la tua applicazione più user-friendly per la visualizzazione dei dati dei fogli di calcolo attraverso forme.

istruzione

1 Avviare Microsoft Office Excel e digitare "2" in cella "A1", "3" in cella "B1", "4" in cella "C1" e "5" in cella "D1". Premere il tasto "Ctrl" e "S" per salvare il foglio di calcolo. Salvarlo in "C: \ Temp" come "source.xlsx" e chiudere il foglio di calcolo.

2 Avviare Excel per aprire una nuova cartella di lavoro. Fare clic sulla scheda "Sviluppatore", poi cliccare su "Visual Basic". Fare clic sul menu "Inserisci" e fare clic su "UserForm1" per aggiungere un nuovo modulo.

3 Fai clic su "ComboBox" nel riquadro "Toolbox" e trascinarlo al form tenendo premuto il pulsante del mouse. Rilasciare il pulsante del mouse per creare un nuovo controllo combo-box. Aggiungere un nuovo pulsante di comando con la stessa tecnica.

4 Fare doppio clic su "CommandButton1" per aprire la procedura di click-evento per il pulsante. Inizia aggiungendo il seguente codice VBA per creare le variabili utilizzate per aprire il foglio di calcolo:

Dim sourceXL As Excel.Application

Dim Sourcebook Come Excel.Workbook

Dim sourceSheet Come Excel.Worksheet

5 Aggiungere il seguente codice per aprire il foglio di calcolo "source.xlsx":

Set sourceXL = Excel.Application

Impostare Sourcebook = sourceXL.Workbooks.Open ( "C: \ Temp \ source.xlsx")

Set sourceSheet = sourceBook.Sheets (1)

6 Digitare il seguente codice per ottenere i valori da "source.xlsx" e aggiungerli alla casella combinata sul modulo:

sourceSheet.Range("A1").Select

Me.ComboBox1.AddItem (sourceSheet.Range ( "A1"). Value)

sourceSheet.Range ( "B1"). Selezionare

Me.ComboBox1.AddItem (sourceSheet.Range ( "B1"). Value)

sourceSheet.Range ( "C1"). Selezionare

Me.ComboBox1.AddItem (sourceSheet.Range ( "C1"). Value)

sourceSheet.Range ( "D1"). Selezionare

Me.ComboBox1.AddItem (sourceSheet.Range ( "D1"). Value)

7 Testate il programma premendo il tasto "F5" e facendo clic sul pulsante di comando per riempire la vostra casella combinata.