Tách họ và tên trong VBA Excel

• Tạo giá trị số ngẫu nhiên trong VBA Excel
• Lấy dòng cuối của Excel bằng VBA

Hướng dẫn cách lập trình tách họ và tên bằng code VBA Excel

Cách lập trình tách họ và tên bằng code VBA

Sub Button1_Click()
   ' LAP TRINH VIEN 01
   hoten = Range("C5").Value
   Dim arrhoten() As String
   arrhoten = Split(hoten, " ")
   ptCuoi = UBound(arrhoten, 1)
   
   Ho = ""
   For i = 0 To ptCuoi - 1
        Ho = Ho & " " & arrhoten(i)
   Next i
   Ten = arrhoten(ptCuoi)
   MsgBox "Ho: " & Ho
   MsgBox "Ten: " & Ten
End Sub
Sub Button2_Click()
   ' LAP TRINH VIEN 02
   hoten = Range("C5").Value
   Dim arrhoten() As String
   arrhoten = Split(hoten, " ")
   MsgBox "Ho: " & arrhoten(0) & " " & arrhoten(1)
   MsgBox "Ten: " & arrhoten(2)
End Sub

* Bạn chạy thử ví dụ và xem lập trình viên nào làm đúng