Không được à nha! Phải dùng hàm Search hoặc cái gì đó thuộc dạng TÌM TEXT
Dạng bài toán này không khó... Làm thì chẳng có vấn đề gì nhưng mà.. nói thật, không có file đính kèm nên cảm thấy lười lắm!
Nếu Cty có tên là:
=CHOOSE(IF(TYPE(FIND("c«ng ty tr¸ch nhiÖn h÷u h¹n",D3,1))=16,0,1)+IF(TYPE(FIND("cæ phÇn",D3,1))=16,0,2)+IF(TYPE(FIND("hîp t¸c x·",D3,1))=16,0,3)+IF(TYPE(FIND("dÞch vô",D3,1))=16,0,4)+1,"DNTN","TNHH","CP","HTX","DV")Tạm sửa lại lần 2 theo ý bạn!
Bạn xem File mình làm xó giống cái bạn cần không nhé
Option Explicit
Function ChuyenDoi(Old As Range, Chuan As Range) As String
Dim Rw As Long, Jj As Long
Rw = Chuan.Rows.Count
For Jj = 1 To Rw
With Chuan
If InStr(Old.Value, .Cells(Jj, 1).Value) > 0 Then
ChuyenDoi = Replace(Old, .Cells(Jj, 1).Value, .Cells(Jj, 2).Value)
Exit Function
End If
End With
Next Jj
End Function
Anh ơi, "DNTN" chứ hỏng phải là "DNTT"...
Option Explicit
Function TenTat(Ten As String, BangDo As Range) As String
On Error Resume Next
Dim i, j, iC As Integer
Dim Ten0, Ten1, Ten2 As String
iC = BangDo.Rows.Count
For i = 1 To iC
If InStr(1, Ten, BangDo(i, 1), 1) > 0 Then
Ten0 = Replace(Ten, BangDo(i, 1), BangDo(i, 2), , , 1)
Ten1 = BangDo(i, 2)
Exit For
End If
Next
If Ten1 = "" Then TenTat = "DNTN": Exit Function
For j = 1 To Len(Ten0)
If InStr(1, Ten0, BangDo(j, 1), 1) > 0 Then
Ten2 = BangDo(j, 2): Exit For
End If
Next
If Ten2 = "" Then TenTat = Ten1 Else TenTat = Ten1 & " & " & Ten2
End FunctionFunction TenTat(Ten As Range, Bang As Range, Optional Cot = 2) As String
Dim Clls As Range, Temp As String
For Each Clls In Bang.Resize(, 1)
If Not Ten.Find(What:=Clls.Value, LookAt:=xlPart, MatchCase:=False) Is Nothing Then
Temp = Temp & " & " & Clls.Offset(, Cot - 1)
End If
Next
If Temp = "" Then
TenTat = "DNTN"
Else
TenTat = Mid(Temp, 4, Len(Temp) - 3)
End If
End FunctionTừ khi sinh ra cho đến giờ, hôm nay mới biết đến cái .Find(What:=... ,LookAt:=xlPart, MatchCase:=False)
Bạn quét chọn vùng rồi gõ tên khối vào hộp Name Box ấy
