求助：通过双击，根据此表的两个单元格中的批注来选定彼表中的单元格

weide_yang · 发表于 2020-2-19 16:17

A8的批注代表行号，B8的批注代表列号
想要修改一下代码实现可以在执行代码后选定在Sheet1的D11单元格
现在的效果是只能选定在Sheet1的A11单元格
有请大师们帮助，谢谢!

gbgbxgb · 发表于 2020-2-19 18:43

本帖最后由 gbgbxgb 于 2020-2-19 19:14 编辑

通过“双击”，双击哪里？莫名其妙!
“彼表”又是什么表？sheet1表？让我们去猜？

参考下列代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim theRow&, theCommentRow&, theCommentColumn&, theStr$
'
With Me
If Target.Address = .Cells(.Rows.Count, 1).End(xlUp).Address Then
Cancel = True
With Target
theRow = .Row
theCommentRow = .Comment.Text
theCommentColumn = .Offset(, 1).Comment.Text
End With
'
If theCommentRow > 0 And theCommentColumn > 0 Then
Do
If .Cells(theRow, 1).Interior.ColorIndex <> 3 Then
If theRow > 1 Then
theRow = theRow - 1
Else
theRow = 0
Exit Do
End If
Else
Exit Do
End If
Loop
'
If theRow > 0 Then
theStr = .Cells(theRow, 1)
On Error Resume Next
Sheets(theStr).Select
If Err = 0 Then
On Error GoTo 0
Sheets(theStr).Cells(theCommentRow, theCommentColumn).Select ''根据点击的格中的批注中的行号链接到源格
Else
On Error GoTo 0
End If
End If
End If
End If
End With
End Sub

复制代码

一指禅62 · 发表于 2020-2-19 19:08

猜猜看

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$8" Or Target.Address = "$B$8" Then
Dim R&, C%
Cancel = True
R = Range("A8").Comment.Text
C = Range("B8").Comment.Text
If R > 0 And R <= Rows.Count And C > 0 And C <= Columns.Count Then
Sheet2.Select
Sheet2.Cells(R, C).Select
End If
End If
End Sub

复制代码

一指禅62 · 发表于 2020-2-19 19:09

本帖最后由一指禅62 于 2020-2-19 19:20 编辑

猜猜看（代码审核中……，先贴上）

一指禅62 · 发表于 2020-2-19 19:16

代码审核中……

weide_yang · 发表于 2020-2-19 21:08

感谢楼上两位老师的帮助！谢谢！gbgbxgb老师代码中使用了变量更适合我的需要。谢谢！

weide_yang · 发表于 2020-2-19 22:00

重发附件进一步说明我的需要：在双击A列从第7行起的非红单元格时都能有效果。
恳请老师们赐教，谢谢！

gbgbxgb · 发表于 2020-2-19 22:42

weide_yang 发表于 2020-2-19 22:00
重发附件进一步说明我的需要：在双击A列从第7行起的非红单元格时都能有效果。
恳请老师们赐教，谢谢！

话说，你那A列的星号其本来内容究竟是什么？换个问法：为什么要用底色确定目标工作表？

见附件。

工具簿2.rar (17.31 KB, 下载次数: 1)

weide_yang · 发表于 2020-2-20 10:05

回gbgbxgb老师：A列的红底色和星号是模糊搜索后得到的效果，（如果源数据表的A列为空，那么搜索后的A列对应单元格就填入星号。）多谢老师的帮助，效果正如我需i，谢谢您！

		自动登录	找回密码
密码			免费注册

[求助] 求助：通过双击，根据此表的两个单元格中的批注来选定彼表中的单元格