Cho tơ hỏi cái lệnh Arr,Slipt,UBound có ý nghĩa ntn vậy.
tại em chưa hiểu cái code đấy lắm ạ. hyhy. có gì anh thông cảm nhá
Cái code này của em còn bị sai sót gì không anh. em chạy thử rồi nhưng ra kết quả sai ạ. anh xem hộ em với ạ. Em cám ơn nhá
Chắc không cần file. Cái này chắc sẽ có nhiều người dùng tới. Bạn thử làm xem.
Function DaoViTri(Chuoi As String, PhanCach As String) As String
Dim Temp As Variant
Dim Temp2 As String
Dim i As Long
Temp = VBA.Split(Chuoi, PhanCach)
For i = UBound(Temp) To 0 Step -1
Temp2 = Temp2 & "-" & Temp(i)
Next i
DaoViTri = Right(Trim(Temp2), Len(Temp2) - 1)
End FunctionTôi đoán cái người ta cần là gõ hàm bên sheet tiếng Nhật rồi ra kết quả luôn (khỏi mất công copy qua lại)
Function RemoveMarks(ByVal Text As String) As String
Dim CharCode, i As Long
Dim ResText As String, sTmp As String
On Error Resume Next
sTmp = Text
CharCode = Array(7855, 7857, 7859, 7861, 7863, 7845, 7847, 7849, 7851, 7853, 225, _
224, 7843, 227, 7841, 259, 226, 273, 7871, 7873, 7875, 7877, 7879, _
233, 232, 7867, 7869, 7865, 234, 237, 236, 7881, 297, 7883, 7889, _
7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907, 243, 242, _
7887, 245, 7885, 244, 417, 7913, 7915, 7917, 7919, 7921, 250, _
249, 7911, 361, 7909, 432, 253, 7923, 7927, 7929, 7925)
ResText = "aaaaaaaaaaaaaaaaadeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyy"
For i = 0 To UBound(CharCode)
sTmp = Replace(sTmp, ChrW(CharCode(i)), Mid(ResText, i + 1, 1))
sTmp = Replace(sTmp, UCase(ChrW(CharCode(i))), UCase(Mid(ResText, i + 1, 1)))
Next
RemoveMarks = sTmp
End Function
Function ReverseWord(ByVal Text As String, Optional ByVal SrcDelimiter As String = " ", Optional ByVal DesDelimiter As String = " ") As String
Dim arr, sTmp As String, n As Long
sTmp = StrReverse(Replace(Text, SrcDelimiter, DesDelimiter))
arr = Split(sTmp, DesDelimiter)
For n = 0 To UBound(arr)
arr(n) = StrReverse(arr(n))
Next
ReverseWord = Join(arr, DesDelimiter)
End Function=RemoveMarks(UPPER(ReverseWord(VLOOKUP($I4,'TIENG VIET'!$G$4:$K$1000,4,0), ", ", " - ")))=RemoveMarks(UPPER(VLOOKUP($I4,'TIENG VIET'!$G$4:$K$1000,5,0)))Bạn ơi đối với việc đảo lại vị trí theo của bạn thì
