ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦r¦ê°ÝÃD

¦r¦ê°ÝÃD

½Ð°Ý¦U¦ì¦³¬Æ»ò¤èªk±i¦r¦ê 123456789 ­ËÂàÅܦ¨ 987654321 ¡C
§Ú¥u«YÃÑ¥H¤U¤èªk¡AÁÙ¦³¨S¦³¨ä¥L¤èªk±N¥H¤U¤½¦¡¬Ù²¤¤@ÂI©O??
CONCATENATE(MID(Àx¦s®æ,9,1),MID(Àx¦s®æ,8,1),MID(Àx¦s®æ,7,1),MID(Àx¦s®æ,6,1),MID(Àx¦s®æ,5,1),MID(Àx¦s®æ,4,1),MID(Àx¦s®æ,3,1),MID(Àx¦s®æ,2,1),MID(Àx¦s®æ,1,1))

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-6-5 09:48 ½s¿è

¦^´_ 1# ONT

¯Â¼Æ¦r¥i¥Î
=SUMPRODUCT(--MID(A1,LEN(A1)-ROW(INDIRECT("A1:A"&LEN(A1)))+1,1),10^(LEN(A1)-ROW(INDIRECT("A1:A"&LEN(A1)))))
­Y¥]§t«D¼Æ¦r¦r¦ê«h¥²¶·¨Ï¥ÎVBA¦Û©w¸q¨ç¼Æ
  1. Function TranStr(mystr As Variant) As String
  2. Dim i%
  3. For i = Len(mystr) To 1 Step -1
  4.   TranStr = IIf(TranStr = "", Mid(mystr, i, 1), TranStr & Mid(mystr, i, 1))
  5. Next
  6. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-6-5 10:13 ½s¿è

¦^´_ 1# ONT

¦bVBA¸Ì­±·s¼W¤@­Ó¼Ò²Õ¡AµM«á¶K¤W¤U¦C¤º®e
  1. Public Function STRE(InString As String)
  2. STRE = StrReverse(InString)
  3. End Function
½Æ»s¥N½X
¦^¨ì¤u§@ªí¡A¦b§A­n¤ÏÂ઺¨º®æ¿é¤J=STRE(¥Ø¼ÐÀx¦s®æ¥N¸¹)
´N¥i¥H¤F¡A¦ý¶È­­©ó¦³¦¹¼Ò²ÕªºexcelÀÉ¡A
Function´Nµ¥©ó¬O§A¥Îvba¦Û¤v¼g¤@­Óexcel¨ç¼Æªº·N«ä

TOP

¥»©«³Ì«á¥Ñ sunnyso ©ó 2014-6-5 10:43 ½s¿è

Sub ReverseText()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "SonnyToolforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Rng.Value
xLen = VBA.Len(xValue)
xOut = ""
For i = 1 To xLen
getChar = VBA.Right(xValue, 1)
xValue = VBA.Left(xValue, xLen - i)
xOut = xOut & getChar
Next
Rng.Value = xOut
Next
End Sub
ss

TOP

¤½¦¡¥u¯à³B²z¯Â¼Æ¦r¤å¦r¡A¦Ó¥B³Ì¦h¥u¯à15¦ì¼Æ(EXCEL¦³®Ä¼Æ¦r­­¨î)

¤U¦C¤½¦¡¥i¥H¦Ò¼{«e«á¦³0¼Æ¦rªº±¡ªp
=RIGHT(REPT(0,15)&SUMPRODUCT(MID(A1&REPT(0,15),ROW($1:$15),1)*10^(ROW($1:$15)-1)),LEN(A1))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD