单元格中引用日历

《单元格中引用日历》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、[转帖]Excel-单击单元格弹出活动日历2009-12-2920:26题记：老同学“芝麻汤圆”发来一个文件，要实现活动日历效果。研究了下文件里的VBA代码，搞定！嘿嘿方法：1、右键单击工具栏，选中Visual  Basic;  2、单击工具栏上的“控件工具箱”（小榔头形状）；  3、单击控件工具箱工具栏上的“其他控件”（小榔头形状）；  4、找到  "Microsoft  Date  And  Time  Piker  Control  6.0  (SP4)"，选中它；  5、在你所要用到的单元格内画出，大小要和单元格一样；  6、选中控件，右键单击选择菜单“设置

2、控件格式”，在"属性"选项中选择“大小固定、位置随单元格而变”，确定；  7、右键单击控件选择菜单“查看代码”，进入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备注：Cells()里应为日

3、期单元格的坐标，即第几行，第几列。二、一列日历代码OptionExplicitPrivateSubDTPicker1_Change()   ActiveCell.Value=DTPicker1.Value   DTPicker1.Visible=FalseEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)   WithMe.DTPicker1       IfTarget.Column=2AndTarget.Count=1Then           .Visible=True         

4、  .Width=Target.Width+15           .Left=Target.Left           .Top=Target.Top           .Height=Target.Height       Else           .Visible=False       EndIf   EndWithEndSub备注：“Target.Column=2”指第2列。如果想在其他列上实现活动日历效果，请将2改为您想要的列值。三、一行日历代码OptionExplicitPrivateSubDTPicker1_Change()   Activ

5、eCell.Value=DTPicker1.Value   DTPicker1.Visible=FalseEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)   WithMe.DTPicker1       IfTarget.Row=7AndTarget.Count=1Then           .Visible=True           .Width=Target.Width+15           .Left=Target.Left           .Top=Target.Top

6、           .Height=Target.Height       Else           .Visible=False       EndIf   EndWithEndSub备注：“Target.Row=7”指第7行。如果想在其他行上实现活动日历效果，请将7改为您想要的行值。8、（使用代码一，需要进行此项目设置）返回到Excel,调整单元格大小使控件完全显示；   9、退出设计模式，OK。要实现你的要求分三个步骤：1、在工作表中插入一个日历控件如：microsoftdateandtimepicker2、在控件的lostfocus事件中加入以下的代码

7、：cells(5,5)=dtpicker1.value(日历控件的名称为：dtpicker1)，每当用户选择了日历控件时，当他退出后，自动让指定的单元格内容update3、在workbook的beforesave事件中加入以下的内容IfIsNull(Cells(5,5).Value)OrCells(5,5)=""ThenMsgBox"请先选择日期"Cancel=TrueEndIf如果没有选择日期(单元格为空时)提醒用户没有选择日历，不让保存文件。èdìshényǎ[大师]插入--》对象--》新建--》日历控件11.0这样可以在Excel中插入一个日历，很方便。如