Giáo trình vba

Tham khảo luận văn - đề án 'đề tài: tổng quan về thiết kế và tự động hóa thiết kế công trình giao thông', luận văn - báo cáo, công nghệ thông tin phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả

284p thoritruong 18-04-2013 211 34   Download

Mục đích: Tạo menu popup khi người dùng Right-Click khi chuột trong vùng làm việc của một worksheet. Giả sử workbook của tôi có một worksheet, thì trong ví dụ của tôi có hai đoạn mã. Đoạn thứ nhất nằm trong Module VBA: PopupMenu và đoạn mã thứ hai nằm trong module worksheet: workhere

7p yesno123 16-09-2011 110 32   Download

Một số Query bạn chỉ cần lấy 1 lần rồi sau đó khi có sự thay đổi dữ liệu gốc trong file Access, bạn chỉ cần nhấn Refresh, dữ liệu sẽ tự động update. Đặc biệt là các Query nhằm tạo báo cáo tổng hợp như: Tổng hợp công nợ nhà cung cấp, tổng hợp công nợ khách hàng, tổng hợp nhập xuất tồn vật tư hàng hoá, Bảng cân đối phát sinh.

9p yesno123 16-09-2011 228 24   Download

Điều khiển các chức năng cơ bản và nâng cao: 1. Hoán đổi vị trí các fields trong cùng Area PHP Code: With ActiveSheet.PivotTables("") .PivotFields("").Position = IIf(.Position = 1, 2, 1) ' Dời Row field qua trái hoặc Column Field lên trên:' .PivotFields("").Position = .Position - 1 ' Dời Row field qua phải hoặc Column Field xuống dưới:' .PivotFields("").Position = .Position + 1 End With 2. Chuyển vị trí fields từ Area này qua Area khác PHP Code: With ActiveSheet.PivotTables("") .PivotFields("").Orientation = xlRowField 'Row Area' .PivotFields("").

8p yesno123 16-09-2011 326 71   Download

Thế mạnh của Pivot Table là hoán vị các field để tạo ra các mẫu báo cáo khác nhau. Code hoán vị rất đơn giản: PHP Code: Field = "Mathang" With ActiveSheet.PivotTables("PivotTable1").PivotFields(Field) ' Hoán đổi qua lại vị trí 2 trường cùng 1 Area (Row Fields, Column Fields, ho ặc Page Fields)' .Position = IIf(.Position = 1, 2, 1) ' Dời đến Row Area' .Orientation = xlRowField ' Dời đến Column Area' .Orientation = xlColumnField ' Dời đến Page Area' .Orientation = xlPageField ' Dời Row field qua trái hoặc Column Field lên trên' .Position = .

5p yesno123 16-09-2011 149 22   Download

Dữ liệu của ta không chỉ có doanh thu, mà còn có lợi nhuận. Sếp bắt ta phân tích cả lợi nhuận nữa. Không nhất thiết phải có 2 sheet cho các báo cáo doanh thu riêng, lợi nhuận riêng. VBA có thể làm được điều này.

4p yesno123 16-09-2011 39 5   Download

Tiếp theo bài trên, tôi làm 1 báo cáo chi tiết từng khách hàng cũng bằng Pivot table, dùng 1 Combobox để chọn khách hàng, dùng VBA để lọc Pivot table với khách hàng đó. Câu lệnh lọc theo tên khách hàng và refresh pivot table là: PHP Code: With ActiveSheet.PivotTables("PivotTable1") .PivotFields("Mskh").CurrentPage = [J1].Value .PivotCache.Refresh End With Với J1 là linkedCell của combobox. Tôi có dùng VBA để: - Đánh số thứ tự - Kẻ khung, tô đậm, tính số dư cuối kỳ. - tính thêm 2 cột Dư nợ, dư có - Set Print Area (để khỏi in mấy object) - Đánh số trang trong Page Footer -...

3p yesno123 16-09-2011 204 30   Download

Như đã nói trong sách Pivot Table 2003, Pivot Table là 1 công cụ rất mạnh để phân tích, nhưng để nguyên Pivot table thì không in ra như 1 báo cáo đúng chuẩn được. Hôm nay tôi viết bài này, giới thiệu 1 số thủ thuật trong đó có dùng VBA để định dạng Pivot table lại thành 1 báo cáo hoàn chỉnh có thể in ra được.

6p yesno123 16-09-2011 451 121   Download

Trước khi giải quyết vấn đề chúng ta cần làm rõ một số điểm. Thường Office 2000 dùng ngôn ngữ VBA version 6.0 để viết code. Trên Win9x hay WinMe, có hai trở ngại khi dùng Unicode trong lập trình hiển thị chuỗi Unicode lên các phần tử giao diện, đó là:

12p lemona 18-08-2011 139 7   Download