随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用VBA修改任意字符为上标?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub将任意字符标示为上标()DimrAs六咝媲拜Range,i%,First$,inputtinputt=InputBox(媪青怍牙"上标对象","请输入加上标之对象","#")Application.ScreenUpdating=FalseSetr=Cells.Find(inputt,lookat:=xlPart)'xlPart表示单元格不用完全匹配IfNotrIsNothingThen'当找到时First=r.Address'用First记录下第一个单元格的地址Do'查找下一个循环过程Fori=1ToLen(r)'对找到的单元格,从第一个字符到最后一个字符IfMid(r,i,1)=inputtThen'假如是inputt指定字符时,则设置它为上标r.Characters(Start:=i,Length:=1).Font.Superscript=TrueEndIfNextSetr=Cells.FindNext(r)'在找到的单元格之后,查找新一个单元格LoopUntilr.Address=First'重复过程,直到最后找到的单元格的地址等于第一个单元格的地址EndIfApplication.ScreenUpdating=TrueEndSub
5、选择区域,使用快捷键钽吟篑瑜Alt+F8调出运行宏窗口,然后单击“执行”按钮,程序将弹出输入符号之对话框,如图2.15所示,默认为“#”,可以输入任意字符