Question

有没有办法通过点击我在其中一个单元格上的+符号来插入一行。

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

Answer 1

这对我来说是新的。你有一个指向“+”符号的超级链接吗？除非您在该单元格中有超链接，否则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

Answer 2

假设您要在超链接下面添加一行（在工作表模块下面）：

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。

好奇为什么命令按钮不是一个选项？

如何在vba中使用+符号插入一行？

2 个答案: