Ako používať Visual Basic pre riadenie prístupu , Excel a Word

Visual Basic teraz začala Visual Basic for Applications alebo VBA . Tento program umožňuje ovládať prakticky všetky aspekty Access , Excel a Word . To tiež umožňuje manipulovať jedného z programov , zatiaľ čo v inom . Postupujte podľa týchto krokov sa dozviete , ako používať Visual Basic pre ovládanie Access , Excel a Word . Pokyny dovolená 1

Pomocou jazyka Visual Basic pre ovládanie Access , Excel a Word kliknutím na " Nástroje " na nástrojovej lište programu . Vyberte " makro " a potom " Záznam nového makra . " To je miesto , kde môžete zadať príkazy v krokoch 2 až 5
2

Program dnešného dňa v programe Word zadaním nasledujúci kód : . " Sub EnterCurrentDate ( ) " " " EnterCurrentDate makro " " " Makro zaznamenané 15/03/2005 užívateľským menom " " " Selection.InsertDateTime DateTimeFormat : = dd - MM - rr" , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " " End Sub "

3

Automatizácia databázových úloh , ako je prechádzajúce tabuľku zadaním nasledujúci kód : " Sub LoopTableExample " " Dim db ako DAO.Database " " Dim rs As DAO.Recordset " " Set db = CurrentDb " " Set rs = db.OpenRecordset ( " SELECT * FROM tblMain " ) " " Do Until rs.EOF " " MsgBox rs fieldname ! " " rs.MoveNext " " slučky " " rs.Close " " Set db = Nothing " " End Sub "
4

Vytvorte UDF pre použitie v zošite programu Excel po zadaní tohto kódu : " Public Function BusinessDayPrior ( dt ) Dátum Ako Dátum " , " Select Case deň v týždni ( dt , vbMonday ) " " Prípad 1 " " BusinessDayPrior = dt - 3 sa slovo " pondelok stane piatok " " Case 7 " " BusinessDayPrior = dt - 2 Sunday stáva piatok " " Case Else " " BusinessDayPrior = dt - 1 " Všetky ostatné dni sa stal predchádzajúci deň " " End vyberte " " End Function "
5

Pridať externú aplikačné objekt do svojho programu zadaním tohto kódu : " Public Sub Príklad ( ) " " Dim oExcel ako Excel.Application " " Dim WDApp ako Word . aplikácia " " Nastaviť oExcel = CreateObject ( " Excel.Applcation " ) " " nastavte WDAPP = CreateObject ( " Word.Application " ) , " ... váš kód tu ... " XLApp.Quit " " WDApp.Quit " " Nastaviť oExcel = Nothing " " Nastaviť WDApp = Nothing " " End Sub "

• Predchádzajúca strana: Ako definovať tabuľky v programe Excel 2007 
• Ďalšia strana: Ako vypočítať vnútornú mieru návratnosti pomocou programu Excel