Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何将单元格转换为excel(2016)中的按钮以创建计数计数器?_Excel - Fatal编程技术网

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

如何将单元格转换为excel(2016)中的按钮以创建计数计数器?,excel,Excel,我的细胞里有名字 ------------------- |id | name | ------------------- | 1 | name_1 | ------------------- | 2 | name_2 | ------------------- | 3 | name_3 | ------------------- | 4 |

我的细胞里有名字

     -------------------
    |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行,将每个单元格转换为一个物理按钮,然后为每个按钮编写代码


是否有更简单的wat来执行此操作?我将如何执行此操作?

以下是一个超链接解决方案:

首先选择
Name
列中的单元格块,然后运行以下短宏:

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

这是一个事件宏,用于碰撞相邻单元格。

制作1000个按钮,但为每个按钮分配相同的代码如何。当按下按钮时,将右边单元格的值增加1?我只知道如何对每个按钮进行编码,以实现我的目的,但是没有一个全向代码可以像那样运行所有的按钮…你可以通过将单元格变成超链接并使用事件宏来执行必要的功能,从而使单元格像按钮一样运行。我不知道如何做到这一点,对宏和vba@Gary'sStudent是否存在类似于onsave但在单元格选择时发生的事件,然后使用该事件触发代码?