excel 使用VBA：双击单元格创建新工作表，单元格也超链接到新工作表

k3bvogb1 于 2023-06-25 发布在其他

关注(0)|答案(2)|浏览(228)

好吧，我是个新手。工作中的新角色我收到了这个Excel请求：
1.双击工作表中的任意单元格将创建新工作表。
1.双击的原始单元格现在会变成一个超链接，链接到新创建的工作表。
1.此单元格的双击功能（最初为双击）将被删除。
我真的卡住了。我以前没有真正用VBA编程。我已经弄明白了如何创建一个新的工作表后，双击，我已经弄明白了如何超链接。但我不知道如何超链接到一个新创建的工作表，并删除双击功能，从原来的单元格！
这是我所有的...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Sheets.Add
End Sub

另外，如果我在这里违反了任何规则，请原谅我，这是我第一次在这里发帖。非常感谢您的帮助！

excel

来源：https://stackoverflow.com/questions/40032564/using-vba-double-clicking-cell-creates-new-sheet-cell-is-also-hyperlinked-to-n

2条答案

按热度按时间

sshcrbum1#

你走的路是对的，只需要再加几个成分。一个关键点是声明和使用对象变量（本例中为ws）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet

    ' Prevent screen flicker
    Application.ScreenUpdating = False

    ' Add worksheet
    Set ws = Me.Parent.Worksheets.Add

    ' Add Hyperlink
    Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=ws.Cells(1, 1).Address(True, True, , True), TextToDisplay:=ws.Name & "!A1"

    ' Restore original sheet as active
    Me.Activate

    ' Disable original Doubleclick action
    Cancel = True

    ' Restore screen updating
    Application.ScreenUpdating = True
End Sub

赞(0）回复(0）举报 2023-06-25

nbysray52#

专用子工作表_BeforeDoubleClick（ByVal目标为范围，取消为布尔值）工作表。添加结束子
我想这个简单的代码，你可以从特定的单元格创建新的工作表与查找从另一张。

赞(0）回复(0）举报 2023-06-25