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

SoarCN · 发表于 2012-11-26 20:14

本帖最后由 SoarCN 于 2012-11-26 21:42 编辑

如标题，正常是向上的字，如何设置180度的反转，Excel里只能设置正负90度的改变方向。

事后添加：感谢“枫桥夜泊lwb”非常快速的回复，以及其他热心的朋友。
效果见附件：

效果图

枫桥夜泊lwb · 发表于 2012-11-26 20:23

在“设置单元格格式”中的字体前加上一个@，此时文字已逆时针方向旋转了90度，然后在“对齐”里在把方向再逆时针方向旋转90度就可以了

pinganbj · 发表于 2012-11-26 21:08

学习了一下。只是不明白什么情况需要将字倒过来？

SoarCN · 发表于 2012-11-26 20:42

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

做了个不算技术的处理，加个了自动换行，限制行高，效果就实现了。非常感谢你的帮助。

时光鸟 · 发表于 2012-11-26 22:11

本帖最后由时光鸟于 2012-11-26 22:13 编辑

SoarCN 发表于 2012-11-26 21:01
恩，其实等下还是要用到VBA的，用艺术字下午也考虑过了，数值一直会变，不适合用。大小也有限。外观只是第 ...

用VBA给你写了一个逆序排列的代码（粗略的就这样了，没有经过简单），原字符放在A1中，结果会在B2中显示，你也可以适当修改成函数的形式：

Sub 按钮1_Click()
Dim n As Integer
Dim arr() As String
n = Len(Cells(1, 1))
ReDim arr(1 To n) As String
Cells(2, 2).Clear
For i = 1 To n
arr(i) = Mid(Cells(1, 1).Value, i, 1)
Next i
If n Mod 2 > 0 Then
For ii = 1 To ((n - 1) / 2)
flag = 0
flag = arr(ii)
arr(ii) = arr(n + 1 - ii)
arr(n + 1 - ii) = flag
Next ii
End If
If n Mod 2 = 0 Then
For ii = 1 To n / 2
flag = 0
flag = arr(ii)
arr(ii) = arr(n + 1 - ii)
arr(n + 1 - ii) = flag
Next ii
End If
For x = 1 To n
Cells(2, 2).Value = Cells(2, 2).Value & arr(x)
Next x
End Sub

复制代码

SoarCN · 发表于 2012-11-26 21:01

本帖最后由 SoarCN 于 2012-11-26 21:11 编辑

时光鸟发表于 2012-11-26 20:51
字体加@,再设置转90度，再限制行高，然后设置自动换行，最后调整文字顺序
目前也只能这么处理，除非你插 ...

恩，其实等下还是要用到VBA的，用艺术字下午也考虑过了，数值一直会变，不适合用。大小也有限。外观只是第一步。。。。。其实还是有点问题的，就是这样的处理对非中文字又要作其他处理，比如中英文混合的字符串，英文不受加@影响，而且可能会预览成乱码。在我要作的表格里如果按阅读习惯的话，还要将字符串逆序处理。比如“你好”就要写成“好你”。能麻烦你给个公式处理任意长度的字符串逆序处理么？

枫桥夜泊lwb · 发表于 2012-11-26 20:41

上传附件看看

SoarCN · 发表于 2012-11-26 20:34

本帖最后由 SoarCN 于 2012-11-26 20:38 编辑

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

恩，感谢你的帮助。我想要的是横排的倒立。你的方法我试了下，倒立是可以实现的，可是成竖排的了，可能是我哪个步骤没弄好。

时光鸟 · 发表于 2012-11-26 20:51

SoarCN 发表于 2012-11-26 20:42
做了个不算技术的处理，加个了自动换行，限制行高，效果就实现了。非常感谢你的帮助。

字体加@,再设置转90度，再限制行高，然后设置自动换行，最后调整文字顺序
目前也只能这么处理，除非你插入艺术字体，别无他法，VBA都无法完全实现你想要的功能

时光鸟 · 发表于 2012-11-26 21:38

本帖最后由时光鸟于 2012-11-26 21:39 编辑

SoarCN 发表于 2012-11-26 21:01
恩，其实等下还是要用到VBA的，用艺术字下午也考虑过了，数值一直会变，不适合用。大小也有限。外观只是第 ...

字符串逆序，公式不太好处理，用VBA好解决

两种情况：
字符数是奇数2N+1个的话，那么第1个和第2n+1个换位置，第2个和第2n个换位置....一直到第n+1不动；
字符数是偶数2N个的话，那么第1个和第2n个换位置，第2个和第2n-1个换位置....一直到第n个和第N+1个换位置；

以上就是最基本的思路，你可以写几个循环就解决了，有了以上思路，写代码就不会有什么问题了

		自动登录	找回密码
密码			免费注册

[已解决] 如何让单元格内的文字倒立