Rút cụm ký tự từ chuỗi

[giangleloi]

Mình làm theo hướng dẫn rồi đấy chứ bạn xem lại xem. Từ nãy bận cũng chưa check lại được.

Code đó có vấn đề hay không là do bạn đấy? Tôi cũng đọc nhiều bài viết của VetMini, nếu đã viết thì đa số các bài viết đều tỉ mỉ cả.

 

[doatmenhhon]

Code đó có vấn đề hay không là do bạn đấy? Tôi cũng đọc nhiều bài viết của VetMini, nếu đã viết thì đa số các bài viết đều tỉ mỉ cả.

Cho thế này thì được =xtract(A1; "NT4;VT10;NT101;NT2122;NT19;NT20;ĐX"). Chắc cái máy củ chuối nó thế chuyển đi chuyển lại tự nhiên được

 

[VetMini]

hình nhỏ xíu, để xem lại. Làm cách nào để gỡ hình ra nhỉ?

Sửa: Cám ơn D&R. Mây cái hình nhỏ xíu, chả nhìn được gì cả,đã gỡ rồi.

 

[doatmenhhon]

Mệt nhỉ. Với một người viết code như bạn thì có gì khó đâu


View attachment 150112

Thứ nhất là không có time đang làm việc hăng say vì có code hay nên cố hóng. Thứ hai máy móc nhiều khi nó giở trời lúc nẫy để ĐX ở đầu nó không được tính để về nhà theo dõi xem sao nhưng trót hỏi rồi thì hỏi cho trót.

 

[doveandrose]

hình nhỏ xíu, để xem lại. Làm cách nào để gỡ hình ra nhỉ?

í cái này em biết nè
khi bấm vài nút tải File thì cửa sổ chọn File hiện ra , ta kéo xuống 1 chút thì thấy các file đã tải của mình

giờ muốn bỏ cái nào thì bấm vào nút Remove bên cạnh File đó . hi hi

 

[van_utc]

Quy luật người ta nói trong file đó:

Chỗ màu đỏ xem như là từ điển. Vậy ta làm như sau:
1> Đặt name
Đặt 1 name có tên là dic, với Refers to:

={"ĐX","NT4","VT10","NT101","NT2122","NT19","NT20"}

2> Code VBA:

Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aTmp, arr(), Item, tmp As String
  Dim i As Long, n As Long
  'On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      If TypeName(Item) <> "Error" Then
        tmp = CStr(Item)
        n = n + 1
        ReDim Preserve arr(1 To n)
        arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(arr, Delimiter)
End Function

3> Công thức trên Sheet:

=JoinText("",MID(C4,SEARCH(dic,C4),LEN(dic)))

hoặc:

=JoinText("",IF(SEARCH(dic,C4),dic))

Cả 2 công thức đều là mảng, phải Ctrl + Shift + Enter nhé

Cảm ơn anh về bài viết này. Đúng là em cũng đang có thắc mắc giống vậy.
Anh cho em hỏi thêm chút em nhận được file có 64652 dòng thông tin, trong đó có tên, địa chỉ... Khổ nỗi người nhập liệu trước kia nhập theo 2 kiểu cả TCVN và Unicode (font .VnTime và Arial) và rất lộn xộn. Em đã thử bôi đen từng cột rồi đổi font từ UniKey nhưng không hoàn chỉnh do nó bị nhảy dòng (khi đổi xong em paste lại nó lại hơn 64652 dòng, mỗi cột lại thêm ra số dòng khác nhau).
Anh có cách nào khắc phục có thể chỉ giúp cho em được không?
Em cảm ơn anh ạ.

 

[doatmenhhon]

Cảm ơn anh về bài viết này. Đúng là em cũng đang có thắc mắc giống vậy.
Anh cho em hỏi thêm chút em nhận được file có 64652 dòng thông tin, trong đó có tên, địa chỉ... Khổ nỗi người nhập liệu trước kia nhập theo 2 kiểu cả TCVN và Unicode (font .VnTime và Arial) và rất lộn xộn. Em đã thử bôi đen từng cột rồi đổi font từ UniKey nhưng không hoàn chỉnh do nó bị nhảy dòng (khi đổi xong em paste lại nó lại hơn 64652 dòng, mỗi cột lại thêm ra số dòng khác nhau).
Anh có cách nào khắc phục có thể chỉ giúp cho em được không?
Em cảm ơn anh ạ.

Bạn chịu khó chờ đến tết Công Gô ^^

 

[HungQuoc49]

Cảm ơn anh về bài viết này. Đúng là em cũng đang có thắc mắc giống vậy.
Anh cho em hỏi thêm chút em nhận được file có 64652 dòng thông tin, trong đó có tên, địa chỉ... Khổ nỗi người nhập liệu trước kia nhập theo 2 kiểu cả TCVN và Unicode (font .VnTime và Arial) và rất lộn xộn. Em đã thử bôi đen từng cột rồi đổi font từ UniKey nhưng không hoàn chỉnh do nó bị nhảy dòng (khi đổi xong em paste lại nó lại hơn 64652 dòng, mỗi cột lại thêm ra số dòng khác nhau).
Anh có cách nào khắc phục có thể chỉ giúp cho em được không?
Em cảm ơn anh ạ.

Cái này có thể dùng font.name lọc ra, sau đó dùng công cụ của unikey xử lý