怎样在excel表格中 插入日历 达到可选日期的效果

Question

如题所述

Answer 1

加分告诉你详细教程，包售后，还可以教你Excel做管理系统

前提是你的电脑里有日期控件，没有的话网上找一找，下载安装

选择视图--工具栏--控件工具箱；
单击控件工具箱工具栏上的“其他控件”（小榔头形状）；
找到 "Microsoft Date And Time Piker Control 6.0 (SP4)"，选中它；
在你所要用到的单元格内画出，大小要和单元格一样；
选中控件，右键单击选择菜单“设置控件格式”，在"属性"选项中选择“大小、位置均随单元格而变”，确定；
右键单击控件选择菜单“查看代码”，进入VBA后，键入以下代码：

Private Sub DTPicker1_Change()
Sheet1.Cells(1, 1) = CStr(DTPicker1)
End Sub

Private Sub DTPicker1_Click()
Sheet1.Cells(1, 1) = CStr(DTPicker1)
End Sub

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

退出设计模式，OK。本回答被网友采纳