如何在EXCEL SHEET中 动态添加控件
来源:互联网 发布:deepin vs ubuntu 编辑:程序博客网 时间:2024/06/02 11:54
EXCEL SHEET中如何添加下拉框或者 文本框,命令按钮?下面的方法就可以:
添加命令按钮
1 新建WORKSHEET
2 打开Visiual Basic编辑器
3 选择SHEET1 的Worksheet_SelectionChange 事件
4 编写代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myobj As OLEObject
Set myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.commandbutton.1", Link:=False, DisplayAsIcon:=False, Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
myobj.Visible = True
myobj.Object.Caption = Target.Address
End Sub
5返回到SHEET1窗口,退出设计模式:
6 更改选定区域,可以看到RANGE改变时在该RANGE自动添加一个命令按钮,标题为该RANGE 的ADDRESS:
添加组合框
前三步同上,第4步代码写为:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myobj As OLEObject
Set myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False, DisplayAsIcon:=False, Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
myobj.Visible = True
myobj.Object.List = Array(1, 2, 3, 4, 5, 6, 7)
Randomize
myobj.Object.ListIndex = Int(Rnd * 7)
End Sub
效果如下:
以上演示了EXCEL SHEET中控件的添加,其他控件同理。只需更改相应的classtype
需要注意的是,以上代码没有为添加的控件编写单击事件,如果要使其能响应各类事件,还需要进一步处理。
- 如何在EXCEL SHEET中 动态添加控件
- 如何在EXCEL SHEET中 动态添加控件
- excel中添加sheet模板
- Android中如何在“自定义布局”中“动态”添加控件
- 如何在代码中动态添加按钮控件
- 如何在代码中动态添加按钮控件
- Excel VBA 在工作表(Worksheet)中动态添加按钮控件并添加事件的示例
- 在form窗口中动态添加控件
- android 在布局中动态添加控件
- 在C#中动态地添加控件
- 如何在Excel中添加下拉菜单
- 如何在excel中添加筛选项
- excel中添加控件
- 如何在代码中动态添加布局以及相关的控件
- 如何在fluid中添加自定义控件
- 如何在fluid中添加自定义控件
- winfrom如何在listview中添加控件
- Excel导入SQL时,如何动态获得Sheet的名字
- 大数据量翻页查询的一点经验
- oracle10g如何从非归档改为归档
- 备用数据库的配置
- ORACLE的透明网关配置
- spring学习链接
- 如何在EXCEL SHEET中 动态添加控件
- 当爱不存在的时候我们不要挽留
- 郁闷中
- futex(2) 快速用户态互斥体使用简介
- 不完全音乐风格手册
- 仿真虚拟软驱 历险
- 明早会梦醒
- 不知道什么时候起,csdn的blog支持firefox了,哈哈
- vs 2005中的 sqlserverexpress 没有数据的解决方法