XÂY DỰNG HÀM ĐẢO NGƯỢC CHUỖI TRONG VBA EXCEL
Khi cần xử lý dữ liệu trong Excel, bạn đã tìm hết các hàm có sẵn trong Excel nhưng những hàm này không thể xử lý được hoặc xử lý một cách triệt để theo mong muốn của mình. Ví dụ dưới đây là một trong những trường hợp như vậy. Bạn có 1 đoạn ký tự 35-36-37-38, mong muốn của bạn là có 1 hàm để sau khi Copy chúng sang 1 địa chỉ khác đoạn ký tự trên sẽ tự động chuyển thành 38-27-36-35. Nếu như trong Excel không có sẵn hàm để xử lý công việc này, chúng ta vẫn có thể tự xây dựng 1 hàm riêng để xử lý công việc theo mong muốn, dưới đây là các bước thao tác.
☑️ B1: Ấn tổ hợp phím Alt+F11
☑️ B2: Vào Menu InsertModule
☑️ B3: Copy và Paste đoạn Code phía dưới vào
Function ReverseWord(Source As Range, Sign As String)
Dim Rng As Range
On Error Resume Next
For Each Rng In Source
strList = VBA.Split(Rng.Value, Sign)
xOut = “”
For i = UBound(strList) To 0 Step -1
xOut = xOut & strList(i) & Sign
Next
Next
If Right(xOut, Len(Sign)) = Sign Then xOut = Left(xOut, Len(xOut) – Len(Sign))
ReverseWord = xOut
End Function
☑️ B4: Sử dụng
Bây giờ bạn quay lại màn hình làm việc Excel. Ví dụ chuỗi 35-36-37-38 tại ô A1, bạn đặt trỏ chuột tại ô muốn Copy chuỗi sang là ô B1 và gõ công thức = ReverseWord(A1,”-“). Kết quả tại ô B1 ta sẽ có kết quả là 38-37-36-35
———————-
#quantriexcel
#kynangmoi
#quantriexcel #kynangmoi
DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.Cám ơn.
