作者：绿色风
分类：
时间：2022-08-17
浏览：82
楼主
apolloh |
Q：如何将一个字符串逆序返回？
A：可使用自定义函数：按Alt+F11组合键，插入模块。复制下列代码，然后在工作表中使用 逆序返回字符串() 函数- Function 逆序返回字符串(StrText As String) As String
- Dim i As Integer, strTemp As String
- For i = Len(StrText) To 1 Step -1
- strTemp = strTemp & Mid(StrText, i, 1)
- Next i
- 逆序返回字符串 = strTemp
- End Function
期待更好的代码
 逆序返回字符串.rar
|
2楼
apolloh |
水星钓鱼
- Function StrRe(StrText As String) As String
- StrRe = StrReverse(StrText)
- End Function
|
3楼
gvntw |
本来就有专门逆转的VB函数StrReverse，呵呵 |
4楼
apolloh |
知识海洋浩瀚无边，偶常常能感受到自己所学有限，这就是一个例子了，虽然很基础，以前也用过，不过东西时间长了不用它，就是会忘记的。
 |
5楼
gvntw |
呵呵，这种事情可能谁都遇到过，世上从没有一个人能掌握所有知识。我也是以前在EH看到一个帖子，有人用循环的方法反转字符串，后来哪位版主说有这么个函数才知道的，只是平时没用过，也记不住，把这个函数记在Word文件里，要用时再找来用，呵呵。 |
6楼
gouweicao78 |
设置迭代运算。
C1输入=IF(D1,C1&RIGHT(LEFT(A1,LEN(A1)-LEN(C1))),"")
D1作为启用开关，输入1或非0数字后按住F9一会儿。即可。 |
7楼
yaoxuhuijsz |
好东西，学习 |
8楼
bluexuemei |
学习! |
9楼
paul001 |
 为什么我经常复制代码 运行的时候总是会出错呢 |
10楼
keven |
这个赞一个！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一