Office中国论坛/Access中国论坛

标题: COLUMN引申问题 [打印本页]

作者: 156595311 时间: 2013-6-24 18:59
标题: COLUMN引申问题
上下单元不同则该行的使用区域底部双边框。

作者: 方漠 时间: 2013-7-16 15:28
Sub 双边框()
Application.ScreenUpdating = False
For I = 2 To Cells(65536, 3).End(xlUp).Row + 1
  If Cells(I, 3) <> Cells(I + 1, 3) And Cells(I + 1, 3) <> "" Then
   Range("A" & I & ":E" & I).Borders(xlEdgeBottom).LineStyle = xlDouble  '这个3要怎么改才会令到其该行的使用区域底部都加到双边框
  End If
Next I
Application.ScreenUpdating = True
End Sub

作者: 方漠 时间: 2013-7-16 15:29
单元格在VBA表达的三种方式:

[A1]="ABC"

Range("A1")="ABC"

Cells(1, 1)="ABC"

以上运行结果都是一样的.

作者: 156595311 时间: 2013-7-16 17:55
这个已经解决了。谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)