Macro trong excel và lập trình VBA - Phần 2

                                                                                     Xem phần 1 tại đây
1.Biến mảng:
Trong nhiều trường hợp ta phải sử dụng biến mảng để xử lý. Để hiểu về biến mảng, ta xét vài ví dụ sau:
Ví dụ 1: 
Sub Vi_du_1()
Dim M1(1 To 30) As Integer
Dim i  As Integer
For i = 1 To 30
    M1(i) = i * 2 + 1
Next i
     For i = 1 To 30
         Cells(i + 2, 2) = M1(i)
     Next i
End Sub

Trong ví dụ trên ta đã khai báo một biến mảng có tên là M1. Biến mảng M1 có 30 phần tử được thể hiện trong cặp dấu ngoặc đơn bằng 1 To 30. Mỗi phần tử của M1 là một số nguyên. Câu lệnh For thứ nhất trong ví dụ trên gán giá trị cho các phần tử của mảng. Câu lệnh For thứ hai in các phần tử mảng ở cột B, từ dòng thứ 3.
Ví dụ 2:
Sub Vi_du_2()
Dim M1(1 To 30) As String
Dim i  As Integer
For i = 1 To 21
    M1(i) = Cells(i + 2, 2)
Next i
     For i = 1 To 21
         Cells(i + 2, 4) = M1(i)
     Next i
End Sub
Trong ví dụ trên mỗi phần tử của mảng M1 là một xâu kí tự. Câu lệnh For thứ nhất đọc các giá trị trên cột B từ dòng thứ 3 đến dòng thứ 23 vào mảng. Câu lệnh For thứ hai in nội dung biến mảng vào cột D (các phần tử từ 1 đến 21) từ dòng thứ 3 đến dòng thứ 23
Bạn có thể chạy thử để kiểm nghiệm.
Bạn hãy tự đặt cho mình những bài toán có sử dụng biến mảng để sử dụng mảng cho thuần thục nhé.
Ví dụ dưới đây sẽ nói đến mảng 2 chiều.
(còn tiếp)