Ứng dụng excel trong quản lý văn bản
PHẦN A. ĐẶT VẤN ĐỀ
Bước 2: Trong giao diện file chọn mục More -> Option Bước 3: Trong giao diện Excel Options chọn Customize Ribbon > Chọn Developer > Nhấn OK là xong. Để chèn các đối tượng như: Combobox, listbox, Label, Button vào trong sheet Excel tạo giao diện, ta thực hiện như sau: Nhấp Developer > Insert, dưới Form Controls ta lựa chọn các đối tượng cần chèn, sau đó kéo thả chuột để di chuyển tới vị trí cụ thể. Với việc sử dụng các đối tượng Button và Label, ta tạo được giao diện chính của phần mềm như hình sau: Hình 1. Giao diện chính của phần mềm Nút lệnh “cập nhật dữ liệu”: dùng để mởi sheet “Data” Nút lệnh “Tìm kiếm dữ liệu”: dùng để mở sheet “Find” Ta phải xây dựng 2 đoạn code mở 2 sheet Data và find sau đó gán vào 2 nút lệnh trên, với code macro như sau: Đoạn code mở sheet Data: Sub opensheet1() ThisWorkbook.Sheets(“Data”).Activate End Sub Đoạn code mở sheet find: Sub opensheet2() ThisWorkbook.Sheets(“find”).Activate End Sub Tất cả các công văn đều được lưu trữ trong thư mục Data, do đó trước khi bắt đầu chương trình sẽ có một đoạn code kiểm tra sự tồn tại của thư mục Data, nếu không tồn tại, chương trình sẽ tự tạo ra thư mục Data. Đoạn code được thiết kế như sau: Sub checkfolder() Dim fdObj As Object Dim path_folder As String Dim sDFolder As String path_folder = ThisWorkbook.Path sDFolder = path_folder & “\Data” Application.ScreenUpdating = False Set fdObj = CreateObject(“Scripting.FileSystemObject”) If fdObj.FolderExists(sDFolder) = False Then fdObj.CreateFolder (sDFolder) End If Application.ScreenUpdating = True End Sub |