设置Excel样式遇到奇怪的问题（up有分）

hn123 2004-08-12 03:04:33

With zsbexcel.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous　‘这句出错了，提示　不能设置类Borders的LineStyle属性。
.Weight = xlThin
.ColorIndex = xlAutomatic　’这句也出错。提示　不能设置类Borders的ColorIndex的属性
End With

这个错误不是每次都出错，当我输出一条以上的记录时就不会出错，当出出一条时就一定出错。
请大家指点。

...全文

395 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

aohan 2004-08-15

打赏
举报

我想将某一列的内容设为文本格式该如何做？

jam021 2004-08-15

打赏
举报

顶

flyingZFX 2004-08-13

打赏
举报

真不知道，你们使用的都是什么方法，怎么总是出错呢

flyingZFX 2004-08-13

打赏
举报

我试过，没有出过什么错呀？？

chan2chen 2004-08-13

打赏
举报

ding

jam021 2004-08-12

打赏
举报

不懂,关注并学习

huangjianyou 2004-08-12

打赏
举报

^_^

hn123 2004-08-12

打赏
举报

to northwolves(狼行天下)
出错的原因是什么呢。

northwolves 2004-08-12

打赏
举报

这样没错：

Private Sub Command1_Click()
Dim Xls As New Excel.Application Dim NewBook As Excel.Workbook
Set NewBook = Xls.Workbooks.Add
Xls.Visible = True
With Xls.Range("a1:d1").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

shanlisong 2004-08-12