Giáo trình hình thành quá trình ứng dụng các phương pháp lập trình trên microsoft access marco p4
Số trang: 5
Loại file: pdf
Dung lượng: 661.11 KB
Lượt xem: 10
Lượt tải: 0
Xem trước 2 trang đầu tiên của tài liệu này:
Thông tin tài liệu:
Tham khảo tài liệu giáo trình hình thành quá trình ứng dụng các phương pháp lập trình trên microsoft access marco p4, tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Giáo trình hình thành quá trình ứng dụng các phương pháp lập trình trên microsoft access marco p4 Application.Quit End Sub 7.1.2. Khoá tương tác người dùng Trong một số trường hợp, để tránh người dùng thoát khỏi Excel khi đang thực hiện một số bước tính toán mất nhiều thời gian, cần phải giới hạn tương tác giữa người dùng và chương trình Excel. Đối tượng Application có một số phương thức/thuộc tính để thực hiện điều này: Gán thuộc tính DisplayAlerts bằng FALSE để ẩn các hộp thoại Excel khi đang thực thi mã lệnh. Gán thuộc tính Interactive bằng FALSE để người dùng hoàn toàn không thể tương tác được với Excel. Gán thuộc tính ScreenUpdating bằng FALSE để tắt quá trình cập nhật lại màn hình, làm ẩn đi những thay đổi diễn ra trong lúc thực thi mã lệnh. Những cách trên đều cần phải thực hiện ở đầu đoạn mã lệnh và phải thực hiện lại ở cuối của đoạn mã lệnh để thiết lập lại các giá trị mặc định, nếu không sẽ làm khoá hoàn toàn chương trình Excel. Ví dụ sau minh hoạ cách tạm thời khoá tương tác người dùng khi thực hiện các đoạn mã lệnh mất nhiều thời gian: Sub Khoa_nguoi_dung() Dim cel As Range Chuyển con trỏ chuột thành biểu tượng chờ. Application.Cursor = xlWait Tắt tương tác người dùng và việc cập nhật màn hình. Application.Interactive = False Application.ScreenUpdating = False Đoạn mã lệnh mô phỏng việc tính toán mất nhiều thời gian. For Each cel In [a1:iv999] cel.Select Next Khôi phục lại trạng thái ban đầu. Application.Interactive = True Application.ScreenUpdating = True Application.Cursor = xlDefault [a1].Select End Sub Một lợi điểm nữa của việc gán thuộc tính ScreenUpdating bằng FALSE là việc đoạn mã lệnh sẽ thực thi với tốc độ nhanh hơn vì Excel không cần phải cập nhật lại màn hình khi tiến hành chọn từng ô trong vùng dữ liệu từ A1:IV999. Nhưng cần lưu ý phải khôi phục lại các giá trị mặc định trước khi kết thúc mã lệnh. GỢI Ý Gán thuộc tính ScreenUpdating bằng FALSE trong khi thực khi các đoạn mã lệnh có liên quan đến việc hiển thị trên màn hình, chằng hạn như đổi màu nền cho vùng dữ liệu… , sẽ làm tăng tốc độ thực thi của mã lệnh 7.1.3. Thao tác với cửa sổ Đối tượng Application có tập đối tượng Windows cho phép mở, sắp xếp, thay đổi kích thước và đóng các cửa sổ bên trong Excel. Chẳng hạn như đoạn mã sau tạo thêm một cửa sổ mới và sau đó xếp chồng các cửa sổ bên trong workbook hiện hành:148 CHƯƠNGIV:LẬPTRÌNHTRÊNMICROSOFTEXCEL Sub OpenCascadeWindows() ActiveWindow.NewWindow Application.Windows.Arrange xlArrangeStyleCascade, True End SubNgười lập trình có thể đóng, thay đổi trạng thái của cửa sổ sử dụng các phương thức và thuộctính có trong đối tượng Window. Ví dụ sau sẽ đóng cửa sổ đã được tạo ra ở ví dụ trước và khôiphục lại trạng thái của cửa sổ ban đầu trong Excel: Sub CloseMaximize() ActiveWindow.Close ‘Đóng cửa sổ hiện hành ActiveWindow.WindowState = xlMaximized End SubViệc đóng cửa sổ cuối cùng của Workbook tương đương với việc đóng workbook đó. CHÚ Ý Trong cùng một workbook có thể có nhiều cửa sổ con, tất cả các cửa sổ con đó đều có nội dung giống nhau và đều là một thể hiện của workbook. Chi tiết, xem lại mục “Đối tượng Window” trang 127.Để điều khiển cửa sổ chính của Excel, sử dụng các thuộc tính WindowState vàDisplayFullScreen có trong đối tượng Application. Đoạn mã sau sẽ thực hiện thay đổi trạngthái cửa sổ chính của Excel, giữa các thái thái sẽ có một thông báo: Sub ChangeExcelWindowState() Application.WindowState = xlMaximized ‘Phóng đại cửa sổ MsgBox Trang thai phong dai Application.WindowState = xlMinimized ‘Thu nhỏ cửa sổ MsgBox Trang thai thu nho Application.WindowState = xlNormal ‘Trạng thái thông thường MsgBox Trang thai thong thuong Application.DisplayFullScreen = True ‘Xem toàn màn hình MsgBox Trang thai toan man hinh Application.DisplayFullScreen = False ‘Trạng thái bình thường MsgBox Trang thai thong thuong End Sub7.1.4. Khởi động Excel từ chương trình khácThông thường, khi sử dụng VBA trong Excel, chương trình Excel đã được khởi động sẵn vàngười lập trình không cần quan tâm đến các thao tác để khởi động chương trình Excel. Tuynhiên, vẫn có những lúc cần khởi động chương trình Excel từ chương trình khác, chẳng hạnnhư khi muốn xuất dữ liệu tính toán sang Excel chẳng hạn. Lúc đó, cần phải lập trình để khởiđộng Excel, hay nói theo cách đơn giản hơn, là tạo đối tượng Application chứa ứng dụng Excel.Để thực hiện được việc này, cần phải thực hiện các bước sau:1. Tham chiếu đến với thư v ...
Nội dung trích xuất từ tài liệu:
Giáo trình hình thành quá trình ứng dụng các phương pháp lập trình trên microsoft access marco p4 Application.Quit End Sub 7.1.2. Khoá tương tác người dùng Trong một số trường hợp, để tránh người dùng thoát khỏi Excel khi đang thực hiện một số bước tính toán mất nhiều thời gian, cần phải giới hạn tương tác giữa người dùng và chương trình Excel. Đối tượng Application có một số phương thức/thuộc tính để thực hiện điều này: Gán thuộc tính DisplayAlerts bằng FALSE để ẩn các hộp thoại Excel khi đang thực thi mã lệnh. Gán thuộc tính Interactive bằng FALSE để người dùng hoàn toàn không thể tương tác được với Excel. Gán thuộc tính ScreenUpdating bằng FALSE để tắt quá trình cập nhật lại màn hình, làm ẩn đi những thay đổi diễn ra trong lúc thực thi mã lệnh. Những cách trên đều cần phải thực hiện ở đầu đoạn mã lệnh và phải thực hiện lại ở cuối của đoạn mã lệnh để thiết lập lại các giá trị mặc định, nếu không sẽ làm khoá hoàn toàn chương trình Excel. Ví dụ sau minh hoạ cách tạm thời khoá tương tác người dùng khi thực hiện các đoạn mã lệnh mất nhiều thời gian: Sub Khoa_nguoi_dung() Dim cel As Range Chuyển con trỏ chuột thành biểu tượng chờ. Application.Cursor = xlWait Tắt tương tác người dùng và việc cập nhật màn hình. Application.Interactive = False Application.ScreenUpdating = False Đoạn mã lệnh mô phỏng việc tính toán mất nhiều thời gian. For Each cel In [a1:iv999] cel.Select Next Khôi phục lại trạng thái ban đầu. Application.Interactive = True Application.ScreenUpdating = True Application.Cursor = xlDefault [a1].Select End Sub Một lợi điểm nữa của việc gán thuộc tính ScreenUpdating bằng FALSE là việc đoạn mã lệnh sẽ thực thi với tốc độ nhanh hơn vì Excel không cần phải cập nhật lại màn hình khi tiến hành chọn từng ô trong vùng dữ liệu từ A1:IV999. Nhưng cần lưu ý phải khôi phục lại các giá trị mặc định trước khi kết thúc mã lệnh. GỢI Ý Gán thuộc tính ScreenUpdating bằng FALSE trong khi thực khi các đoạn mã lệnh có liên quan đến việc hiển thị trên màn hình, chằng hạn như đổi màu nền cho vùng dữ liệu… , sẽ làm tăng tốc độ thực thi của mã lệnh 7.1.3. Thao tác với cửa sổ Đối tượng Application có tập đối tượng Windows cho phép mở, sắp xếp, thay đổi kích thước và đóng các cửa sổ bên trong Excel. Chẳng hạn như đoạn mã sau tạo thêm một cửa sổ mới và sau đó xếp chồng các cửa sổ bên trong workbook hiện hành:148 CHƯƠNGIV:LẬPTRÌNHTRÊNMICROSOFTEXCEL Sub OpenCascadeWindows() ActiveWindow.NewWindow Application.Windows.Arrange xlArrangeStyleCascade, True End SubNgười lập trình có thể đóng, thay đổi trạng thái của cửa sổ sử dụng các phương thức và thuộctính có trong đối tượng Window. Ví dụ sau sẽ đóng cửa sổ đã được tạo ra ở ví dụ trước và khôiphục lại trạng thái của cửa sổ ban đầu trong Excel: Sub CloseMaximize() ActiveWindow.Close ‘Đóng cửa sổ hiện hành ActiveWindow.WindowState = xlMaximized End SubViệc đóng cửa sổ cuối cùng của Workbook tương đương với việc đóng workbook đó. CHÚ Ý Trong cùng một workbook có thể có nhiều cửa sổ con, tất cả các cửa sổ con đó đều có nội dung giống nhau và đều là một thể hiện của workbook. Chi tiết, xem lại mục “Đối tượng Window” trang 127.Để điều khiển cửa sổ chính của Excel, sử dụng các thuộc tính WindowState vàDisplayFullScreen có trong đối tượng Application. Đoạn mã sau sẽ thực hiện thay đổi trạngthái cửa sổ chính của Excel, giữa các thái thái sẽ có một thông báo: Sub ChangeExcelWindowState() Application.WindowState = xlMaximized ‘Phóng đại cửa sổ MsgBox Trang thai phong dai Application.WindowState = xlMinimized ‘Thu nhỏ cửa sổ MsgBox Trang thai thu nho Application.WindowState = xlNormal ‘Trạng thái thông thường MsgBox Trang thai thong thuong Application.DisplayFullScreen = True ‘Xem toàn màn hình MsgBox Trang thai toan man hinh Application.DisplayFullScreen = False ‘Trạng thái bình thường MsgBox Trang thai thong thuong End Sub7.1.4. Khởi động Excel từ chương trình khácThông thường, khi sử dụng VBA trong Excel, chương trình Excel đã được khởi động sẵn vàngười lập trình không cần quan tâm đến các thao tác để khởi động chương trình Excel. Tuynhiên, vẫn có những lúc cần khởi động chương trình Excel từ chương trình khác, chẳng hạnnhư khi muốn xuất dữ liệu tính toán sang Excel chẳng hạn. Lúc đó, cần phải lập trình để khởiđộng Excel, hay nói theo cách đơn giản hơn, là tạo đối tượng Application chứa ứng dụng Excel.Để thực hiện được việc này, cần phải thực hiện các bước sau:1. Tham chiếu đến với thư v ...
Tìm kiếm theo từ khóa liên quan:
giáo trình quản trị mạng thủ thuật quản trị mạng kỹ năng quản trị mạng phương pháp quản trị mạng mẹo quản trị mạngTài liệu liên quan:
-
173 trang 423 3 0
-
Giáo trình Quản trị mạng (Nghề: Tin học ứng dụng - Trung cấp) - Trường Cao đẳng Cộng đồng Đồng Tháp
173 trang 124 1 0 -
99 trang 110 0 0
-
Giáo trình Quản trị mạng: Phần 1 - Từ Thanh Trí
73 trang 107 0 0 -
Một số giải pháp khắc phục lỗi router Wi-Fi phải reset mới vào được mạng
5 trang 100 0 0 -
Giáo trình quản trị mạng Windows 2000 nâng cao
36 trang 95 0 0 -
Giáo trình Quản trị mạng (Nghề Tin học ứng dụng - Trình độ Trung cấp) - CĐ GTVT Trung ương I
107 trang 71 0 0 -
88 trang 67 0 0
-
92 trang 58 0 0
-
266 trang 52 1 0