Oh, thách đố lạ vậy nhỉ:kongcom đã viết:
Public Function DaoChu(St As String) As String
Dim strText As String, i As Integer
Dim subText() As String
strText = SuperTrim(St)
subText = Split(strText, " ")
strText = ""
For i = UBound(subText) To 0 Step -1
subText(i) = StrReverse(subText(i))
strText = strText + subText(i) + " "
Next
DaoChu = Trim(strText)
End Function
Option Explicit
Public Function daochuoi(strText As String) As String
Dim sReverse As String
sReverse = StrReverse(strText)
daochuoi = sReverse
End Function+ oh, cám ơn nvson nhénvson đã viết:
kongcom đã viết:
Option Explicit
Public Function DaoChu(St As String) As String
DaoChu = StrReverse(SuperTrim(St))
End Function
Private Function SuperTrim(TheStr As String)
Dim Temp As String, DoubleSpase As String
DoubleSpase = Chr(32) & Chr(32)
Temp = Trim(TheStr)
Temp = Replace(Temp, DoubleSpase, Chr(32))
Do Until InStr(Temp, DoubleSpase) = 0
Temp = Replace(Temp, DoubleSpase, Chr(32))
Loop
SuperTrim = Temp
End FunctionOption Explicit
Public Function DaoChu(strText As String) As String
Dim sReverse As String 'Nvson
sReverse = StrReverse(strText)
'DaoChu = Trim(sReverse)
DaoChu = WorksheetFunction.Trim(sReverse)
End Functionkongcom đã viết:
Function StrReverse(Expression As String) As String
Member of VBA.Strings
Reverse a stringThuNghi đã viết:
Hàm TRIM trong Excel cắt tất cả dấu cách thừa (dấu cách bên trái, bên phải và các dấu cách liên tục từ 2 dấu cách trở lên), Ví dụ " Giải pháp____Excel " > "Giải pháp Excel"ThuNghiXin hỏi tại sao dùng [B đã viết:
=MID($A1,LEN($A1)+1-ROW(INDIRECT("1:"&LEN($A1))),1)anhtuan1066 đã viết:
Function Dao(text) As String
For i = Len(text) To 1 Step -1
Dao = Dao & Mid(text, i, 1)
Next i
End FunctionDỄ VÀ KHÓ
Dễ là khi bạn có một chỗ trong sổ địa chỉ của một người, nhưng khó là khi bạn tìm được một chỗ trong trái tim của người đó.
Dễ là khi đánh giá lỗi lầm của người khác, nhưng khó là khi nhận ra sai lầm của chính mình.
Dễ là khi nói mà không suy nghĩ, nhưng khó là khi biết kiểm soát những lời nói của mình.
Dễ là khi làm tổn thương một người mà bạn yêu thương, nhưng khó là khi hàn gắn vết thương đó.
Dễ là khi tha thứ cho người khác, nhưng khó là khi làm cho người khác tha thứ cho mình.
Dễ là khi đặt ra các nguyên tắc, nhưng khó là khi làm theo chúng.
Dễ là khi nằm mơ hàng đêm, nhưng khó là khi chiến đấu vì một ước mơ.
Dễ là khi thể hiện chiến thắng, nhưng khó là khi nhìn nhận một thất bại.
Dễ là khi vấp phải một hòn đá và ngã, nhưng khó là khi đứng dậy và đi tiếp.
Dễ là khi hứa một điều với ai đó, nhưng khó là khi hoàn thành lời hứa đó.
Dễ là khi chúng ta nói rằng chúng ta yêu thương, nhưng khó là khi làm cho người khác cảm thấy như thế hàng ngày.
Dễ là khi phê bình người khác, nhưng khó là khi cải thiện chính bản thân mình.
Dễ là khi để xảy ra sai lầm, nhưng khó là khi học từ những sai lầm đó.
Dễ là khi buồn bực vì một điều gì đó mất đi, nhưng khó là khi quan tâm đủ đến điều đó để đừng làm mất.
Dễ là khi nghĩ về một việc, nhưng khó là khi ngừng suy nghĩ và bắt đầu hành động.
Dễ là khi nghĩ xấu về người khác, nhưng khó là khi cho họ niềm tin.
Dễ là khi nhận, nhưng khó là khi cho.
Dễ là khi đọc những điều này, nhưng khó là khi bạn thực hiện nó.
Nếu cơ hội mãi không gõ cửa, bạn phải xem mình đã xây một cánh cửa chưa đã.
Cho tớ hỏi là muốn đảo chuỗi thoe kiểu này thì làm thế nào ạ. VD: Từ "Anh Yêu Em" -> "Em Yêu Anh" đảo ngược lại chuỗi theo dấu cách ý.
Function dao(Rng As String)
Dim i As Long, kQ As String
Dim Arr
Arr = Split(Rng, " ")
For i = UBound(Arr) To 0 Step -1
kQ = kQ & " " & Arr(i)
Next
dao = kQ
End Function
