求问大神们，在一段组合函数的计算结果中，怎么设置针对部分计算结果自动添加下划线呢

wxj8691

求问大神们，在一段组合函数的计算结果中，怎么设置针对部分计算结果自动添加下划线和标注字体颜色呢？，如图所示：

我要成为专家

这种一般vba就搞定了

wxj8691

我要成为专家 发表于 2024-2-28 17:08
这种一般vba就搞定了

vba根本就不会啊

世界客都

我看你用的是WPS版本：可以这样写：
="¥"&C1&"元(大写：人民币"&TEXT(C1,"[DBNum2][$RMB]G/通用格式")&"),现将你交回的收据金额:¥"&C1&"元(大写："&TEXT(C1,"[DBNum2][$RMB]G/通用格式")
可以满足你的要求

世界客都

="¥"&C1&"元(大写：人民币"&TEXT(C1,"[DBNum2][$RMB]G/通用格式")&"),现将你交回的收据金额:¥"&C1&"元(大写："&TEXT(C1,"[DBNum2][$RMB]G/通用格式")

yellowhawk

VBA试试这个
Sub 颜色划线()
Range("A6:H6").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.FormulaR1C1 = _
        "￥123456元(大写：人民币壹拾贰万叁仟肆佰伍拾陆元整),现将你交回的收据金额:￥123456元(大写：人民币壹拾贰万叁仟肆佰伍拾陆元整"
     With ActiveCell.Characters(Start:=1, Length:=29).Font
        .Underline = xlUnderlineStyleSingle
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
   With ActiveCell.Characters(Start:=41, Length:=29).Font
        .Underline = xlUnderlineStyleSingle
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With

End Sub