Question

通过VB向Excel中写入的部分数据如何加上下划线？

xlSheet.Cells(1, 2) = "数学成绩为" & Text1.text & "数学成绩为" & Text2.text
如果我想给Text1.text 和Text2.text加上下划线，需要怎么做呢？(vb6.0)
我是初学，所以需要详细的代码，希望讲的细致些，谢谢~

Answer 1

　　首先为大家介绍下划线的插入方法，主要是通过右击单元格—选择设置单元格格式—并在字体选项卡中可以看到许多下划线的类型。选择之后，确定即可。

　　可以清晰的看到，Excel提供了单下划线、双下划线、会计用单下划线和会计用双下划线。

Answer 2

开发工具——宏——编辑宏——输入代码如下，如图：

Answer 3

将这段代码融合到你的代码中:
Dim a, b As Integer
a=len(text1.text)
b=len(text2.text)
xlSheet.Range(Cells(1, 2)).Characters(5, a).Font.Underline = xlUnderlineStyleSingle
xlSheet.Range(Cells(1, 2)).Characters(5+a+5, b).Font.Underline = xlUnderlineStyleSingle

Answer 4

应该是：党风廉政建设领导两个责任主体。指在落实党风廉政建设责任制过程中,党委负主体责任，纪委负监督责任。

Answer 5

Underline 属性
参阅参阅参阅参阅返回或设置应用于字体的下划线类型。可为以下 XlUnderlineStyle 常量之一。Variant 类型，可读写。

XlUnderlineStyle 可为以下 XlUnderlineStyle 常量之一。
xlUnderlineStyleNone
xlUnderlineStyleSingle
xlUnderlineStyleDouble

xlUnderlineStyleSingleAccounting

xlUnderlineStyleDoubleAccounting

expression.Underline
expression 必需。该表达式返回“应用于”列表中的对象之一。

示例
本示例将 Sheet1 中活动单元格的字体设为单下划线。

Worksheets("Sheet1").Activate
ActiveCell.Font.Underline = xlUnderlineStyleSingle