我如何在vba中使用+符號插入行？

Question

有沒有什麼辦法通過點擊我的單元格上的+符號來插入一行。

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，Cancel 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