[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.

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

123 (4)

 

 

Trong đó:

  • – UBound(mang): trả về kết quả kiểu Long, giá trị lớn nhất độ dài của mảng.
  • – LBound(mang): trả về kết quả kiểu Long, giá trị nhỏ nhất độ dài của mảng.
  • – Len(mang(i)) = 10: kiểm tra
  • – Độ dài của phần tử thứ i nếu = 10. Tức là phần tử chứa ngày tháng năm.

Excel Tips: Các công cụ phân tích dữ liệu thông dụng trong Excel

Khóa học Ứng dụng Excel trong xử lý dữ liệu

Khóa học Ứng dụng VBA trong Excel

Để lại một bình luận

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

1 + 1 = ? (Nhập Haii để trả lời đúng)

Bài viết liên quan
Focus Cell trong Excel – Tính năng giúp tăng khả năng điều hướng

Đã bao giờ bạn lạc trôi giữa hàng trăm dòng, hàng ngàn cột trên Excel… mà không biết mình đang ở đâu? Nếu “mất phương hướng” là cảm giác quen thuộc

Xem thêm
Trí tuệ nhân tạo AI là gì? Khái niệm, phân loại và vai trò trong cuộc sống

Trong thời đại cách mạng công nghiệp 4.0, trí tuệ nhân tạo AI đang trở thành một phần không thể thiếu trong nhiều lĩnh vực của cuộc sống. Từ các trợ

Xem thêm
Truy vấn lồng (Subquery) trong SQL – Bí kíp giúp xử lý và truy xuất dữ liệu với mức độ phức tạp cao

Truy vấn lồng (Subquery) là một trong những công cụ hiệu quả trong SQL, giúp xử lý và truy xuất dữ liệu với mức độ phức tạp cao hơn so với

Xem thêm
Hàm TRIMRANGE() – Hàm xóa giá trị trống “đỉnh” hơn cả TRIM.

Như bạn đã biết hàm TRIM() trong Excel giúp loại bỏ các ký tự trống (khoảng trắng). Tương tự vậy hàm TRIMRANGE() được sử dụng để xóa các giá trị trống khỏi một phạm vi

Xem thêm