excel - 如何将单元格转换为 excel(2016)中的按钮以创建计数计数器？

Question

我的单元格中有名字

     -------------------
    |id  |   name       |
     -------------------
    | 1  |    name_1    |
     -------------------
    | 2  |    name_2    |
     -------------------
    | 3  |    name_3    |
     -------------------
    | 4  |    name_4    |
     -------------------
    | 5  |    name_5    |
     -------------------

我想单击名称列中的单元格，例如，它将在相邻单元格中增加一个 1

     ----------------------------
    |id  |   name       | Count  |
     ----------------------------
    | 1  |    name_1    |   20   |
     ----------------------------
    | 2  |    name_2    |   34   |
     ----------------------------
    | 3  |    name_3    |   12   |
     ----------------------------
    | 4  |    name_4    |   50   |
     ----------------------------
    | 5  |    name_5    |   56   |
     ----------------------------

我不想使用旋转按钮或通过大约 1000 行将每个单元格转换为物理按钮，然后为每个按钮编写代码。

有没有更简单的方法可以做到这一点，我该怎么做？

Answer 1

这是一个超链接解决方案:

首先选择Name中的单元格 block 列并运行这个简短的宏:

Sub HyperActive()
    Dim nm As String

    nm = ActiveSheet.Name & "!"
    For Each r In Selection
        t = r.Text
        addy = nm & r.Address(0, 0)
        ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:= _
            addy, TextToDisplay:=r.Text
    Next r
End Sub

这会将文本转换为事件超链接(这些超链接实际上不会去任何地方!)

然后放置以下 事件宏在工作表代码区域:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim r As Range

    Set r = Range(Target.SubAddress)
    r.Offset(0, 1).Value = r.Offset(0, 1).Value + 1
End Sub

碰撞相邻单元格的是事件宏。