tạo command button và code
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (47.83 KB, 1 trang )
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.
