Xin hỏi lệnh thay thế chuổi

[thanhvien1802]

XIn hỏi 2 công thức thay thế trong Excel và trong VB6
+Thay dấu - thành dấu .
+Bỏ từ sau dấu ":" về sau.
Ví dụ:
192-168-1-100:8080 thành 192.168.1.100

157-268-50-210:5417 thành 157.268.50.210
Mình xin cảm ơn trước.

 

[ndu96081631]

XIn hỏi 2 công thức thay thế trong Excel và trong VB6
+Thay dấu - thành dấu .
+Bỏ từ sau dấu ":" về sau.
Ví dụ:
192-168-1-100:8080 thành 192.168.1.100

157-268-50-210:5417 thành 157.268.50.210
Mình xin cảm ơn trước.

Dùng công thức này xem:
=SUBSTITUTE(MID($A$1,1,FIND(":",$A1,1)-1),"-",".")

 

[cadafi]

XIn hỏi 2 công thức thay thế trong Excel và trong VB6
+Thay dấu - thành dấu .
+Bỏ từ sau dấu ":" về sau.
Ví dụ:
192-168-1-100:8080 thành 192.168.1.100

157-268-50-210:5417 thành 157.268.50.210
Mình xin cảm ơn trước.

Bạn dùng Substitute và Left để giải quyết nhé!

=SUBSTITUTE(LEFT(A1,FIND(":",A1,1)-1),"-",".")

Trời, Anh ndu trả lời rồi à!

 

[Hai Lúa Miền Tây]

Bạn dùng hàm SUBSTITUTE nhé
Ví dụ : A1=192-168-1-100:8080, B1=SUBSTITUTE(A1,"-",".")-->KQ:192.168.1.100:8080
Thân

 

[thanhvien1802]

Thế còn trong VB6 thì câu lệnh như thế nào.Xin cảm ơn.

 

[ndu96081631]

Thế còn trong VB6 thì câu lệnh như thế nào.Xin cảm ơn.

VB6 tôi không biết nhưng chắc không khác mấy với VBA
Dùng Replace thay cho SUSTITUTE
Dùng InStr thay cho Find
Ví dụ

Sub Test
 Range("B1") = Replace(Mid([A1], 1, InStr(1, [A1], ":") - 1), "-", ".")
End Sub

Hoặc:

Sub Test()
  With Application.InputBox("Chon cell", Type:=8)
    MsgBox Replace(Mid(.Cells, 1, InStr(1, .Cells, ":") - 1), "-", ".")
  End With
End Sub

 

[cadafi]

Bạn thử Function này xem sao:

Function CatChuoi(mText As String) As String
CatChuoi = Replace(Left(mText, InStr(1, mText, ":") - 1), "-", ".")
End Function

 

[thanhvien1802]

MÌnh đang còn thử nhưng vẫn chưa chạy được
Text1 : là ô chứa chuổi Ví dụ : 203-162-0-11:45124
Text2 : là kết quả : 203.162.0.11
Các bạn sửa lại cho công thức:
Text2 = Replace(Mid(Text1, 1, InStr(1, Text1, ":") - 1), "-", ".")

Text2 = Replace(Left(Text1, InStr(":", Text1, 1) - 1), "-", ".")
XIn cảm ơn.

 

[ndu96081631]

MÌnh đang còn thử nhưng vẫn chưa chạy được
Text1 : là ô chứa chuổi Ví dụ : 203.162.0.11:45124
Text2 : là kết quả : 203.162.0.11
Các bạn sửa lại cho công thức:
Text2 = Replace(Mid(Text1, 1, InStr(1, Text1, ":") - 1), "-", ".")
XIn cảm ơn.

Có thể có sai sót gì đó khi bạn áp dụng ---> Bạn đưa file lên thử xem!

 

[thanhvien1802]

MÌnh đã dùng thêm lênh được rồi. Cảm ơn các bạn nhiều!