บทความนี้ไม่มีจาก |
เนื้อหาในบทความนี้ล้าสมัย โปรดปรับปรุงข้อมูลให้เป็นไปตามเหตุการณ์ปัจจุบันหรือล่าสุด ดูประกอบ |
วิชวลเบสิกฟอร์แอปพลิเคชันส์ (Visual Basic for Applications, VBA) คือการใช้ภาษาวิชวลเบสิกในการเขียนโค้ดควบคุมโปรแกรมประยุกต์อื่น ๆ เช่น ไมโครซอฟท์ ออฟฟิศ ออโตแคด เป็นต้น
ขณะนี้ไมโครซอฟท์อยู่ในระหว่างการเปลี่ยนจากการใช้ VBA มาใช้ ซึ่งใช้ฐานเป็นดอตเน็ตเฟรมเวิร์กแทน ปัจจุบันได้เปิดให้ผู้ใช้ทั่วไปสามารถDownloadได้โดยรุ่นล่าสุดคือ VSTO 2005 SE (Second Edition)
ตัวอย่าง
ใช้ภาษา VBA ในการเลือกข้อมูลจากตารางในไมโครซอฟท์ เอกซ์เซล:
'''Sub''' LoopTableExample '''Dim''' db As 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 '''Loop''' rs.Close db.Close '''Set''' rs = '''Nothing''' '''Set''' db = '''Nothing''' '''End Sub'''
VBA ยังสามารถสร้างฟังก์ชันของผู้ใช้ (User Defined Function : UDF) ที่ใช้ในไมโครซอฟท์ เอกซ์เซล:
Public Function BUSINESSDAYPRIOR(dt As Date) As Date
Select Case Weekday(dt, vbMonday) Case 1 BUSINESSDAYPRIOR = dt -3 Case 7 BUSINESSDAYPRIOR = dt -2 Case Else BUSINESSDAYPRIOR = dt -1 End Select End Function
ดูเพิ่ม
แหล่งข้อมูลอื่น
- หน้าหลัก VBA ของเว็บไมโครซอฟท์
- หน้าหลัก Visual Studio 2005 Tools for the Microsoft Office System ของเว็บไมโครซอฟท์
- กระดานข่าว Utter Access
- เว็บไซต์โค้ด ของ James Igoe
wikipedia, แบบไทย, วิกิพีเดีย, วิกิ หนังสือ, หนังสือ, ห้องสมุด, บทความ, อ่าน, ดาวน์โหลด, ฟรี, ดาวน์โหลดฟรี, mp3, วิดีโอ, mp4, 3gp, jpg, jpeg, gif, png, รูปภาพ, เพลง, เพลง, หนัง, หนังสือ, เกม, เกม, มือถือ, โทรศัพท์, Android, iOS, Apple, โทรศัพท์โมบิล, Samsung, iPhone, Xiomi, Xiaomi, Redmi, Honor, Oppo, Nokia, Sonya, MI, PC, พีซี, web, เว็บ, คอมพิวเตอร์
bthkhwamniimmikarxangxingcakaehlngthimaidkrunachwyprbprungbthkhwamni odyephimkarxangxingaehlngthimathinaechuxthux enuxkhwamthiimmiaehlngthimaxacthukkhdkhanhruxlbxxk eriynruwacanasaraemaebbnixxkidxyangiraelaemuxir enuxhainbthkhwamnilasmy oprdprbprungkhxmulihepniptamehtukarnpccubnhruxlasud duprakxb wichwlebsikfxraexpphliekhchns Visual Basic for Applications VBA khuxkarichphasawichwlebsikinkarekhiynokhdkhwbkhumopraekrmprayuktxun echn imokhrsxfth xxffis xxotaekhd epntnVBA inimokhrsxfth exksesl 2007 khnaniimokhrsxfthxyuinrahwangkarepliyncakkarich VBA maich sungichthanepndxtentefrmewirkaethn pccubnidepidihphuichthwipsamarthDownloadidodyrunlasudkhux VSTO 2005 SE Second Edition twxyangichphasa VBA inkareluxkkhxmulcaktaranginimokhrsxfth exksesl Sub LoopTableExample Dim db As 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 Loop rs Close db Close Set rs Nothing Set db Nothing End Sub VBA yngsamarthsrangfngkchnkhxngphuich User Defined Function UDF thiichinimokhrsxfth exksesl Public Function BUSINESSDAYPRIOR dt As Date As Date Select Case Weekday dt vbMonday Case 1 BUSINESSDAYPRIOR dt 3 Case 7 BUSINESSDAYPRIOR dt 2 Case Else BUSINESSDAYPRIOR dt 1 End Select End Functionduephimwichwlebsikaehlngkhxmulxunhnahlk VBA khxngewbimokhrsxfth hnahlk Visual Studio 2005 Tools for the Microsoft Office System khxngewbimokhrsxfth kradankhaw Utter Access ewbistokhd khxng James Igoebthkhwamsxftaewr hrux opraekrmkhxmphiwetxrniyngepnokhrng khunsamarthchwywikiphiediyidodykarephimetimkhxmuldk