Tách chuỗi ký tự nằm giữa hai ký tự đặc biệt

[phulien1902]

A ơi a có thể nói chi tiết giúp em xem đoạn code trên ap dụng như thế nào vào exel được k ạ em cảm ơn a

Bạn làm như sau:
1. Gõ Alt+F11
2. Vào Insert ---> Module
3. Copy Code bài #4, dán vào Module
4. Ghi lại
5. Bấm nút Run, hoặc F5 để chạy code
Trong File tôi đã tạo nút bấm giúp bạn

 

[Lê Hồng Minh83]

Cảm ơn anh Lê Hồng Minh83 đã trả lời câu hỏi của em: VD ở ô A1 là "Dầm dọc, ngang: 10x5+3=53", em muốn trả về kết quả là "10x5+3". ý em là:
Tách chuỗi ký tự nằm giữa hai ký tự đặc biệt khác nhau ( tách chuỗi giữa dấu ":" và dấu "=") ạ. anh xem giúp em với ạ. em cảm ơn

Vậy là hiểu nhầm rồi.
Bạn thử cái này nha: =RIGHT(LEFT(A2,FIND("=",A2)-1),LEN(LEFT(A2,FIND("=",A2)-1))-FIND(": ",LEFT(A2,FIND("=",A2)-1)))

 

[Phan Thế Hiệp]

Mọi người ơi có thể giúp mình được không,
Ví dụ mình muốn tách "10x5+3" từ chuỗi ký tự "Cột B, D: 10x5+3=53" thành "10x5+3"

A1="Cột B, D: 10x5+3=53"
Thử:

=MID(LEFT(A1,FIND("=",A1)-1),FIND(":",A1)+1,100)

Enter
Thân.

 

[hocon25118]

Em làm được rồi, em cảm ơn các anh nhiều ạ

 

[hocon25118]

Phiền mọi người giúp em với ạ:
Vẫn từ chuỗi ký tự "10x5+3=543"

 

[phulien1902]

Phiền mọi người giúp em với ạ:
Vẫn từ chuỗi ký tự "Cột B, D: 10x5+3=53" em muốn tách phần sau dấu "=" để tách được thành "53" thì làm thế nào ạ. Ý em là: tách chuỗi sau dấu "=" ạ.

Bạn thử:

Sub abc()
   Dim St
      St = [b1]
      '[c1] = Split(Split(St, ":")(1), "=")(0)
      [c1] = Split(St, "=")(1)
End Sub

 

[Phan Thế Hiệp]

Phiền mọi người giúp em với ạ:
Vẫn từ chuỗi ký tự "Cột B, D: 10x5+3=53" em muốn tách phần sau dấu "=" để tách được thành "53" thì làm thế nào ạ. Ý em là: tách chuỗi sau dấu "=" ạ.

Thử:
=MID(A1,FIND("=",A1)+1,100)
Thân.

 

[hocon25118]

he, chuẩn cái em đang cần. cảm ơn các anh rất nhiều ạ

 

[hocon25118]

hi, em hỏi cũng hơi nhiều ạ.
Mọi người xem giúp em với ạ
Em muốn tách dữ liệu "8*1,54*0,62*0,1 = 0,764" thành "8*1,54*0,62*0,1" thì phải làm thế nào ạ. em muốn tách dữ liệu trước dấu "=" ạ

 

[phulien1902]

hi, em hỏi cũng hơi nhiều ạ.
Mọi người xem giúp em với ạ
Em muốn tách dữ liệu "8*1,54*0,62*0,1 = 0,764" thành "8*1,54*0,62*0,1" thì phải làm thế nào ạ. em muốn tách dữ liệu trước dấu "=" ạ

+ Với đầu vào vẫn là B1 nhé, thì bạn dùng:
[c1] = Split(Range("B1"), "=")(0)

 

[hocon25118]

Anh Phulien1902 xem lại giúp em với ạ, em dùng thì báo là: chức năng đó không hợp lệ ạ.

 

[phulien1902]

Bạn làm vậy là chưa đúng rồi. Bạn vào cửa sổ VBA và xem trong File nhé

 

[hocon25118]

e làm được rồi ạ, Cảm ơn anh Phulien1902.

 

[hocon25118]

Mọi người giúp em với ạ: em muốn tách "15" từ chuỗi "Tnanh D2,3,4- 6 ( 15 DS)" thành "15" ạ. cảm ơn mọi người trước ạ

 

[phulien1902]

Mọi người giúp em với ạ: em muốn tách "15" từ chuỗi "Tnanh D2,3,4- 6 ( 15 DS)" thành "15" ạ. cảm ơn mọi người trước ạ

Thử:

Sub abc()
    [c1] = Split(Range("B1"), " ")(4)
End Sub

 

[HieuCD]

Thử:

Sub abc()
    [c1] = Split(Range("B1"), " ")(4)
End Sub

Nhanh gọn và "Phiêu lưu" hơn bạn nhiều

Sub abc()
    [c1] = 15
End Sub

Khà khà, Chúc bạn 1 ngày cuối tuần vui

 

[phulien1902]

Nhanh gọn và "Phiêu lưu" hơn bạn nhiều

Sub abc()
    [c1] = 15
End Sub

Khà khà, Chúc bạn 1 ngày cuối tuần vui

Hay quá!
Code của bác quá ngắn gọn, không thể ngắn hơn.
Em cũng xin kính chúc bác & gia đình 1 ngày cuối tuần vui vẻ.

 

[VetMini]

Val( Split( "Tnanh D2,3,4- 6 ( 15 DS)", "(" )(1) ) = 15

 

[hocon25118]

cảm ơn các đại ca đã nhiệt tình chỉ giáo ^_^

 

[hocon25118]

hi, em hỏi cũng hơi nhiều