Tạo command button và code

Bước 1. Trong Excel bạn chọn lệnh Tools / Macro / Visual Basic Editor (hoặc ấn tổ hợp phím Alt +F11)Bước 2. Trong cửa sổ soạn thảo code VBA hiện ra bạn chọn Insert / Module rồi nhập vào phần soạnthảo bên phải đoạn code
Nội dung trích xuất từ tài liệu:
Tạo command button và codeTạocommandbuttonvàcode NguyênvănbởihauhongEmmuốntạo1commandbuttonđểởtrongexcelcóthểmởetabsemphảilàmsao.PhươngándướiđâytôithựchiệntrongExcel2003,bạnthamkhảonhé:Bước1.TrongExcelbạnchọnlệnhTools/Macro/VisualBasicEditor(hoặcấntổhợpphímAlt+F11)Bước2.TrongcửasổsoạnthảocodeVBAhiệnrabạnchọnInsert/Modulerồinhậpvàophầnsoạnthảobênphảiđoạncodesau:SubkhoidongAcad()ShellC:ProgramFilesAutoCAD2007acad.exe,vbMaximizedFocusEndSub(DotôikhôngcàiEtabsnênlấyAutoCADlàmvídụ,bạnthaycácchỗbôiđỏchophùhợpnhé).Bước3.QuaytrởlạicửasổExcelbạnkíchchọnViews/Toolbars/FormsđểhiệnthanhcôngcụFormsBước4.BạnchọncôngcụButtonđểvẽmộtButton,ngaysaukhibạnvẽxongthìcửasổAssignMacrohiệnra,bạnchọntênMacrokhoidongAcadvàbấmOK.Bước5.SửalạitênButtonthànhKhởiđộngAcad.TrênđâylàmộtđoạncodeđơngiảnbạncóthểdùngđểkhởiđộngEtabstừExcel.ThựctếbạnphảitínhđếncáctìnhhuốngcóthểEtabsđangmởrồi,khiđóchỉcầnkíchhoạtcửasổEtabsmàkhôngcầnkhởiđộng.CũngcóthểtínhtìnhhuốnglàđườngdẫnđếnfilekhởiđộngEtabscóthểkhác(nhưtrongvídụtrênAutoCADkhôngđượccàiởvịtríC:ProgramFilesAutoCAD2007acad.exe).Khiđócóthểbạnphảidùngđoạncodesau:SubkhoidongAcad()DimAcadAppAsApplicationKhaibáobiếnđốitượngOnErrorResumeNextBỏquacáclỗigặpphảiSetAcadApp=GetObject(,AutoCAD.Application)NếuAutoCADđangmởthìkíchhoạtNếuAutoCADchưamởthìthựchiệnlệnhdướiđâyđểtạođốitượngIfErr0ThenNếuAutoCADchưamởsẽphátsinhlỗithìErr.ClearXóalỗiphátsinhMsgBoxDangkhoidongAutoCad...HiểnthịmộtthôngbáoSetAcadApp=CreateObject(AutoCAD.Application)EndIfAppActivateAcadApp.CationKíchhoạtcửasổAutoCADAcadApp.Visible=TrueHiểnthịcửasổAutoCADSetAcadApp=NothingXóabiếnđốitượngEndSubLưuýphầnchữmàuxanhlàtôiviếtghichúđểgiảithíchđoạncode,bạnkhôngcầnđưavàocũngđượcvàbạnthayphầnAutoCADbằngEtabstươngứng.