|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
传不了附件
- Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
- Dim r&, c As Range, x&, y&
- Cancel = True
- r = Cells(Rows.Count, 1).End(3).Row
- Range("B2:N" & r).Borders.LineStyle = 0
- Set c = T
- T.Borders(7).Color = 255
- T.Borders(7).Weight = 4
- While c.Column <= 14
- x = IIf(c(2) <> "", 7, 9)
- y = IIf(c(2) <> "", 2, 1)
- c(y).Borders(x).Color = 255
- c(y).Borders(x).Weight = 4
- Set c = IIf(c(2) <> "", c(2), c(, 2))
- Wend
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|