[Excel VBA tip] Cách tách ngày tháng năm từ chuỗi văn bản

Đôi khi bạn cần thực hiện tách ngày tháng năm từ một chuỗi văn bản không cố định trong Excel. Việc sử dụng các hàm như LEFT, RIGHT, MID… có lẽ sẽ hơi phức tạp. Vậy sử dụng VBA là cách sẽ giúp bạn tách được một cách dễ dàng hơn.

Bạn để ý, nếu ngày tháng năm được định dạng đầy đủ theo định dạng dd-MM-yyyy thì sẽ có độ dài chuỗi là 10. Nên nếu bạn tách được các phần tử của chuỗi ra từng phần tử riêng và kiểm tra độ dài của từng phần tử đó thì việc tách được ngày tháng năm sẽ khá đơn giản.

Mục lục

1. Tách chuỗi thành từng phần tử trong VBA

Để tách được chuỗi ra thành từng phần tử, bạn hãy sử dụng hàm SPLIT với cú pháp như sau:

= SPLIT(Expression As String, [dấu phân chia])

Trong đó:

– Expression As String: là một biến có định dạng kiểu String. Chứa văn bản cần tách.
– [dấu phân chia]: là ký tự phân chia giữa các phần tử của văn bản.

Ví dụ: tách chuỗi sau thành các phần tử bằng dấu phân cách “ ” (khoảng trắng).

Hôm nay là ngày 20-01-2019

Thì bạn có thể sử dụng hàm:

Dim chuoi As String

Dim mang() As String

chuoi=”Hôm nay là ngày 20-01-2019″

mang=Split(chuoi, ” “)

Trong đó:

– mang() As String: là khai báo dạng mảng 1 chiều. Nếu trong () rỗng là không xác định trước độ dài mảng. Và phần tử bắt đầu có vị trí là 0.
– Split(chuoi, ” “): sẽ thực hiện tách chuỗi với dấu phân chia là ” ” (khoảng trắng).

Như vậy, kết quả có được là:

mang[0]= “Hôm”
mang[1]=”nay”
mang[2]=”là”
mang[3]=”ngày”
mang[4]=”20-01-2019″

2. Cách tách ngày tháng năm từ mảng dữ liệu VBA

Khi đã tách được chuỗi ra các phần tử đơn lẻ, tiếp theo bạn cần thực hiện là kiểm tra độ dài của từng phần tử đó.

Như đã đề cập ở phần đầu bài viết, nếu bạn sử dụng đầy đủ định dạng của ngày tháng năm thì phần tử đó sẽ có độ dài chuỗi là 10. Vậy bạn cần sử dụng thêm 1 vòng lặp FOR để quét kiểm tra độ dài tất cả phần tử của mảng là sẽ tìm ra được.

Dim i As Integer

Dim dodaimang As Long

dodaimang = UBound(mang) – LBound(mang)

For i = 0 To dodaimang Step 1

If Len(mang(i)) = 10 Then

MsgBox mang(i)

End If

Next i