如何将单元格转换为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但在单元格选择时发生的事件,然后使用该事件触发代码?