电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

单元格中引用日历

单元格中引用日历_第1页
1/18
单元格中引用日历_第2页
2/18
单元格中引用日历_第3页
3/18
[转帖]Excel-单击单元格弹出活动日历 2009-12-29 20:26 题记:老同学“芝麻汤圆”发来一个文件,要实现活动日历效果。研究了下文件里的VBA 代码,搞定!嘿嘿 方法: 1、右键单击工具栏,选中 Visual Basic; 2、单击工具栏上的“控件工具箱”(小榔头形状); 3、单击控件工具箱工具栏上的“其他控件”(小榔头形状); 4、找到 "Microsoft Date And Time Piker Control 6.0 (SP4)",选中它; 5、在你所要用到的单元格内画出,大小要和单元格一样; 6、选中控件,右键单击选择菜单“设置控件格式”,在"属性"选项中选择“大小固定、位置随单元格而变”,确定; 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()里应为日期单元格的坐标,即第几行,第几列。 二、一列日历代码 Option Explicit Private Sub DTPicker1_Change() ActiveCell.Value = DTPicker1.Value DTPicker1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.DTPicker1 If Target.Column = 2 And Target.Count = 1 Then .Visible = True .Width = Target.Width + 15 .Left = Target.Left .Top = Target.Top .Height = Target.Height Else .Visible = False End If End With End Sub 备注:“Target.Column = 2”指第 2 列。如果想在其他列上实现活动日历效果,请将 2 改为您想要的列值。 三、一行日历代码 Option Explicit Private Sub DTPicker1_Change() ActiveCell.Value = DTPicker1.Value DTPicker1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.DTPicker1 If Target.Row = 7 And Target.Count = 1 Then .Visible = True .Width = Target.Width + 15 .Left = Target.Left .Top = Target.Top .Height = Target.Height Else .Visible = False End If End With End Sub 备注:“Target.Row = 7”指第 7 行。如果想在其他行上实现活动日历效果,请将改为您想要的行值。...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

单元格中引用日历

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部