Hướng dẫn cách tạo Command button và Code

 Tạo command button và code  Nguyên văn bởi hauhong  Em muốn tạo 1 command button để ở trong excel có thể mở etabs em phải làm sao. Phương án dưới đây tôi thực hiện trong Excel 2003, bạn tham khảo nhé: 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ạn  thảo bên phải đoạn code sau: Sub khoidongAcad() Shell "C:\Program Files\AutoCAD 2007\acad.exe", vbMaximizedFocus End Sub (Do tôi không cài Etabs nên lấy AutoCAD làm ví dụ, bạn thay các chỗ bôi đỏ cho phù hợp nhé). Bước 3. Quay trở lại cửa sổ Excel bạn kích chọn Views / Toolbars / Forms để hiện thanh công cụ  Forms Bước 4. Bạn chọn công cụ Button để vẽ một Button, ngay sau khi bạn vẽ xong thì cửa sổ Assign  Macro hiện ra, bạn chọn tên MacrokhoidongAcad và bấm OK. Bước 5. Sửa lại tên Button thành Khởi động Acad. Trên đây là một đoạn code đơn giản bạn có thể dùng để khởi động Etabs từ Excel. Thực tế bạn phải  tính đến các tình huống có thể Etabs đang mở rồi, khi đó chỉ cần kích hoạt cửa sổ Etabs mà không  cần khởi động. Cũng có thể tính tình huống là đường dẫn đến file khởi động Etabs có thể khác (như  trong ví dụ trên AutoCAD không được cài ở vị trí C:\Program Files\AutoCAD 2007\acad.exe). Khi đó  có thể bạn phải dùng đoạn code sau: Sub khoidongAcad() Dim AcadApp As Application 'Khai báo biến đối tượng On Error Resume Next 'Bỏ qua các lỗi gặp phải Set AcadApp = GetObject(, "AutoCAD.Application") 'Nếu AutoCAD đang mở thì kích hoạt 'Nếu AutoCAD chưa mở thì thực hiện lệnh dưới đây để tạo đối tượng If Err  0 Then 'Nếu AutoCAD chưa mở sẽ phát sinh lỗi thì Err.Clear 'Xóa lỗi phát sinh MsgBox "Dang khoi dong AutoCad..." 'Hiển thị một thông báo Set AcadApp = CreateObject("AutoCAD.Application") End If AppActivate AcadApp.Cation 'Kích hoạt cửa sổ AutoCAD AcadApp.Visible = True 'Hiển thị cửa sổ AutoCAD Set AcadApp = Nothing 'Xóa biến đối tượng End Sub Lưu ý phần chữ màu xanh là tôi viết ghi chú để giải thích đoạn code, bạn không cần đưa vào cũng  được và bạn thay phần AutoCAD bằng Etabs tương ứng.