EXCEL公式中怎么分别设置字体和样式?
单元格A1中内容:宏强贸易公司
单元格A2中内容:2008年12月31日
单元格A3中内容:3490
单元格B1中需要得到一个结果:宏强贸易公司在2008年12月31日的资产总额为3490万元;
设置的公式为:=A1&"在"&A2&"的资产总额为"&A3&"万元"
但需要将B1单元格显示出来的内容中“宏强贸易公司”部分为楷体并加粗斜体,数字“3490”为Arial字体,不知如何操作~~
答案或建议:
Sub test()
p = [A65536].End(xlUp).Row
For i = 1 To p
m = Len(Cells(i, 1))
k = Len(Cells(i, 2))
l = Len(Cells(i, 3))
Cells(i, 4) = Cells(i, 1) & Cells(i, 2) & Cells(i, 3)
With Cells(i, 4).Characters(Start:=1, Length:=m).Font
.ColorIndex = 3
.Name = "楷体_GB2312"
.FontStyle = "加粗倾斜"
End With
With Cells(i, 4).Characters(Start:=m + 1, Length:=k).Font
.ColorIndex = 4
End With
With Cells(i, 4).Characters(Start:=m + k + 1, Length:=l).Font
.ColorIndex = 5
.Name = "Arial Unicode MS"
End With
Next i
End Sub
大体如此了,具体格式要调整。
文章来自:http://www.baikewenda.com/h/1110/a30336.html
更多内容推荐:
» 如何设置XP在不同时间段使用不同的电源使用方案?
» PDF文件中的内容如何变成WORD格式?
» 如在UltraEdt32中如果批量删除包含特定字符的行?
» NTFS文件系统可以用GHOST软件吗?
» Windows7下查看图片有色差的问题
» ABS-S直播卫星数字电视接收机有信号强度无信号质量
» 如何取消iTunes里面帐号绑定的信用卡
» 风扇工作正常,cpu无故发热是什么原因?
» 怎样显示QQ音乐这项业务?
» 电脑中安装的是什么协议在哪可以看到呢?
» VMware V6不能拖放和粘贴文件
» 比较数码相机主要看哪几个部件的参数?
» 使用液晶显示器有什么要注意的地方?
» MOTO的Z1支持蓝牙吗?为它选蓝牙耳机有什么注意的?
» 什么是ccna ?
» 有了AD,还需要WINS吗?
» PDF文件中的内容如何变成WORD格式?
» 如在UltraEdt32中如果批量删除包含特定字符的行?
» NTFS文件系统可以用GHOST软件吗?
» Windows7下查看图片有色差的问题
» ABS-S直播卫星数字电视接收机有信号强度无信号质量
» 如何取消iTunes里面帐号绑定的信用卡
» 风扇工作正常,cpu无故发热是什么原因?
» 怎样显示QQ音乐这项业务?
» 电脑中安装的是什么协议在哪可以看到呢?
» VMware V6不能拖放和粘贴文件
» 比较数码相机主要看哪几个部件的参数?
» 使用液晶显示器有什么要注意的地方?
» MOTO的Z1支持蓝牙吗?为它选蓝牙耳机有什么注意的?
» 什么是ccna ?
» 有了AD,还需要WINS吗?