excel VBA 怎样在excel中插入一个按钮，按一下按钮，按钮的名称就变一下，在“大”和“小”变来变去。

代码示例：

Private Sub CommandButton1_Click()

s = CommandButton1Caption

If s = "大" Then

s = "小"

Else

s = "大"

End If

CommandButton1Caption = s

[a1] = s

End Sub

EXCEL2010中的VBA已编程完。关闭VBA代码窗口。

在标题栏开发工具，选择插入选项卡，点表单控件，点第一按钮，拖动鼠标，再放开，会出现指定宏对话框，再选择所需的宏名。按确定。

在自动添加时可以修改按钮属性；

onAction可以带参数调用，来调定是哪个按钮事件，比如：

OnAction = "'GoToSheet """ & Name & """'" '带字符串参数

注意：参数一定要是字符型，Name只引用初始时的值，若使用时再改变无效。

非窗体控件中的optionbutton如果要取它的属性，必须这么表示

If Sheets("sheet1")optionbutton2objectValue = true Then

你好，让我们一起来看个例子，比如 Excel 的撤销按钮（实际上是一个 msoControlSplitDropdown 类型的按钮，该按钮的 Id 为 128）有如下三个列表项：

可以通过下面的参考代码把这三个列表项全部打印到立即窗口（Ctrl+G）：

Public Sub PrintUndoText()

    Dim lngIndex As Long

    Dim cbcbUndo As CommandBarComboBox

    

    Set cbcbUndo = CommandBarsFindControl(, 128)

    

    For lngIndex = 1 To cbcbUndoListCount

        DebugPrint cbcbUndoList(lngIndex)

    Next

    

    Set cbcbUndo = Nothing

End Sub

执行效果如下：

如有问题，请提出！

以上就是关于excel VBA 怎样在excel中插入一个按钮，按一下按钮，按钮的名称就变一下，在“大”和“小”变来变去。全部的内容，包括:excel VBA 怎样在excel中插入一个按钮，按一下按钮，按钮的名称就变一下，在“大”和“小”变来变去。、excel vba 怎么加按钮、在excel VBA中，要获取当前button的位置，可以把语句写到类模块里面吗如果可以，该怎么写呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！