Tạo command button và code

Chia sẻ: Nguyen Van Thanh | Ngày: | Loại File: DOCX | Số trang:1

Thêm vào BST

Báo xấu

313
lượt xem 55
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 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.