[VBA函数]：宏：上标，自动将所选单元格的最后一个字符改成上标格式

alim

输入平方、立方好用，稍微修改一下代码，改下标也可以。最好指定到一个自定义工具按钮使用。

2. 
   
3.   [FONT=courier new]
   
4. Sub 上标()
   
5. '
   
6. ' 上标 Macro
   
7. ' alim@[url]www.xdcad.net[/url]
   
8. '
   
9. '
   
10. Dim selcell As Range
    
11. Dim seltextlen As Integer
    
12. 
    
13. For Each selcell In Selection
    
14.     selcell.Activate
    
15.     seltextlen = Len(ActiveCell)
    
16.     selcell.Characters(Start:=seltextlen, Length:=1).Font.Superscript = Not selcell.Characters(Start:=seltextlen, Length:=1).Font.Superscript
    
17. Next
    
18. 
    
19. End Sub
    
20. 
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub 上标()<br /> '<br /> ' 上标 Macro<br /> ' alim@[url]www.xdcad.net[/url]<br /> '<br /> '<br /> Dim selcell As Range<br /> Dim seltextlen As Integer<br /> <br /> For Each selcell In Selection<br />     selcell.Activate<br />     seltextlen = Len(ActiveCell)<br />     selcell.Characters(Start:=seltextlen, Length:=1).Font.Superscript = Not selcell.Characters(Start:=seltextlen, Length:=1).Font.Superscript<br /> Next<br /> <br /> End Sub<br /> <br />   [/FONT]<br />

cgl5.1

怎么用？

zhqchn

要将以上代码放入一个模块中

alim

謝謝，我比你懒，所以给你加分。

再执行一次，就可以取消上标。

如果觉得有用的话，可以保存到个人宏工作簿，这样就可以在所有工作表中调用；最好指定到一个自定义工具按钮上。

xzg_hello

将楼主的Superscript替换成Subscript就变成改下标的了：）

chenhang1203

试试看l ，不过改城下标后有个无法恢复的问题，应该怎样做才好呢？有没有不用宏命令的方法呢？

cxzsc

最好做个按钮，加入到自定义菜单。

chenhang1203

这个宏命令只能选择最后一个数字为上标或下标，对于诸如：“Xm^2*Y^3+2”这样的表达式有没办法表示式中的平方米和立方米呢？

cxzsc

最初由 chenhang1203 发布
[B]这个宏命令只能选择最后一个数字为上标或下标，对于诸如：“Xm^2*Y^3+2”这样的表达式有没办法表示式中的平方米和立方米呢？ [/B]

可以用inputbox可以实现但比单元格式还慢。

cxzsc

最初由 chenhang1203 发布
[B]这个宏命令只能选择最后一个数字为上标或下标，对于诸如：“Xm^2*Y^3+2”这样的表达式有没办法表示式中的平方米和立方米呢？ [/B]

可以用inputbox可以实现但比单元格式还慢。
Sub 上标2()
Dim x As Integer
Dim y As Integer

x = InputBox("输入上标字符开始值")
y = InputBox("输入上标字符数")

     With ActiveCell.Characters(Start:=x, Length:=y).Font
      
        .Superscript = True
  
   End With

End Sub
单单输入平方、立方，用Alt+178,Alt+179最快。

lbp205

最初由 cxzsc 发布
[B]最好做个按钮，加入到自定义菜单。 [/B]

不能用吧？！！！

cxzsc

最初由 lbp205 发布
[B]
不能用吧？！！！ [/B]

原来没传上，现在行了。

guangshunsong

管不管用阿，可能还不如直接在格式里改

lhj743

楼主的方法，
下拉会不会改变上标数字啊！？？

llmin

好用，谢谢楼主，如果能。。。。