[已解决]各位大神，有没有哪个可以把表单控件绑定事件

天门白云

activex控件能够响应事件是都知道的了，但是稳定性不太好，表单控件要稳定一些，也容易一些，但是好像是不能绑定事件的，请问有没有什么巧妙的办法可以实现我要的功能，问题在表格里面，下载附件后就可以看到了，先谢谢大家了。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-11-11 20:37

这个意思吗？
Sub 添加按钮()
Dim oListBox As Shape
    For Each oListBox In Sheet8.Shapes
        If oListBox.Type = msoOLEControlObject Or oListBox.Type = msoFormControl Then
            oListBox.Delete
        End If
    Next
Dim bj As Object
Dim arr
arr = Array("一", "二", "三", "四", "五", "六")
For i = LBound(arr, 1) To UBound(arr, 1)
     Set bj = ActiveSheet.Buttons.Add(80, ActiveCell.Offset(i * 2, 1).Top, 50, 25)
     With bj
     .OnAction = "xx"
     .Name = "按钮" & arr(i)
      .Caption = arr(i)
End With
Set bj = Nothing
Next i
End Sub

Sub xx()
  ActiveCell = ActiveSheet.Buttons(Application.Caller).Caption
End Sub

跳转到最佳答案楼层

砂海

根据 当前需求,

通常 的思路 是 加载一个窗体 , 而不是分别加6个按钮

zjdh

我还是没理解你的要求

大灰狼1976

这个意思吗？
Sub 添加按钮()
Dim oListBox As Shape
    For Each oListBox In Sheet8.Shapes
        If oListBox.Type = msoOLEControlObject Or oListBox.Type = msoFormControl Then
            oListBox.Delete
        End If
    Next
Dim bj As Object
Dim arr
arr = Array("一", "二", "三", "四", "五", "六")
For i = LBound(arr, 1) To UBound(arr, 1)
     Set bj = ActiveSheet.Buttons.Add(80, ActiveCell.Offset(i * 2, 1).Top, 50, 25)
     With bj
     .OnAction = "xx"
     .Name = "按钮" & arr(i)
      .Caption = arr(i)
End With
Set bj = Nothing
Next i
End Sub

Sub xx()
  ActiveCell = ActiveSheet.Buttons(Application.Caller).Caption
End Sub

天门白云

大灰狼1976 发表于 2021-11-11 20:37
这个意思吗？
Sub 添加按钮()
Dim oListBox As Shape

确实是太厉害了，这个问题居然都可以做出来，我都问了好多人都没有把这个问题帮我解决

天门白云

天门白云 发表于 2021-11-12 23:33
确实是太厉害了，这个问题居然都可以做出来，我都问了好多人都没有把这个问题帮我解决

请问你是在哪里学习的这么多的vba的知识的，怎样可以获取到这些知识

大灰狼1976

天门白云 发表于 2021-11-12 23:38
请问你是在哪里学习的这么多的vba的知识的，怎样可以获取到这些知识

也没啥，学习就是一个积累经验的过程，遇到的多了，明白的也就稍微多一点。