Ads Nhà Tài Trợ
Nam Trung JSC Thớt Gỗ, Ván Ghép Các Loại

Đối tượng cơ bản ( VBA EXCEL)

A. Đối tượng Application
Application.SaveWorkspace "Ván sàn gỗ tự nhiên"
Đoạn mã lệnh trên sẽ lưu giữ những cài đặt của màn hình trong vùng làm việc với tên là "Ván sàn gỗ tự nhiên".

* Khi bạn làm việc với bảng tính có nhiều công thức tính toán, khi thay đổi số liệu thì thời gian tính toán lại đáng kể. Để rút ngắn thời gian tính toán, bạn sử dụng thuộc tính Calculation trong câu lệnh dưới đây ở đầu một thủ tục :

Application.Calculation = xlCalculationManual 
Dòng lệnh trên có tác dụng làm tạm thời dừng tính toán trong Excel.

Application.Calculation = xlCalculationAutomatic

Dòng lệnh trên khôi phục chế độ tính toán tự động của Excel 

* Thuộc tính ScreenUpdating
Trong quá trình tính toán, cửa sổ màn hình Excel luôn được cập nhật lại gây hiện tượng khó chịu (nhấp nháy). Khi đó, bạn sử dụng thuộc tính ScreenUpdating với dòng lệnh ở đầu và ở cuối thủ tục :
Application.ScreenUpdating=False    'Hủy bỏ chế độ cập nhật màn hình
Application.ScreenUpdating=True     'Khôi phục chế độ cập nhật màn hình
Cũng như đối với thuộc tính Calculation, thuộc tính ScreenUpdating giúp bẽng tính của bạn tính toán nhanh hơn.
* Thuộc tính DisplayAlerts
Khi làm việc trong Excel, bạn thường bắt gặp những thông báo tự động "Do you want to save this file...”, “Data may exist in the sheet(s) selected for deletion...” khi thực hiện một số công việc nào đó. Điều đó gây cản trở đến sự hoạt động của các thủ tục bằng cách yêu cầu bạn phải xác nhận lại hành động. Thuộc tính DisplayAlerts sẽ giúp bạn điều khiển chế độ tự động thông báo Bạn hãy sử dụng hai dòng lệnh ở dưới đây ở đầu và cuối thủ tục:
Application.DisplayAlerts=False  'Hủy bỏ thông báo tự động của Excel
Application.DisplayAlerts=True   'Khôi phục thông báo tự động của Excel

B. Đối tượng Window

ActiveWorkbook.NewWindow                Hiện workbook được kích hoạt trong cửa sổ mới
Windows. Arrange                                   Hiện toàn bộ workbook đang mở trên màn hình
Windows(l).DisplayGridlines=False       Không cho hiện lưới ô tại cửa sổ thứ nhất.
Windows(2).Activate                               Kích hoạt cửa sổ Window thứ hai.
ActiveWindow.Caption                            Xác định tên của cửa sổ Window đang kích hoạt.
Activewinclow.ActiveSheet.name           Xác dịnh tên của sheet hiên hành trong ActiveWindow
ActiveWindow.windowState=xlNormal  Thay đổi kích cỡ cửa sổ của ActiveWindow như xlNormal (bình thường), xlMaximizec (lớn hết cỡ), xlMinimized (nhỏ hết cỡ).
ActiveWindow.Caption ="Vidu"             Đổi tên của cửa sổ Window đang kích hoạt thành "Vidu".

C.    Đối tượng Workbook

Workbook.Add                                                      Mở thêm môt workbook mới.
Workbooks(1).Name                                             Xác định tên workbook đầu tiên.
Workbooks.Count                                                  Xác định số workbook đang mở.
Workbooks(2).Activate
                                          Kích hoạt workbook thứ hai đang mở.
Workbooks("Ván sàn gỗ cao su.xls").Activate    Kích hoạt Ván sàn gỗ cao su.xls
ActiveWorkbook.SaveAs  Filename:="Ván sàn gỗ tự nhiên.xls"  Lưu workbook đang kích hoat với tên là Ván sàn gỗ tự nhiên.xls
Workbooks(1).Close                                               Đóng workbook đầu tiên.
activeworkbooks.Close savechanges:=False     Đóng workbook đang được kích hoat và không lưu những gì thay đổi.
Workbooks.Close                                                   Đóng toàn bộ workbook đang mở.

(còn tiếp ...)
(Sưu tầm)

Đăng nhận xét

0 Nhận xét
* Please Don't Spam Here. All the Comments are Reviewed by Admin.
Sở hữu một thiết kế thanh lịch và vô cùng đẳng cấp, mang trong mình một hiệu năng "cực khủng", chụp ảnh, quay phim chất lượng hàng đầu nhờ cụm 3 camera 50 MP. Thiết bị hoàn hảo dành cho dân làm việc văn phòng theo mô hình Workcation thích du lịch khám phá, làm Việc Từ Xa,... Thiết bị công nghệ số cực ngon dành cho TELEWORK, WFH, người làm nghề MMO, KOC / Streamer,...

Xem Giá Bán

Laptop Asus Gaming ROG Flow Z13 GZ301Z i7 12700H (LD110W), siêu phẩm hỗ trợ làm việc, học tập online, đem đến cho bạn những giây phút trải nghiệm giải trí cực đỉnh cùng laptop CPU thế hệ 12 mới nhất. Thiết kế lai giữa laptop gaming và máy tính bảng sáng tạo, sang chảnh, trang bị công nghệ tân tiến nhất, chinh phục mọi giới hạn cùng với cấu hình vượt trội.

Xem Giá Bán