我如何将一个单元格转换为Excel（2016）中的button来创build一个计数器计数器？

我有其中有名字的单元格

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

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

有没有更容易做到这一点，我将如何做到这一点？

Answer 1

这是一个超链接解决scheme：

首先在Name列中select单元格块并运行这个短的macros：

 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 

这将把文本转换成活动的超链接（这些超链接实际上并没有去任何地方！）

然后将下面的事件macros放在工作表代码区域中：

 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 

事件macros是颠簸邻近的细胞。