Xử lý chuỗi được nhập từ INPUTBOX (1 người xem)

[VanDunga]

Xin chào a/c diễn đàn GPE
E cần tìm cách tách được A B C D E từ 1 chuỗi nhập vào từ inputbox như bên dưới
cảm ơn ạ

 

[giaiphap]

Xin chào a/c diễn đàn GPE
E cần tìm cách tách được A B C D E từ 1 chuỗi nhập vào từ inputbox như bên dưới
cảm ơn ạ

View attachment 293219

Chưa bẩy lỗi nhé.

Public Sub Tach()
    Dim s, st As String
    st = InputBox("Nhap chuoi")
    For Each s In Split(st, ",")
        MsgBox s
    Next s
End Sub

 

[VanDunga]

Chưa bẩy lỗi nhé.

Public Sub Tach()
    Dim s, st As String
    st = InputBox("Nhap chuoi")
    For Each s In Split(st, ",")
        MsgBox s
    Next s
End Sub

Cả ơn anh, để e test thử