如何让单元格内的文字倒立

时光鸟

然后再改一，就可以做为自定义函数了，放在模块中，在显示结果的单元格输入=NiXuPaiLie(A1)    [A1就是原始字符串保存的地方，你可以任意换]

1. Public Function NiXuPaiLie(Str$)
   
2. Dim n As Integer
   
3. Dim arr() As String
   
4. n = Len(Str)
   
5. ReDim arr(1 To n) As String
   
6. 
   
7. For i = 1 To n
   
8. arr(i) = Mid(Cells(1, 1).Value, i, 1)
   
9. Next i
   
10. 
    
11. If n Mod 2 > 0 Then
    
12.     For ii = 1 To ((n - 1) / 2)
    
13.     flag = 0
    
14.     flag = arr(ii)
    
15.     arr(ii) = arr(n + 1 - ii)
    
16.     arr(n + 1 - ii) = flag
    
17.     Next ii
    
18. ElseIf n Mod 2 = 0 Then
    
19.     For ii = 1 To n / 2
    
20.     flag = 0
    
21.     flag = arr(ii)
    
22.     arr(ii) = arr(n + 1 - ii)
    
23.     arr(n + 1 - ii) = flag
    
24.     Next ii
    
25. End If
    
26.   
    
27. For x = 1 To n
    
28. NiXuPaiLie = NiXuPaiLie & arr(x)
    
29. Next x
    
30. 
    
31. End Function

复制代码

1249994139

枫桥夜泊lwb 发表于 2012-11-26 20:23
在“设置单元格格式”中的字体前加上一个@，此时文字已逆时针方向旋转了90度，然后在“对齐”里在把方向再 ...

请问下老师，咋设置呀。可以详细讲下操作的步骤么，比如将单元格的字符串，“大家学习都很认真”，给弄成
大
家
学
习
都
很
认
真
这样子，且需要是在一个单元格中，谢谢！！！！

1249994139

时光鸟 发表于 2012-11-26 22:23
然后再改一，就可以做为自定义函数了，放在模块中，在显示结果的单元格输入=NiXuPaiLie(A1)    [A1就是原始 ...

这个效果，好像excel的VBA中有一个这样的函数进行转换的吧……