Tham khảo tài liệu ''giáo trình phân tích khả năng ứng dụng lập trình bằng ngôn ngữ visual basic trên java p3'', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL Ø Người sử dụng lựa chọn vùng liệu trực tiếp worksheet cách sử dụng chuột; Ø Việc kiểm tra liệu nhập vào thực tự động Cú pháp hàm InputBox sau: Application.InputBox(prompt, title, default, left, top, helpFile, context, type) Hầu hết tham số tham số tuỳ chọn, có tham số prompt bắt buộc phải nhập vào Ý nghĩa tham số sau: Tham số Giải thích prompt Đoạn văn hiển thị hộp thoại title Tiêu đề hộp thoại InputBox default Giá trị mặc định Nếu người dùng khơng nhập cả, hàm trả giá trị mặc định left, top Toạ độ góc bên trái hộp thoại helpFile, context Tên tệp trợ giúp chủ đề cần hiển thị type Mã xác định kiểu trả hàm Bảng sau thể loại mã xác định kiểu trả hàm: Mã Kiểu giá trị trả Công thức Số Chuỗi Boolean (True False) Đối tượng kiểu Range Tham chiếu đến vùng liệu 16 Giá trị lỗi, chẳng hạn #NA 64 Mảng giá trị Hàm InputBox Excel sử dụng linh hoạt Hàm cho phép có nhiều kiểu giá trị trả cách cộng loại mã thích hợp Ví dụ muốn hộp thoại InputBox cho phép nhập vào số chuỗi, nhập tham số type (tức 1+2, hay “Số” cộng “chuỗi”) Còn gán tham số type người dùng tự nhập vào địa vùng liệu hộp thoại, chọn vùng liệu worksheet chuột Ví dụ sau, thủ tục EraseRange, sử dụng hàm InputBox để người dùng lựa chọn vùng liệu để xố Người dùng nhập vào địa vùng liệu chọn cách dùng chuột Hàm InputBox với tham số type trả đối tượng kiểu Range (chú ý từ khố Set trước hàm InputBox, lúc hàm trả đối tượng giá trị đơn thuần) Vùng liệu xoá phương thức Clear Giá trị mặc định hiển thị hộp thoại InputBox địa vùng chọn hành Câu lệnh On Error nhằm mục đích khỏi thủ tục có lỗi xảy Sub EraseRange() Dim UserRange As Range 163 Dim DefaultRange As String DefaultRange = Selection.Address On Error GoTo Canceled Set UserRange = Application.InputBox _ (Prompt:=“Vùng liệu cần xoá:”, _ Title:= “Xoá vùng liệu”, _ Default:=DefaultRange, _ Type:=8) UserRange.Clear UserRange.Select Canceled: End Sub Một lợi điểm việc sử dụng hàm inputBox Excel việc tự động thực kiểm tra giá trị nhập vào Trong ví dụ trên, người dùng nhập vào giá trị địa vùng liệu, Excel hiển thị hộp thông báo nhắc người dùng nhập lại liệu 8.2.2 Hộp thoại Open – Hàm GetOpenFilename Trong số chương trình, cần nhập vào tên tệp đó, ta sử dụng hộp thoại InputBox để yêu cầu người sử dụng nhập vào tên tệp từ bàn phím Tuy nhiên cách phát sinh lỗi người dùng nhập vào tên tệp không tồn (có thể gõ phím sai khơng nhớ xác tên tệp) Một cách tốt để làm việc sử dụng phương thức GetOpenFilename đối tượng Application Phương thức hiển thị hộp thoại Open (giống chọn trình đơn FilOpen) trả tên tệp chọn mà không mở tệp Người dùng việc chọn tệp cơng cụ trực quan có sẵn hộp thoại Cú pháp phương thức sau (tất tham số tham số tuỳ chọn): GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,MultiSelect) 164 CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL Tham số Giải thích FileFilter Chuỗi chứa lọc tệp FilterIndex Số thứ tự lọc tệp mặc định Title Tiêu đề hộp thoại, giá trị mặc định “Open” ButtonText Không sử dụng MultiSelect Nếu TRUE, người dùng chọn nhiều tệp lúc Mặc định FALSE Tham số FileFilter quy định phần tử hiển thị danh sách đổ xuống “File of type” hộp thoại Mỗi phần tử tương ứng với loại tệp Phần tử cặp giá trị gồm tên hiển thị danh sách phần mở rộng loại tệp tương ứng Nếu không gán giá trị cho tham số này, giá trị mặc định là: “All Files (*.*),*.*” Chú ý phần đầu chuỗi (phần nằm phía trước dấu phẩy - All Files (*.*)) đoạn văn hiển thị danh sách Còn phần thứ hai chuỗi (phần nằm sau dấu phẩy – *.*) phần mở rộng tệp hiển thị Ví dụ sau minh hoạ cách tạo chuỗi chứa biến Filt dùng để truyền vào tham số FileFilter phương thức GetOpenFilename Như trường hợp này, người dùng chọn loại tệp (và lựa chọn cho tất tệp) Filt = “Text Files (*.txt),*.txt,” & _ “Comma Separated Files (*.csv),*.csv,” & _ “All Files (*.*),*.*” Ví dụ sau nhắc người dùng chọn tệp, sau hiển thị tên tệp chọn Sub GetImportFileName() Dim Filt As String Dim FilterIndex As Integer Dim Title As String Dim FileName As String ' Gán lọc tệp Filt = "Text Files (*.txt),*.txt," & _ "Comma Separated Files (*.csv),*.csv," & _ "All Files (*.*),*.*" ' Hiển thị tệp *.csv mặc định FilterIndex = ' Gán tiêu đề cho hộp thoại Title = "Chon tep" ' Lấy tên tệp FileName = Application.GetOpenFilename _ (FileFilter:=Filt, _ FilterIndex:=FilterIndex, _ Title:=Title) ' Thoát nhấn nút Cancel If FileName = "False" Then MsgBox "Khong tep nao duoc chon." Exit Sub End If ' Hiển thị tên tệp đầy đủ MsgBox "Ban vua chon tep: " & FileName 165 End Sub Hình IV-18: Hộp thoại Open 8.2.3 Hộp thoại Save As – Hàm GetSaveAsFilename Phương thức GetSaveAsFilename tương tự phương thức GetOpenFileName Phương thức hiển thị hộp thoại Save As, cho phép người dùng chọn định tệp để lưu, sau trả tên tệp đầy đủ không thực thao tác lưu Cú pháp phương thức sau: GetSaveAsFilename(InitialFilename,FileFilter,FilterIndex,Title,Button Text) Tham số Giải thích InitialFilename Xác định tên tệp gợi ý ban đầu FileFilter Chuỗi chứa lọc tệp FilterIndex Số thứ tự lọc tệp mặc định Title Tiêu đề hộp thoại, giá trị mặc định “Save As” ButtonText Không sử dụng Ví dụ sau hiển thị hộp thoại Save As để người dùng nhập vào tên tệp, sau hiển thị tên tệp lựa chọn 166 CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL Sub SaveAs() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:="TenTep", _ FileFilter:="Excel Workbook (*.xls), *.xls", _ Title:="Luu tap tin") If fileSaveName "False" Then MsgBox "Save as " & fileSaveName End If End Sub 8.2.4 Hộp thoại chọn thư mục – Đối tượng FileDialog Nếu cần người dùng chọn thư mục để thực thao tác đó, thực theo nhiều cách khác nhau, đơn giản sử dụng đối tượng FileDialog Ví dụ sau hiển thị hộp thoại cho phép người dùng chọn thư mục Sau hiển thị tên thư mục cách sử dụng hộp thoại MsgBox Tên tệp truy cập thơng qua thuộc tính SelectedItems đối tượng FileDialog Sub GetAFolder() With Application.FileDialog(msoFileDialogFolderPicker) InitialFileName = Application.DefaultFilePath & “\” Title = “Please select a location for the backup” Show If SelectedItems.Count = Then MsgBox “Canceled” Else MsgBox SelectedItems(1) End If End With End Sub Đối tượng FileDialog cho phép định thư mục ban đầu cách gán giá trị cho thuộc tính InitialFileName Trong ví dụ sử dụng thư mục mặc định Excel làm thư mục ban đầu 8.2.5 Các hộp thoại mặc định Excel – Tập đối tượng Dialogs Tập đối tượng Dialogs đối tượng Application bao gồm 258 phần tử thể hầu hết hộp thoại mặc định Excel Mỗi hộp thoại có số định nghĩa trước giúp người dùng xác định hộp thoại cần hiển thị cách dễ dàng Chẳng hạn muốn hiển thị hộp thoại GoTo Excel, sử dụng số xlDialogFormulaGoto Sử dụng phương thức Show để hiển thị hộp thoại Ví dụ sau hiển thị hộp thoại Go To Excel Application.Dialogs(xlDialogFormulaGoto).Show Người lập trình cịn viết mã lệnh để kiểm tra cách thức đóng hộp thoại Trong ví dụ sau, biến Result trả TRUE người dùng kích chuột vào nút OK, FALSE kích chuột vào nút Cancel nhấn phím ESC Result = Application.Dialogs(xlDialogFormulaGoto).Show Cần phải lưu ý rằng, tính khơng trình bày rõ ràng tài liệu trợ giúp Excel Các tài liệu trợ giúp cho phần sơ lược, không đề cập đến thật: hộp 167 ... CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL Tham số Giải thích FileFilter Chuỗi chứa lọc tệp FilterIndex Số thứ tự lọc tệp mặc định Title Tiêu đề hộp thoại, giá trị mặc định “Open” ButtonText Không sử dụng. .. định “Save As” ButtonText Khơng sử dụng Ví dụ sau hiển thị hộp thoại Save As để người dùng nhập vào tên tệp, sau hiển thị tên tệp lựa chọn 166 CHƯƠNG IV: LẬP TRÌNH TRÊN MICROSOFT EXCEL Sub SaveAs()... Excel, sử dụng số xlDialogFormulaGoto Sử dụng phương thức Show để hiển thị hộp thoại Ví dụ sau hiển thị hộp thoại Go To Excel Application.Dialogs(xlDialogFormulaGoto).Show Người lập trình cịn