如何用vba实现在EXCEL固定区域坐标内点击单元格，显示日期控件

第一首先要用

Private

Sub

Worksheet_Change(ByVal

Target

As

Range)

触发事件。

第二要用到日期控件：

方法一：先将控件工具箱调出来。视图－工具栏－控件工具箱。

在控件工具箱上最下面那个按钮是其他控件，打开它，找到Microsoft

Date

and

Time

Picker

Control，

这个就是日历控件。然后在一个单元格上拖画一个框，日历控件就出来了。

然后在控件工具箱上退出设计模式，日历控件就能使用了。

在你所要用到的单元格内画出，大小要和单元格一样；

选中控件，右键单击选择菜单“设置控件格式”，在"属性"选项中选择“大小、位置均随单元格而变”，确定；

右键单击控件选择菜单“查看代码”，进入VBA后，键入以下代码：

Private

Sub

DTPicker1_Change()

Sheet1Cells(1,

1)

=

CStr(DTPicker1)

End

Sub

Private

Sub

DTPicker1_Click()

Sheet1Cells(1,

1)

=

CStr(DTPicker1)

End

Sub

返回到Excel,调整单元格大小使控件完全显示；

退出设计模式，OK。如果没有这个控件可以自己去网上下载个控件或者用方法2

方法2:在EXCEL窗口中执行“

视图

”→“

工具栏

”→“

控件工具箱

”添加“

日历控件

110

”

Dim w1, w2 As Long——这样只是对w2定义了类型，w1还是任意型，改为

Dim w1 As Long, w2 As Long 或 Dim w1&, w2&

Dim sh As Worksheet Set sh = ThisWorkbookActiveSheet For i = 1 To ThisWorkbookSheetsCount ThisWorkbookSheets(i)Name = shName Exit For Next i的值就是第“几”个工作表

以上就是关于如何用vba实现在EXCEL固定区域坐标内点击单元格，显示日期控件全部的内容，包括:如何用vba实现在EXCEL固定区域坐标内点击单元格，显示日期控件、Excel VBA中捕捉屏幕坐标问题、如何用VBA确定EXCEL 图表在工作表中的位置等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！