CẦN HÀM TÁCH CHỮ (1 người xem)

[Nguyễn Thành Châu]

HI CẢ NHÀ, EM FILE NHƯ TRÊN. ANH EM NÀO CÓ THỨC NÀO ĐIỀN VÔ PHẦN Ô TIẾN ĐỘ KHÔNG VẬY? EM XIN CẢM ƠN CẢ NHÀ ĐÃ GIÚP ĐỠ.

 

[giaiphap]

HI CẢ NHÀ, EM FILE NHƯ TRÊN. ANH EM NÀO CÓ THỨC NÀO ĐIỀN VÔ PHẦN Ô TIẾN ĐỘ KHÔNG VẬY? EM XIN CẢM ƠN CẢ NHÀ ĐÃ GIÚP ĐỠ.

Để được trợ giúp bạn nên sửa lại nội dung bài viết sang dạng chữ thường, không được viết in hoa cả bài viết như vậy? (Bạn xem lại nội quy diễn đàn, bạn đang vi phạm ở II. Hình thức của bài viết, mục số 3). Bạn là thành viên mới nên tôi nhắc chút, sau khi bạn sửa lại nội dung tôi chắc sẽ có rất nhiều người sẽ giúp cho bạn.

 

[be_09]

HI CẢ NHÀ, EM FILE NHƯ TRÊN. ANH EM NÀO CÓ THỨC NÀO ĐIỀN VÔ PHẦN Ô TIẾN ĐỘ KHÔNG VẬY? EM XIN CẢM ƠN CẢ NHÀ ĐÃ GIÚP ĐỠ.

Đọc lại nội quy để hiểu mình vi phạm cái gì.

 

[SA_DQ]

Function ConLai(StrC As String, Optional Str0 As String)
Dim J As Integer, VT As Integer
If Str0 = Space(0) Then 
     Str0 = "A,B,C,D,E,F,G,"
Else
    Str0=Str0 & ","
End If
StrC = StrC & ","
For J = 1 To Len(Str0) Step 2
    VT = InStr(StrC, Mid(Str0, J, 2))
    If VT Then
    Else
        ConLai = ConLai & Mid(Str0, J, 2)
    End If
Next J
End Function

 

[giaiphap]

Function ConLai(StrC As String, Optional Str0 As String)
Dim J As Integer, VT As Integer
If Str0 = Space(0) Then
     Str0 = "A,B,C,D,E,F,G,"
Else
    Str0=Str0 & ","
End If
StrC = StrC & ","
For J = 1 To Len(Str0) Step 2
    VT = InStr(StrC, Mid(Str0, J, 2))
    If VT Then
    Else
        ConLai = ConLai & Mid(Str0, J, 2)
    End If
Next J
End Function

Bác @SA_DQ ơi em e rằng chủ thớt lại tiếp tục có câu hỏi nửa là: Code chạy với file này tốt nhưng em lại không áp dụng được vào file thực tế của mình, do file của em không phải A, B, C, D... mà là Cam, Bưởi, Chôm chôm, Mảng cầu...

 

[SA_DQ]

Người hỏi tới đâu mình tới đó thôi & sẵn lòng phục vụ 24/7!

 

[VetMini]

Để được trợ giúp bạn nên sửa lại nội dung bài viết sang dạng chữ thường, không được viết in hoa cả bài viết như vậy? (Bạn xem lại nội quy diễn đàn, bạn đang vi phạm ở II. Hình thức của bài viết, mục số 3). ...

Đọc lại nội quy để hiểu mình vi phạm cái gì.
...

Người hỏi tới đâu mình tới đó thôi & sẵn lòng phục vụ 24/7!

 

[giaiphap]

Anh cười vụ gì? Cười ngạo nghể, cười kính nể hay cười khi dễ.
Em chỉ góp ý cho bạn ấy hiểu để lần sao đăng bài rõ ràng hơn, hoặc bài viết có di chuyển vài thùng rác thì cũng biết nguyên nhân. Chớ khi em đã viết bài thì đã có nhã ý giúp đỡ rồi.

 

[VetMini]

Anh cười vụ gì? Cười ngạo nghể, cười kính nể hay cười khi dễ.
Em chỉ góp ý cho bạn ấy hiểu để lần sao đăng bài rõ ràng hơn, hoặc bài viết có di chuyển vài thùng rác thì cũng biết nguyên nhân. Chớ khi em đã viết bài thì đã có nhã ý giúp đỡ rồi.

Xin lỗi. Tôi không có ý cười bạn.
Tôi chỉ muốn nói có thể chủ thớt vừa hốt bài vừa cười.