Wie kann ich eine Zeile mit + Symbol in VBA einfügen?

Question

Gibt es eine Möglichkeit, eine Zeile einzufügen, indem Sie auf + Symbol klicken, das ich auf einer meiner Zelle habe.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    If Target.Parent.Value = "+" Then 
     Insert.Row 
     Exit Sub 
    End If 
End Sub 

Answer 1

Angenommen, Sie sind eine Zeile unter dem Hyperlink (unten in Arbeitsblatt-Modul) hinzuzufügen:

Option Explicit 

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    If Target.Parent.Value = "+" Then Rows(Target.Parent.Row + 1).Insert 
End Sub 

Die Sache ist, haben Sie einen anderen Hyperlink zu dieser neuen Reihe zu schaffen haben? Dies ist ein kurzsichtiges Design, wie Sie a restriction of 66,530 hyperlinks per worksheet haben.

Neugierig, warum eine Befehlsschaltfläche keine Option?

Answer 2

Das ist neu für mich. Hast du einen Hyperlink dem "+" Zeichen zugeordnet? Der followhyperlink-Makro funktioniert nur, wenn Sie einen Hyperlink in dieser Zelle haben.

Folgendes funktioniert mit jeder Textzelle, Sie können das Pluszeichen oder "Zeile hinzufügen" oder einen beliebigen Text verwenden. Wenn diese Zelle dann ausgewählt wird, wird darunter eine neue Zeile hinzugefügt. Wenn Sie sicher sein wollen, dass Sie die Zelle nicht versehentlich auswählen, können Sie stattdessen "Privates Unterarbeitsblatt_Vorgesetztes_Doppelklick (ByVal Ziel als Bereich, Abbrechen als Boolean)" verwenden, wodurch Sie doppelt auf das "+" Zeichen klicken müssen Reihe.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Value = "+" Then 
     Rows(Target.Row + 1).Insert 
     Cells(Target.Row + 1, Target.Column).Value = "+" 
     Cells(Target.Row + 1, Target.Column).Select 
    End If 
End Sub 

oder mit einem Doppelklick auf

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Target.Value = "+" Then 
    Rows(Target.Row + 1).Insert 
    Cells(Target.Row + 1, Target.Column).Value = "+" 
    Cells(Target.Row + 1, Target.Column).Select 
End If 

End Sub