tailieunhanh - microsoft excel va lap trinh tren microsoft excel phần 3

và nhấn OK ð Thông điệp mà bạn vừa nhập sẽ được vẽ trên không gian mô hình của AutoCAD. 13 Trong màn hình của VBA IDE, chọn trình đơn File ð Save. Tiếp tục chọn trình đơn File ð Close and Return to AutoCAD để trở về AutoCAD. c. Tạo lệnh mới trong AutoCAD để thực thi Macro Sau khi đã tạo xong Macro, | TỰ ĐỘNG HOÁ THIẾT KẾ CẦU ĐƯỜNG Lập trình trên ứng dụng nền Cài đặt thuật toán Với thuật toán như trên ta có thể tiến hành cài đặt cho hàm TraBang theo các bước sau Lần lượt thực hiện các bước như đã nêu trong phần Tạo hàm mới bằng VBA với tên hàm cần tạo là TraBang. Nhập đoạn mã lệnh của hàm TraBang như sau Public Function TraBang so_tra As Double Vung_Tra As Range As Double Dim X1 X2 Y1 Y2 As Double Dim i As Integer Dim Co_the_tra As Boolean Co_the_tra False Vòng lặp để duyệt qua hàng đầu tiên của vùng dữ liệu For i 1 To - 1 If Vung_Tra 1 i .Value so_tra And _ Vung_Tra 1 i 1 .Value so_tra _ - 21 - TỰ ĐỘNG HOÁ THIÉT KÉ CẦU ĐƯỜNG Lập trình trên ứng dụng nền Or Vung_Tra 1 i .Value so_tra And _ Vung_Tra 1 i 1 .Value so_tra _ Then Khi đã thoả mãn điều kiện thì lần lượt lấy các giá trị X1 X2 Y1 Y2 và thoát khỏi vòng lặp X1 Vung_Tra 1 i .Value X2 Vung_Tra 1 i 1 .Value Y1 Vung_Tra 2 i .Value Y2 Vung_Tra 2 i 1 .Value Co_the_tra True Exit For End If Next i If Co_the_tra Then Kiểm tra điều kiện X1 Số_Tra If so_tra X1 Then TraBang Y1 Exit Function End If Kiểm tra điều kiện X2 Số_Tra If so_tra X2 Then TraBang Y2 Exit Function End If Nếu không thoả các điều kiện trên thì tính giá trị tra bảng theo công thức sau TraBang Y2 - Y1 X2 - X1 so_tra - X1 Y1 Else Khi không nằm trong bảng tra thì thông báo MsgBox Gia tri can tra khong nam trong bang tra TraBang Null End If End Function Sử dụng hàm mới - 22 - TỰ ĐỘNG HOÁ THIẾT KẾ CẦU ĐƯỜNG Lập trình trên ứng dụng nền Sau khi đã tạo mã nguồn cho hàm mới ta sử dụng hàm mới bằng cách tạo một bảng tra như hình vẽ dưới sau đó nhập công thức trabang B9 B6 I7 . Kết quả cho ra là đúng như cách tính toán thông thường. Lần lượt thay đổi Số trục xe tính toán bằng 100 20 7100 để thử nghiệm khả năng xử lý của hàm TraBang. - 23