vbaに+記号を使用して行を挿入するにはどうすればよいですか？

Question

私のセルの1つにある+記号をクリックして行を挿入する方法はありますか？

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

Answer 1

あなたが（ワークシートモジュール内の下の）ハイパーリンクの下の行を追加していると仮定すると：

Option Explicit 

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

事は、あなたがこの新しい行に別のハイパーリンクを作成する必要があります、ありますか？ a restriction of 66,530 hyperlinks per worksheetのように、これは目に見える短いデザインです。

なぜコマンドボタンがオプションではないのですか？

Answer 2

これは私にとって初めてのことです。 "+"記号にハイパーリンクが割り当てられていますか？あなたがそのセルにハイパーリンクを持っていない限り、followhyperlinkマクロは機能しません。

以下は、任意のテキストセルで機能し、プラス記号や「行を追加」、または任意のテキストを使用できます。次に、そのセルが選択されている場合は、新しい行が下に追加されます。あなたが誤ってセルを選択しないようにするには、 "Private Sub Worksheet_BeforeDoubleClick（ByVal Target as Range、By As Boolean as Boolean）"を使用して、 "+"記号をダブルクリックして行。

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 

またはダブルクリック

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