VBA如何实现表单控件按钮的隐藏？

saint_911 · 发表于 2010-12-7 11:35

各位gg,jj,dd,mm们：请问VBA如何实现表单控件按钮（不是Activex控件按钮 CommandButton1）的隐藏？

交叉点 · 发表于 2010-12-7 12:13

ActiveSheet.Shapes("Button 2").Visible = False

saint_911 · 发表于 2010-12-8 13:35

原帖由 交叉点 于 2010-12-7 12:13 发表
ActiveSheet.Shapes("Button 2").Visible = False

交叉点你好帅！3Q

wcs520 · 发表于 2015-5-6 19:39

交叉点发表于 2010-12-7 12:13
ActiveSheet.Shapes("Button 2").Visible = False

你好，我也遇到类似的问题了，请问这句话写在哪里，宏的code里吗？谢谢

交叉点 · 发表于 2015-5-6 20:04

wcs520 发表于 2015-5-6 19:39
你好，我也遇到类似的问题了，请问这句话写在哪里，宏的code里吗？谢谢

建一模块，将些代码写入。由按钮1调用（指定宏）这个宏。

wcs520 · 发表于 2015-5-6 20:25

本帖最后由 wcs520 于 2015-5-6 20:27 编辑

交叉点发表于 2015-5-6 20:04
建一模块，将些代码写入。由按钮1调用（指定宏）这个宏。

Sub Macro1()
'
' Macro1 Macro
'

'
Rows("1:1").Select
Selection.EntireRow.Hidden = True
ActiveSheet.Shapes("复选框").Visible = False
End Sub

wcs520 · 发表于 2015-5-6 20:28

wcs520 发表于 2015-5-6 20:25
Sub Macro1()
'
' Macro1 Macro

帮忙看看宏代码哪里写的有问题，谢谢

交叉点 · 发表于 2015-5-6 21:28

Sub myChB()
If ActiveSheet.Shapes("Check Box 1").Visible = False Then
ActiveSheet.Shapes("Check Box 1").Visible = True
Else
ActiveSheet.Shapes("Check Box 1").Visible = False
End If
End Sub

wcs520 · 发表于 2015-5-6 22:00

交叉点发表于 2015-5-6 21:28
Sub myChB()
If ActiveSheet.Shapes("Check Box 1").Visible = False Then
ActiveSheet.Shapes("Check Bo ...

这段代码的确可以隐藏一个表单控件，但是怎么实现一个按钮同时使用两个宏，一个宏是隐藏一行单元格，一个宏是把那个表单控件隐藏？麻烦你看看我发的一个帖子，下面是链接，谢谢
http://club.excelhome.net/forum. ... =1203349&extra=

wcs520 · 发表于 2015-5-6 22:16

本帖最后由 wcs520 于 2015-5-6 22:22 编辑

交叉点发表于 2015-5-6 21:28
Sub myChB()
If ActiveSheet.Shapes("Check Box 1").Visible = False Then
ActiveSheet.Shapes("Check Bo ...

你的代码里面的 check box 1 是怎么定义的？之前的例子里只有一个表单控件，所以可以理解为 check box1，但下面的表格里有好几个这样的表单控件，怎么通过一个按钮把下面所有行和表单控件都隐藏起来，能否写个代码给我参考下，谢谢

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

[已解决] VBA如何实现表单控件按钮的隐藏？