TAILIEUCHUNG - 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ạn thảo bên phải đoạn 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\", 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\). 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(, "") 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ì Xóa lỗi phát sinh MsgBox "Dang khoi dong AutoCad." Hiển thị một thông báo Set AcadApp = CreateObject("") End If AppActivate Kích hoạt cửa sổ AutoCAD = 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.

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.