如何自动将单元格内大写数字加粗？

作者：绿色风分类：时间：2022-08-17 浏览：165

楼主
99253415

Q:如何自动将单元格内大写数字加粗？

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A2]) Is Nothing Then
Range("a1").FormulaR1C1 = _
"=CONCATENATE(""总价为"",R[1]C,""人民币大写"",TEXT(R[2]C,""[dbnum2]""),""元整。"")"
Range("A1") = Range("A1").Value
a = Len(Range("A1").Value)
b = InStr(1, Range("A1").Value, "大写") + 2 '返回指定字符串在单元中最早出现的位置
With Range("a1").Characters(Start:=b, Length:=a - b).Font
.FontStyle = "加粗"
End With
End If
End Sub

该贴已经同步到

大写加粗.rar

2楼
亡者天下

这个只能用VBA吗？

要是用技巧完成就好了！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表