另类的双击事件，划边框，谢谢过客fppt和山菊花和cidanji老师！

过客fppt

lhj323323 发表于 2023-12-13 16:34
我发慢了，呵呵，不好意思

已完善双击事件

cidanji

传不了附件

1. Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
   
2. Dim r&, c As Range, x&, y&
   
3. Cancel = True
   
4. r = Cells(Rows.Count, 1).End(3).Row
   
5. Range("B2:N" & r).Borders.LineStyle = 0
   
6. Set c = T
   
7. T.Borders(7).Color = 255
   
8. T.Borders(7).Weight = 4
   
9. While c.Column <= 14
   
10.     x = IIf(c(2) <> "", 7, 9)
    
11.     y = IIf(c(2) <> "", 2, 1)
    
12.     c(y).Borders(x).Color = 255
    
13.     c(y).Borders(x).Weight = 4
    
14.     Set c = IIf(c(2) <> "", c(2), c(, 2))
    
15. Wend
    
16. End Sub

复制代码

lhj323323

过客fppt 发表于 2023-12-13 16:20
第一次用递归，不足的地方请多多包涵，还有个凸起没有解决

逐句对照，还是不能用于2003版的EXCEL

过客fppt

山菊花 发表于 2023-12-13 16:30
右键点击工作表标签，将下面的代码粘贴到VBE窗口光标处，然后返回工作表。

大佬真厉害，第一次见识到了.End(2)这种方法

lhj323323

过客fppt 发表于 2023-12-13 16:43
已完善双击事件

老师

能否换成xls格式？

过客fppt

lhj323323 发表于 2023-12-13 16:58
老师

能否换成xls格式？

我的是win10系统，用WPS写的

lhj323323

山菊花 发表于 2023-12-13 16:30
右键点击工作表标签，将下面的代码粘贴到VBE窗口光标处，然后返回工作表。

好清爽！                                          

cidanji

可以传附件了.rar (11.44 KB, 下载次数: 9)

2023-12-13 17:07 上传

点击文件名下载附件

lhj323323

山菊花 发表于 2023-12-13 16:30
右键点击工作表标签，将下面的代码粘贴到VBE窗口光标处，然后返回工作表。

山菊花老师
首先感谢大神的帮助，测试成功了的。

我把这段语句与另一双击事件融合（它也是运行成功了的）
但隔合后的语句，却要报错。



隔合的语句，抓图如下


下面的附件，我把A、B、A+B分别存入三个工作表里

版主老师，如有空，麻烦再看看，先谢谢了！

lhj323323

cidanji 发表于 2023-12-13 16:56
传不了附件

谢谢老师！

横向边框怎么是黑色的，在哪里修改？