怎样在vba中设置字体格式（下划线，加粗等）

mavin

想根据其它单元格填写好的金额和时间，用VBA生成如下一段文本（放在1个单元格内）。就是不知道，字体加粗和下划线怎么在VBA中实现。（是不是TEXT函数可以设定文本的加粗及下划线呀？） 

qUEQlsYp.rar (10.94 KB, 下载次数: 310)

2008-8-14 10:38 上传

点击文件名下载附件
怎样在vba中设置字体格式（下划线，加粗等）

 

第一条
      在签定本合同时，乙方已支付人民币         元

人民币（大写）：                                         

第二条
      乙方应于    年  月  日前支付余款           元。

人民币（大写）                                          

第三条
      乙方应于    年  月  日前支付余款           元。

人民币（大写）                                          

第一条
      在签定本合同时，乙方已支付人民币         元

人民币（大写）：                                         

第二条
      乙方应于    年  月  日前支付余款           元。

人民币（大写）                                          

第三条
      乙方应于    年  月  日前支付余款           元。

人民币（大写）                                          

[此贴子已经被作者于2008-8-14 10:38:43编辑过]

fankairong

ActiveCell.Font.Bold = True
ActiveCell.Font.Underline = True

热浪2006

你先做个附件传上来，省省大家的时间。

fankairong

若只对某个单元格的几个字符设置可用Characters取数，如：

 ActiveCell.Characters(Start:=1, Length:=1).Font.Bold=true

mavin

把做好的附件传上来了(在一楼)，大家帮忙看看。

fankairong说的，ActiveCell.Characters(Start:=1, Length:=1).Font.Bold=true

我也找到的，但感觉用这个解决我的问题好像不太方便呀。

[此贴子已经被作者于2008-8-14 11:20:52编辑过]

热浪2006

Public Sub 转换()
    Dim str As String, t, d
    str = "甲乙双方确认，乙方的付款方式和付款期限为：" & Chr(10) & Chr(13)
    str = str & "第一条 在签定本合同时，乙方已支付人民币" & [B2] & "元" & Chr(10) & Chr(13)
    str = str & "人民币（大写）：" & DaXie([B2]) & Chr(10) & Chr(13)
    str = str & "第二条 乙方应于" & Format([a3], "YYYY年M月D日") & "前支付余款" & [B3] & "元。" & Chr(10) & Chr(13)
    str = str & "人民币（大写）：" & DaXie([B3]) & Chr(10) & Chr(13)
    str = str & "第三条 乙方应于" & Format([a4], "YYYY年M月D日") & "前支付余款" & [B4] & "元。" & Chr(10) & Chr(13)
    str = str & "人民币（大写）：" & DaXie([B4]) & Chr(10) & Chr(13)
    [C2] = str
    t = InStr([C2], "第一条")
    Range("C2").Characters(Start:=t, Length:=Len("第一条")).Font.FontStyle = "加粗"
    t = InStr([C2], [B2])
    Range("C2").Characters(Start:=t, Length:=Len([B2])).Font.Underline = xlUnderlineStyleSingle
    t = InStr([C2], "第二条")
    Range("C2").Characters(Start:=t, Length:=Len("第二条")).Font.FontStyle = "加粗"
    t = InStr([C2], [B3])
    Range("C2").Characters(Start:=t, Length:=Len([B3])).Font.Underline = xlUnderlineStyleSingle
    t = InStr([C2], "第三条")
    Range("C2").Characters(Start:=t, Length:=Len("第三条")).Font.FontStyle = "加粗"
    t = InStr([C2], [B4])
    Range("C2").Characters(Start:=t, Length:=Len([B4])).Font.Underline = xlUnderlineStyleSingle
End Sub

[此贴子已经被作者于2008-8-14 14:06:47编辑过]

mavin

刚才去开会了，回来才看到，虽然还没测，但知道肯定好用的。感谢热浪！感谢关注这帖的朋友。谢谢了！

4588chen

热浪2006 发表于 2008-8-14 12:17
Public Sub 转换()    Dim str As String, t, d    str = "甲乙双方确认，乙 ...

感激不尽！！！！！！！！！！！！

前进者

标记一下，以备学习套用！