VBA如何获取工作表单选按钮的值（非VBA窗体控件）

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

If Sheets("sheet1")optionbutton2objectValue = true Then

窗体控件是你按alt+f11进入vba编译环境,添加的窗体上,用控件工具箱做出来的,驱动需要vba代码控制,而工作表控件是在工作表上用视图-控件工具箱作出来的,虽然也是代码驱动,但是代码不在vba后台,需要在设计模式察看代码才可以

图形控件可以设置一些个性化的图标作为按钮,用右键点画出来的图形,选择指定宏,就可以获得几乎和后台窗体以及工作表控件一样的效果,不同的是,绘图作出来的按钮,对代码的调用是一种链接关系会随文件路径改变而受影响

使用VBA获取工作表里边文本框、图形的文本数据时，在不确定文本框、图形数量的情况下，可以使用“For Each……In……Next”对工作表里面的每一个文本框、图形进行访问，然后使用“TextFrame2TextRangeText”获取里边的文本数据写入单元格。

VBA程序如下截图，shp为工作表Sheet1里边所有图形中的一个（每执行一次For循环就提取一个，不重复）。

注上图的VBA程序引用自百度经验《使用VBA提取文本框的文本数据》

方法一

如果是在工作表中使用复选框，右击复选框，在快捷菜单中单击选择“设置控件格式”，打开对话框如下图所示设置：

按alt+f11打开vbe窗口，插入模块，粘贴如下代码：

sub

隐藏()

if

[l1]

=

true

then

columns("b:c")entirecolumnhidden

=

true

else

columns("b:c")entirecolumnhidden

=

false

end

if

end

sub

再右击复选框单击选择“指定宏”，选定宏“隐藏”。

*** 作及效果：单击复选框则b:c隐藏或显示。

方法二

如果是在窗体中使用筛选框，则双击窗体上的复选框，出现如下代码框架：

private

sub

checkbox1_click()

end

sub

在框架中粘贴如下代码：

if

checkbox1value

=

true

then

columns("b:c")entirecolumnhidden

=

true

else

columns("b:c")entirecolumnhidden

=

false

end

if

即变成如下完整代码：

private

sub

checkbox1_click()

if

checkbox1value

=

true

then

columns("b:c")entirecolumnhidden

=

true

else

columns("b:c")entirecolumnhidden

=

false

end

if

end

sub

打开窗体，单击窗体上的复选框：

⑴未选中复选框时效果如下图示。

⑵选中复选框时效果如下图示。

仅供参考！

请采纳。

以上就是关于VBA如何获取工作表单选按钮的值（非VBA窗体控件）全部的内容，包括:VBA如何获取工作表单选按钮的值（非VBA窗体控件）、vba 什么是窗体控件与工作表控件、在excel中的VBA里如何使用批量读取控件（如文本框）中的数据。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！