|
Formulaires dans Microsoft Office Excel peut vous aider à présenter des données clairement et directement , plutôt que de les référencer dans un fichier sur votre disque dur. Le moyen le plus rapide pour importer des données dans un formulaire à partir d'un tableur est d'utiliser Visual Basic pour Applications ( VBA) . VBA est un langage de programmation informatique utilisé pour automatiser des tâches manuelles dans les applications Microsoft Office, comme Excel. Rendre votre application plus convivial en affichant les données des feuilles de calcul à travers des formes . Instructions
1 Lancement Microsoft Office Excel et tapez " 2" dans la cellule " A1 ", " 3" dans la cellule "B1 ", " 4" dans la cellule "C1 " et " 5" dans la cellule «D1 ». Appuyez sur " Ctrl" et " S " pour enregistrer la feuille de calcul . Enregistrez-le dans "C: \\ Temp " comme " source.xlsx " et fermez la feuille de calcul
2 lancement Excel pour ouvrir un nouveau classeur. . Cliquez sur l'onglet "Developer " , puis cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion" et cliquez sur " UserForm1 " pour ajouter une nouvelle forme .
3 Cliquez sur " zone de liste déroulante " sur le volet " boîte à outils " et le faire glisser vers votre forme tout en tenant votre souris bouton . Relâchez le bouton de la souris pour créer un nouveau contrôle liste déroulante . Ajouter un nouveau bouton de commande en utilisant la même technique.
4 Double -cliquez sur " CommandButton1 " d'ouvrir la procédure clic - événement pour le bouton. Commencez par ajouter le code VBA suivant pour créer les variables utilisées pour ouvrir la feuille de calcul :
sourceXL As Excel.Application
Sourcebook As Excel.Workbook
sourceSheet As Excel.Worksheet
5 Ajoutez le code suivant pour ouvrir la " source.xlsx " feuille de calcul:
Set sourceXL = Excel.Application
Set Sourcebook = sourceXL . Workbooks.Open ("C: \\ Temp \\ source.xlsx " )
Set sourceSheet = sourceBook.Sheets (1)
6 Tapez le code suivant pour obtenir les valeurs de " source.xlsx »et les ajouter à la zone de liste déroulante sur le formulaire :
sourceSheet.Range " . Sélectionnez
Me.ComboBox1.AddItem ( sourceSheet.Range ( ("A1 ) " A1 " ) . Value)
sourceSheet.Range ( "B1" ) . Sélectionnez
Me.ComboBox1.AddItem ( sourceSheet.Range ( "B1" ) . Value)
sourceSheet . Range (" C1" ) . Sélectionnez
Me.ComboBox1.AddItem ( sourceSheet.Range ( "C1" ) . Value)
sourceSheet.Range ( " D1 " ) . Sélectionnez < br > Me.ComboBox1.AddItem ( sourceSheet.Range ( " D1 " ) . Value)
7 Testez votre programme en appuyant sur la touche "F5 " et en cliquant sur le bouton de commande pour remplir votre zone de liste déroulante . Photos
|
