写入EXCLE时怎样加下划线

chinasa　发表于：2014-01-09 13:05:16 　

我使用如下语句把数据写入EXCEL中，怎样在EXCEL中对DYGS加下划线？

xlSheet.Cells(14, 1) = "该单位共有" & DYGS &"个党员" 'DYGS =党员个数

cspa 发表于：2014-01-09 13:45:29

xlSheet.Cells(14, 1) = "该单位共有"

ActiveCell.Font.Underline = xlUnderlineStyleSingle

xlSheet.Cells(14, 2) = DYGS 'DYGS =党员个数

xlSheet.Cells(14, 3) = "个党员"

chinasa 发表于：2014-01-09 13:49:03

cspa，感谢您的指导。不过我这些内容需要写在一个单元格内。不知道是否有办法？

主要是因为我实际程序需要很多内容及变量拼接在一起写在该单元格，而且很多变量的内容的长度是不确定的，如果写在不同单元格中就很难调整EXCEL格式，使这些内容看起来是一句话。

cspa 发表于：2014-01-09 15:38:14

xlSheet.Cells(14, 1) = "该单位共有" & DYGS &"个党员" 'DYGS =党员个数

ActiveCell.Characters(Start:=6, Length:=Len(DYGS)).Font.Underline = xlUnderlineStyleSingle

chinasa 发表于：2014-01-10 08:12:04

提示“对象变量或WITH块变量未设置”

cspa 发表于：2014-01-10 08:58:06

改为：

xlSheet.Cells(14, 1) = "该单位共有" & DYGS &"个党员" 'DYGS =党员个数

xlSheet.Cells(14, 1).Characters(Start:=6, Length:=Len(DYGS)).Font.Underline = xlUnderlineStyleSingle

试试。

chinasa 发表于：2014-01-10 09:07:49

问题解决，万分感谢CSPA的指导！谢谢~~

总记录：6篇页次：1/1 9 1 :

Access交流中心