[已解决]一个常遇到的问题，单元格内部分公式下加下划线，求vba代码

ababyq · 发表于 2011-7-26 13:36

本帖最后由 ababyq 于 2011-7-26 13:46 编辑

例如：
QQ截图未命名.png

此表中数字部分需用公式替代如何把单元格中替代的公式部分加下划线
拿第二个距离
=" 2、钢筋的布置 "&AB240&"钢筋间距"&AB241&", N2 HPB235Ф10钢筋间距200mm、100mm、100mm ,N3 HPB235Ф20钢筋间距2000mm 。"
紫色部分需加下划线
蛋定跪求~VBA思路及代码！

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-7-26 21:56

Sub UnderLineText()
Dim iStart As Integer
Dim iLen As Integer
iStart = InStr(ActiveCell.FormulaR1C1, "&") - 1
ActiveCell.FormulaR1C1 = ActiveCell.Text
iLen = Len(ActiveCell.Characters.Text)
ActiveCell.Characters(iStart, iLen - i + 1).Font.Underline = xlUnderlineStyleSingle
End Sub

复制代码

送上代码，选中需要修改的单元格，然后再运行该代码就可以了。
不过这样的结果是最后单元格里的公式就变成了文本了。

跳转到最佳答案楼层

放浪形骸 · 发表于 2011-7-26 21:24

我是这么想的，先找到第一个“&”的符号，然后从这个符号起开始到最后设置下划线

蝶·舞 · 发表于 2011-7-26 21:28

把内容分两个单元格写不就省事了吗？

ababyq · 发表于 2011-7-26 21:32

回复蝶·舞的帖子

不是分两个单元格的事要十分单元格的话下划线就断了不美观弄出来很难看的，换位思考下，上司的意思你懂的！

蝶·舞 · 发表于 2011-7-26 21:33

不美观是不会弄而已。

ababyq · 发表于 2011-7-26 21:35

回复蝶·舞的帖子

姐教我当我师傅吧！

放浪形骸 · 发表于 2011-7-26 21:56

Sub UnderLineText()
Dim iStart As Integer
Dim iLen As Integer
iStart = InStr(ActiveCell.FormulaR1C1, "&") - 1
ActiveCell.FormulaR1C1 = ActiveCell.Text
iLen = Len(ActiveCell.Characters.Text)
ActiveCell.Characters(iStart, iLen - i + 1).Font.Underline = xlUnderlineStyleSingle
End Sub

复制代码

送上代码，选中需要修改的单元格，然后再运行该代码就可以了。
不过这样的结果是最后单元格里的公式就变成了文本了。

放浪形骸 · 发表于 2011-7-26 21:58

本帖最后由放浪形骸于 2011-7-26 22:03 编辑

这里有一个问题，我不知道楼主最前面举例出来的东西是不是直接在公式上修改文本的格式的。
好像我这里不能直接修改公式里的文本格式的。
所以VBA代码最后是将公式直接变成文本之后再修改了其格式的。

ababyq · 发表于 2011-7-26 22:01

回复放浪形骸的帖子

恩我试试看

放浪形骸 · 发表于 2011-7-26 22:04

注意！运行之后最后单元格里的公式就变成了文本了。

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

[已解决]一个常遇到的问题，单元格内部分公式下加下划线，求vba代码

评分

点评