VBAの使用：ダブルクリックのセルが新しいシートを作成し、セルも新しいシートにハイパーリンクされます

Question

申し訳ありません。職場における新しい役割。このExcelのリクエストを受け取った：

1. シート内のセルをダブルクリックすると、新しいシートが作成されます。
2. ダブルクリックされた元のセルがハイパーリンクに変わり、新しく作成されたシートにリンクします。
3. 元のダブルクリックだったこのセルのダブルクリック機能が削除されました。

私は正直に立ち往生しています。私は以前はVBAを使用して実際にプログラムしていません。私はダブルクリックで新しいシートを作成する方法を理解しており、ハイパーリンクする方法を考え出しました。しかし、私は新しく作成されたシートにハイパーリンクする方法と、元のセルからダブルクリック機能を削除する方法を理解することはできません！

は、ここで私はここにすべてのルールを破っていた場合私を許し、また、私が持っているすべて...

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

だ、これはここに投稿初めてです。ご助力ありがとうございます！

Answer 1

あなたは正しい道を歩いていますが、もう少し多くのコンポーネントが必要です。重要な点は

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