[已解决]关于双击事件的问题

yuqwio852956

双击问题.rar (7.69 KB, 下载次数: 8)

2015-6-5 11:21 上传

点击文件名下载附件

如附件，我想要在sheet2 中双击表格，然后跳转到sheet1中相对应的表格，为什么我双击表格的时候没有效果？新手求学习！麻烦各位大神解答

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-5 15:44

这样

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Dim a%, b%
   
3.     If Target.Column < 4 Or Target.Column > 15 Then GoTo q
   
4.     If Cells(Target.Row, 2).Value = "" Then GoTo q
   
5.     a = Sheets("Sheet1").Range("A3:A24").Find(Cells(1, Target.Column)).Row
   
6.     b = Sheets("Sheet1").Range("A1:F1").Find(Cells(Target.Row, 2)).Column
   
7.     Sheets("sheet1").Activate
   
8.     Sheets("sheet1").Cells(a, b).Select
   
9. q:
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

qh8600

If Target < 4 Or Target > 15 Then GoTo q
target.row 还是 target.column 这个要写清楚

yuqwio852956

qh8600 发表于 2015-6-5 11:57
If Target < 4 Or Target > 15 Then GoTo q
target.row 还是 target.column 这个要写清楚

一时疏忽呀。。。是column 然后他显示Select使用错误，这是怎么回事？

qh8600

这样

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Dim a%, b%
   
3.     If Target.Column < 4 Or Target.Column > 15 Then GoTo q
   
4.     If Cells(Target.Row, 2).Value = "" Then GoTo q
   
5.     a = Sheets("Sheet1").Range("A3:A24").Find(Cells(1, Target.Column)).Row
   
6.     b = Sheets("Sheet1").Range("A1:F1").Find(Cells(Target.Row, 2)).Column
   
7.     Sheets("sheet1").Activate
   
8.     Sheets("sheet1").Cells(a, b).Select
   
9. q:
   
10. End Sub
    

复制代码

yuqwio852956

qh8600 发表于 2015-6-5 15:44
这样

谢谢老师！ 我先消化学习一下~