Πώς να χρησιμοποιήσετε το Visual Basic για τον έλεγχο της πρόσβασης , το Excel και το Word

Visual Basic έχει ξεκινήσει τώρα τη Visual Basic for Applications ή VBA . Αυτό το πρόγραμμα σας επιτρέπει να ελέγχετε όλες σχεδόν τις πτυχές της Access , Excel και Word. Επίσης, σας επιτρέπει να χειριστείτε ένα από τα προγράμματα , ενώ σε ένα άλλο . Ακολουθήστε τα παρακάτω βήματα για να μάθετε πώς να χρησιμοποιήσετε το Visual Basic για τον έλεγχο της Access, το Excel και το Word . Οδηγίες
Η 1

Χρήση της Visual Basic για τον έλεγχο της Access, το Excel και το Word , κάνοντας κλικ στο "Εργαλεία " στη γραμμή εργαλείων του προγράμματος . Επιλέξτε " Macro " τότε " Record New Macro . " Αυτό είναι όπου μπορείτε να εισάγετε τις εντολές στα βήματα 2 έως 5 2

Πρόγραμμα η τρέχουσα ημερομηνία στο Word πληκτρολογώντας τον ακόλουθο κώδικα : . " Sub EnterCurrentDate ( ) " " " EnterCurrentDate Macro " " " Macro καταγράφονται 15/03/2005 με το όνομα χρήστη " " " Selection.InsertDateTime DateTimeFormat : = dd - MM - εε" , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " " End Sub "

Η 3

Αυτοματοποίηση εργασιών της βάσης δεδομένων σας, όπως διέρχονται από έναν πίνακα εισάγοντας τον ακόλουθο κώδικα : « Sub LoopTableExample " "Dim db όπως DAO.Database " "Dim rs όπως DAO.Recordset " " Set db = CurrentDb " " Set rs = db.OpenRecordset ( "SELECT * FROM tblMain " ) " " Do Μέχρι rs.EOF " " rs MsgBox ! ΌνομαΠεδίου " " rs.MoveNext " " loop " " rs.Close " " Set db = Nothing " " End Sub "
Η 4

Δημιουργήστε ένα UDF να χρησιμοποιήσει σε ένα βιβλίο εργασίας του Excel με την εισαγωγή αυτού του κώδικα : "Δημόσια Λειτουργία BusinessDayPrior ( dt Ως ημερομηνία) Ως Ημερομηνία " " Select Case Ημέρα της εβδομάδας ( dt , vbMonday ) " " Περίπτωση 1 " " BusinessDayPrior = dt - 3 η λέξη« Δευτέρα γίνεται Friday " " Case 7 " " BusinessDayPrior = dt - 2 "Sunday γίνεται Friday" "Case Else" " BusinessDayPrior = dt - 1 « Όλες οι άλλες μέρες γίνονται προηγούμενη ημέρα " " End Επιλέξτε " " Function End "
5

Προσθέστε ένα εξωτερικό αντικείμενο αίτησης στο πρόγραμμά σας εισάγοντας τον κωδικό αυτό : " Public Sub Παράδειγμα ( ) " " Dim xlApp Όπως Excel.Application " " Dim WDApp Όπως Word. εφαρμογή " " Ορισμός xlApp = CreateObject ( " Excel.Applcation " ) " " που WDAPP = CreateObject ( " Word.Application » ) « ... κωδικό σας εδώ ... " XLApp.Quit " " WDApp.Quit " " Ορισμός xlApp = Nothing " "Ορισμός WDApp = Nothing " " End Sub "
Η
εικόνων