随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA为任意字符添加下划线？工具/原料more手机方法/步骤1/5分步阅读

首先在开发工具中打开VBA编辑器

2/5

在单元格区域当中输入一些内容作为例子

3/5

在VBA编辑器中插入模块

4/5

在模块当中输入如下代码，然后运行

Sub 为任意字符加下划线() Dim r As Range, i%, First$, inputt, indexx inputt=InputBox(下划线对象, 请输入加下划线之对象, #) Set indexx=Application.InputBox(请输入欲加下划线之单元格区域,也可以用 鼠标选择, 定位, A1, , , , , 8) Application.ScreenUpdating=False Set r=indexx.Find(inputt, lookat:=xlPart) If Not r Is Nothing Then First=r.Address Do For i=1 To Len(r) If Mid(r, i, 1)=inputt Then r.Characters(Start:=i,Length:=1).Font.Underline=xlUnderlineStyleSingleEnd If Next Set r=indexx.FindNext(r) Loop Until r.Address=FirstEnd IfApplication.ScreenUpdating=TrueEnd Sub

5/5使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出输入下划线对象之对话框，如图2.17所示，默认为“#”，可以输入任意字注意事项

智能手机助理给我们的生活带来了极大的便利！