<em>excel</em> <em>vba</em> 中<em&

插入控件后，需要退出“设计模式”后才能使用：开发工具－－控件－－设计模式。

试试 call 模块1.宏一
采用zd单元格事件:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column <> 1 Then Exit Sub '不在第一列结束程内序
......激活按钮容......
按钮.Left = Target.Left
按钮 .Width = Target.Width
按钮 .Top = Target.Top
按钮 .Height = Target.Height
.......
End Sub

Dim b As Boolean
Private Sub ExitDo()
b = False
End Sub
Private Sub starDo()
b = True
Call 秒4
End Sub
秒4 是你的百另一个要度执行版的代码权名称。