Tài liệu lập trình Pascal - Đồ rê mí :))

Tài liệu học lập trình Pascal đơn giản!

              1. Kiến thức cơ bản (Lý thuyết)

              2. Bài tập cơ bản

Một số hàm, thủ tục VBA đơn giản

CÁC HÀM, THỦ TỤC VBA ĐƠN GIẢN

1. Một số hàm tự tạo trong VBA
B1. Nhấn <Alt+F11> để mở cửa sồ VBE (Visual Basic Editor)
B2. Vào Insert, chọn Module.
B3. Nhập vào đoạn mã vào: (Các hàm trình bày phía dưới)

B4. Đóng cửa sổ VBA Editor bằng phím tắt <Alt+Q>, và tại ô A1 nhập vào hàm sau: =TabName().
B5. Nhấn <Enter> và xem kết quả.

1. Hàm trả về tên sheet hiện hành Function TabName()    TabName = ActiveSheet.Name End Function 2. Hàm trả về tên workbook hiện hành Function WkbName()    WkbName = ActiveWorkbook.Name End Function 3. Hàm trả về đường dẫn đến workbook hiện hành Function WkbPath()    WkbPath = ActiveWorkbook.Path End Function 4. Hàm trả về tên đầy đủ của workbook Function WkbFull()    WkbFull = ActiveWorkbook.FullName End Function 5. Hàm trả về User hiện tại của Windows hoặc Excel                                         Để lấy tên User Windows hiện hành Function User()    User = Environ("Username") End Function Để lấy tên User Excel hiện hành Function ExcelUser()    ExcelUser = Application.UserName End Function 6. Hàm trả về công thức trong một ô (cell) xác định Function FormT(vdc As Range)    FormT = " " & vdc.Formula End Function 7. Hàm kiểm tra xem một ô có chứa công thức hay không Function FormYes(vdc As Range)    FormYes = vdc.HasFormula End Function 8. Hàm kiểm tra xem một ô (cell) trong bảng tính có đang áp dụng tính năng Data Validation hay không Function Valid(vdc As Range)    Dim intV As Integer    On Error GoTo errorM    intV = vdc.Validation.Type    Valid = True    Exit Function errorM:    Valid = False End Function 9. Hàm kiểm tra xem một ô (cell) có chứa chú thích (comment) hay không Function ComT(vdc As Range)    On Error GoTo errorM    If Len(vdc.Comment.Text) > 0 Then ComT = True    Exit Function errorM:    ComT = False End Function ....Còn tiếp >>>

2. Hiện thị thông báo nhiều trên dòng

   

Code: MsgBox "Dao Dinh Ngoc" & ChrW(10) & vbNewLine & "Dao Dinh Vinh"

- Giải thích: ChrW(10) hoặc vnNewLine: Dùng để xuống hàng
- Để điều chỉnh nội dung theo tab ta dùng:
Code: MsgBox "Ho va ten: " & Ten & vbTab & vbTab & "Tuoi la " & Tuoi
3. Thay đổi Font chữ, cỡ chữ, kiểu chữ, màu sắc...của một vùng

Sub ChangeFont1()   With Selection   .Font.Name = "Verdana" 'Chọn font chữ   .Font.FontStyle = "Bold Italic" 'Kiểu chữ   .Font.Size = 20 'Cỡ chữ   .Font.Underline = xlUnderlineStyleSingle 'Gạch chân nét đơn   .Font.ColorIndex = 5 'Màu chữ   End With End Sub

4. Hộp thoại Input dữ liệu

* InputBox (prompt [, title] [, default], [, left], [, top] [helpfile, context] [, type])
Chủ yếu sử dụng nhập dữ liệu vào từ bàn phím và thường được gán bởi 1 biến kiểu xâu kí tự hoặc số. 

Sub Inputdata() Dim tb As String     tb = InputBox("Moi ban nhap du lieu:") End Sub

Tiếng Việt trong VBA

Để hiển thị được Chữ Việt trong các thông báo của VBA bạn thực hiện theo cách sau đây:

B1. Mở file Word mới, bật chức năng Record Macro của MS Word.

B2. Gõ nội dung chữ Việt cần dùng để đưa vào thông báo của VBA.
Vd: Xin chào các bạn Hãy làm quen với VBA nhé!

B3. Vào cửa sổ VBA của Word >> Modunle >> New macro, copy đoạn thông báo chữ Việt rồi vào cửa sổ VBA của Excel sử dụng thông báo sau:
Application.Assistant.DoAlert "Thông báo", "Xin chào các b" & ChrW(7841) & "n" & " Hãy làm quen v" & ChrW(7899) & "i VBA nhé!", 0, 4, 0, 0, 0
Kết quả thu được như hình sau đây:

Chú ý: Mặc định tham số sau cùng trong lệnh Application.... là: 0, 4, 0, 0, 0