Nhờ giúp đỡ viết code VBA tách chuỗi ký tự trong ô

[barney1]

Bài viết đã xong! Thân ái cảm ơn anh chị!

 

[HieuCD]

Nhờ anh chị viết 1 đoạn code VBA: Để tách lấy những mã hàng tô đỏ trong một chuỗi như vậy(cột G) sang cột F- như trong ảnh ví dụ em để ở dưới ạ.
Trong ví dụ mã hàng em đang có tô đỏ, nhưng thực tế nó sẽ không có màu đỏ.
Quy luật các ký tự về mã hàng ở đây là :đứng ở cuối câu lấy lên , các ký tự được viết hoa..
Thân nhờ anh chị!
View attachment 289138

Dùng công thức được không?

F2 =MID(G2,IFERROR(FIND(")",G2)+1,FIND("C",G2,2)),33)

 

[HUONGHCKT]

Nhờ anh chị viết 1 đoạn code VBA: Để tách lấy những mã hàng tô đỏ trong một chuỗi như vậy(cột G) sang cột F- như trong ảnh ví dụ em để ở dưới ạ.
Trong ví dụ mã hàng em đang có tô đỏ, nhưng thực tế nó sẽ không có màu đỏ.
Quy luật các ký tự về mã hàng ở đây là :đứng ở cuối câu lấy lên , các ký tự được viết hoa..
Thân nhờ anh chị!
View attachment 289138

Góp vui:
Dùng hàm UDF

Option Explicit

Function LayMa(ByVal Rng As Range) As String
Dim j&, k&
Dim S, Tmp, Temp
    S = Split(Rng, " ")
        Temp = S(UBound(S))
            For j = Len(Temp) To 1 Step -1
                Tmp = Mid(Temp, j, 1)
                If Tmp = UCase(Tmp) Then
                    If Tmp <> ")" Then
                        k = j
                    End If
                Else
                    Exit For
                End If
            Next j
    LayMa = Mid(Temp, k, Len(Temp))

End Function

F3=LayMa(G3) và nhấn enter
(kết quả dòng 20 (dong cuối) ra không đúng ý)

 

[barney1]

Dùng công thức được không?

F2 =MID(G2,IFERROR(FIND(")",G2)+1,FIND("C",G2,2)),33)

Cảm ơn bạn!

Góp vui:
Dùng hàm UDF

Option Explicit

Function LayMa(ByVal Rng As Range) As String
Dim j&, k&
Dim S, Tmp, Temp
    S = Split(Rng, " ")
        Temp = S(UBound(S))
            For j = Len(Temp) To 1 Step -1
                Tmp = Mid(Temp, j, 1)
                If Tmp = UCase(Tmp) Then
                    If Tmp <> ")" Then
                        k = j
                    End If
                Else
                    Exit For
                End If
            Next j
    LayMa = Mid(Temp, k, Len(Temp))

End Function

F3=LayMa(G3) và nhấn enter
(kết quả dòng 20 (dong cuối) ra không đúng ý)

cảm ơn bác!

 

[SA_DQ]

Bài viết đã xong! Thân ái cảm ơn anh chị!

/(/ên hiểu chuyện này thế nào đây, nếu không phải là 'Ăn cháo đái bát'?

 

[htin1997]

Ủa là sao, nghĩa là sau này ai gặp trường hợp giống bác thì phải đăng bài mới thay vì tìm lại bài này trên diễn đàn hoặc google à?
Đăng bài hỏi cũng là 1 phần đóng góp nội dung cho diễn đạn thưa chủ thớt. Giờ thớt "quay xe" xóa nội dung đi thì có hơi...

 

[HUONGHCKT]

Sửa lại hàm UDF đã đăng ở bài #3 (có chỗ kết quả ra sai so với mong muốn)

Option Explicit

Function LayMa(ByVal Rng As Range) As String
Dim j&, k&, L&
Dim S, Tmp
    L = Len(Rng)
        For j = L To 1 Step -1
            Tmp = Mid(Rng, j, 1)
            If Tmp = ")" Then Exit For
            If Tmp = UCase(Tmp) Then
                    k = j
            Else
                Exit For
            End If
        Next j

LayMa = Mid(Rng, k, L + 1 - k)

End Function

 

[Thóc Sama]

Hô hô
Ăn ờ li vờ bồ
Bác @SA_DQ có hơi nặng lời đó nha!
Như em thì sẽ…nặng hơn.

 

[Hoàng Tuấn 868]

Sửa lại hàm UDF đã đăng ở bài #3 (có chỗ kết quả ra sai so với mong muốn)

Option Explicit

Function LayMa(ByVal Rng As Range) As String
Dim j&, k&, L&
Dim S, Tmp
    L = Len(Rng)
        For j = L To 1 Step -1
            Tmp = Mid(Rng, j, 1)
            If Tmp = ")" Then Exit For
            If Tmp = UCase(Tmp) Then
                    k = j
            Else
                Exit For
            End If
        Next j

LayMa = Mid(Rng, k, L + 1 - k)

End Function

Đề bài còn đâu mà sửa cho mất công anh ơi, người đọc sau này có biết anh viết cho cái gì mà còn lo đúng với sai vậy hả anh. Bao nhiêu công sức các thành viên hỗ trợ họ làm rụp một cái là xuống biển hết luôn.

 

[namvu230397]

Nước đi này hơi ác mà không ai có thể lường trước được, tại hạ xin bái phục

 

[htin1997]

Như em thì sẽ…nặng hơn.

"Qua cầu rút......thăm trúng thưởng" chăng?

 

[befaint]

Mình đã nói nhiều lần rồi.
Thích thì cứ xoá thôi mà, rồi có người vào dọn dẹp cho sạch.
Không làm sao hết cả. Cái này có tiền lệ được chủ trương thực hiện rồi.
Có người quay cái bánh xe... xoá mấy chục bài / chủ đề có vấn đề gì đâu, vẫn nhăn răng... khoẻ re.

 

[SA_DQ]

Chủ bài đăng đang vi phạm nội qui:

Trích nội qui diễn đàn:

V. Sở hữu thông tin:
1. Bài viết có sử dụng thông tin nơi khác phải . . . . .
2. Địa chỉ email của thành viên . . .
3. Bài viết được gửi lên Giải pháp Excel sẽ trở thành sở hữu của cộng đồng Giải pháp Excel. Chủ thể gửi bài không được tuỳ tiện xóa bài. . . . . . .
. . . .

Thôi ta đành nhờ/chờ các mods hay smod xử thôi.

 

[VetMini]

Đề bài còn đâu mà sửa cho mất công anh ơi, người đọc sau này có biết anh viết cho cái gì mà còn lo đúng với sai vậy hả anh. Bao nhiêu công sức các thành viên hỗ trợ họ làm rụp một cái là xuống biển hết luôn.

Người ta đã nói mấy bài hỏi chỉ là tạo công ăn việc làm cho "ai rảnh quá, cả ngày KHÔNG có việc gì để làm [sic]".
Người khác hỏi thì càng thêm công ăn việc l;àm chứ mất mát gì.

Việc này gợi mình nhớ trước đây có người thẳng thắn đưa quan niệm là người hỏi tạo cơ hội cho người trả lời tích lũy công đức; và vì vậy người trả lời nên mang ơn người hỏi.

 

[ptm0412]

Đã xử lý như hình

 

[befaint]

Đã xử lý như hình

View attachment 289157

Anh làm thế này thành ra xác nhận BQT diễn đàn làm việc theo 2 tiêu chuẩn, 2 thước đo rồi.
Kiểu rau hai luống đây mà.

Thích thì xử thế này, thích thì xử thế kia.

 

[ptm0412]

Anh làm thế này thành ra xác nhận BQT diễn đàn làm việc theo 2 tiêu chuẩn, 2 thước đo rồi.

Hơi sai. Lần trước có người nhận lỗi và xin lỗi.
Hơi đúng: Lần này chết tiệt hơn.

 

[befaint]

Hơi sai. Lần trước có người nhận lỗi và xin lỗi.
Hơi đúng: Lần này chết tiệt hơn.

Trước, họ 'mất'... lịch sự.
Trường hợp này, họ rất lịch sự anh nhé.

 

[SA_DQ]

. . . . . . . .
Trường hợp này, họ rất lịch sự anh nhé.

Sao bạn lại xài số nhiều làm vậy?

 

[ptm0412]

Trước, họ 'mất'... lịch sự.
Trường hợp này, họ rất lịch sự anh nhé.

Chính đó là chỗ chết tiệt hơn. Mà thôi, đừng bàn nữa. Bàn nữa ngỡ ra là còn ấm ức trong lòng hàng 10 năm không nguôi