如何用vba实现在EXCEL固定区域坐标内点击单元格,显示日期控件
Worksheet_Change(ByVal第二要用到日期控件:方法一:先将控件工具箱调出来。视图-工具栏-控件工具箱。在控件工具箱上最下面那个按钮是其他控件,打开它,找到MicrosoFtControl,这个就是日历控件。然后在一个单元格上拖画一个框,日历控件就出来了。然后在控件工具箱上退出设计模式,日历控件就能使用了。在你所要用到的单元格内画出,大小要和单元格一样;选中控件,右键单击选择菜单“设置控件格式”,在"属性"选项中选择“大小、位置均随单元格而变”,确定;右键单击控件选择菜单“查看代码”,进入VBA后,键入以下代码:DTPicker1_Change()Sheet1.Cells(1,CSTr(DTPicker1)DTPicker1_Click()Sheet1.Cells(1,CStr(DTPicker1)返回到Excel,调整单元格大小使控件完全显示;退出设计模式,OK。如果没有这个控件可以自己去网上下载个控件或者用方法2.方法2:在EXCEL窗口中执行“
vba如何判断某个单元格上的控件名称
shape.name可以得到控件名称使用for循环遍历所有控件,再找出与单元格位置吻合的控件,使用shape.name即可。1.要获取不同控件的名称,所需的vba代码会有所不同。首先,我们打开VBA编辑窗口。2.然后在VBA编辑窗口中插入一个用户窗体,再在用户窗体中插入一些控件和一个按钮,然后通过点击该按钮来显示某个特定控件的名称。3.获取当前活动控件的名称双击按钮,在打开的代码编辑窗口中,输入以下代码,就会在弹出信息中显示当前活动控件的名称。MsgBox Me.ActiveControl.Name4.运行后,点击按钮。5.获取当前活动控件父对象的名称如果要获取到获取当前活动控件父对象的名称,那么可以利用parent属性来实现。6.获取某类型控件的名称通过 For Each 语句来遍历 Me.Controls中的所有控件,再通过控件类型来定位到需要的类型,最后通过个性控件的位置来获取该类型中指定位置控件的名称。如下面代码中,num=1时,获取第一个label对象,num=2时,获取第二个label对象。