单元格中引用日定义.pdfVIP

[ 转帖 ]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