如何在Excel数据验证序列自动附上超链接

Question

如何在Excel数据验证序列自动附上超链接 如图，如何在D列选项中，自动附上所选定数据的列行超链接。

Answer 1

你是想要实现点击D列单元格的值，就选中其对应在A列的值吗？
如果是这样，可以用以下代码启用change事件即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Application.WorksheetFunction.Match(Target.Value, [A1:A65536], 0) > 0 Then
Cells(Application.WorksheetFunction.Match(Target.Value, [A1:A65536], 0), 1).Select
Else
MsgBox "目标区域未找到对应值"
End If
End Sub

追问

不是的，要D列中附上超链接，指向A列

追答

假设这个表名字叫Sheet1则，在该表的VBE窗口输入以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i%, j%, r%, rr%, dic As Object, k%, m%
Set dic = CreateObject("Scripting.dictionary")
On Error Resume Next
r = [A65536].End(xlUp).Row
rr = [D65536].End(xlUp).Row
k = 1
For i = 1 To r
If dic.exists(Cells(i, 1).Value) Then
Else
dic(Cells(i, 1).Value) = k
k = k + 1
End If
Next
For j = 1 To rr
If Cells(j, "D") "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(j, "D"), Address:="", SubAddress:="Sheet1!A" & dic(Cells(j, "D").Value)
Else
End If
Next
End Sub

Answer 2

试下这个,A列应该是 sheet名
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr >= 1 And tc = 4 And Cells(tr, tc) <> "" Then
n = Cells(tr, 1)
Sheets(n).Select
End If

End Sub

Answer 3

你的意思是a列的数据是已经创建了超链接的？

Answer 4

写代码才可以，这个需要用到事件

追问

VBA代码，能说明一下吗？我没用过VBA ，VB用过。求指点！