[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
Học và ứng dụng trí tuệ nhân tạo (AI) cho người mới trong năm 2025

Hướng dẫn chi tiết cho người mới bắt đầu học và ứng dụng trí tuệ nhân tạo AI, từ nền tảng học miễn phí đến công cụ AI không cần code.  

Xem thêm
[ƯU ĐÃI THÁNG 07/2025] Đóng sớm tháng Bảy – Giá hời hết sảy

Chào hè tháng 07, UniTrain mang đến ưu đãi kép cho học viên: Giảm ngay 177.000đ trên mức ưu đãi đóng sớm khi học viên đăng ký bất kỳ khóa học nào trong tháng này. Khóa

Xem thêm
Trực Quan Hóa Chỉ Số Hiệu Suất (KPI) Trong Power BI

Khi cần trình bày một chỉ số quan trọng trong báo cáo và so sánh với mục tiêu đề ra, KPI Visual trong Power BI là công cụ trực quan và

Xem thêm
Xu hướng mới của trí tuệ nhân tạo (AI) trong năm 2025

Cập nhật các xu hướng mới nhất về trí tuệ nhân tạo AI năm 2025 như GPT-5, video AI, giáo dục thông minh và chiến lược AI tại Việt Nam. Trí

Xem thêm