一个按钮执行两个宏，并改变按钮文字

lpzxhjp · 发表于 2012-2-22 02:56

问题在附件中，谢谢！

47043467 · 发表于 2012-2-22 07:47

本帖最后由 47043467 于 2012-2-22 07:48 编辑

我用手机，附件看不到，大概可以这么做：假设你按钮最初名称是“一”，点击后是“二”
if commandbutton1.caption="一" then
………（要执行的语句）
commandbutton1.caption="二"
else
……
commandbutton1.caption="一"
end if

yaozong · 发表于 2012-2-22 08:28

本帖最后由 yaozong 于 2012-2-22 08:35 编辑

Sub Macro2()'窗体按钮时
ActiveSheet.Shapes("按钮").Select
If Selection.Characters.Text = "隐藏" Then
      Columns("B:D").EntireColumn.Hidden = True
      Selection.Characters.Text = "取消隐藏"
      Selection.Font.ColorIndex = 10
Else
      Columns("B:D").EntireColumn.Hidden = False
      Selection.Characters.Text = "隐藏"
      Selection.Font.ColorIndex = 3
End If [l7].Select
End Sub

yaozong · 发表于 2012-2-22 08:30

本帖最后由 yaozong 于 2012-2-22 08:36 编辑

参考附件。。。。

onthetrip2008 · 发表于 2012-2-22 08:37

Alternativetext属性并不是显示在按钮上的文字，要改变显示的文字，用characters.text

hyw11 · 发表于 2012-2-22 09:27

onthetrip2008 发表于 2012-2-22 08:37
Alternativetext属性并不是显示在按钮上的文字，要改变显示的文字，用characters.text

是这样吗？

Book120223.rar (7.65 KB, 下载次数: 133)

w8899 · 发表于 2018-8-28 10:18

yaozong 发表于 2012-2-22 08:30
参考附件。。。。

Sub 多表保护()    '一次保护全部工作表
For Each sht In Sheets
      sht.Protect "8899"
Next
End Sub
Sub 多表保护解除() '一次开锁全部工作表
For Each sht In Sheets
      sht.Unprotect "8899"
Next
End Sub

把这两个宏做一个按钮执行怎么办？

		自动登录	找回密码
密码			免费注册

[求助] 一个按钮执行两个宏，并改变按钮文字