【急】如何在Excel2003里利用日期控件在某个单元格点选插入日期？

Question

如题所述

Answer 1

需要用VBA，以Excel2007为例，方法如下;

1、打开Excel,点击“开发工具”选项卡，在“控件”组别，找到并点击“插入”，在下拉列表中，点选右下角的“其它控件”，如下图：

2、在弹出的“其他控件”对话框，拖动滚动条到下方，鼠标左键选择“日历控件12.0”，点击“确定”

3、回到工作表，用鼠标左键拖动出来一个日历控件，调整大小和位置，如下图：

4、鼠标左键在“日历控件”上双击，调出VBA编辑器，把下面这段代码复制粘贴到里面

Private Sub Calendar1_Click()

ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd")

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then

        If Target.Row > 1 Then

           With Me.Calendar1

             .Visible = True

             .Top = Target.Top + Target.Height

             .Left = Target.Left + Target.Width

             .Value = Date

            End With

        Else

            Me.Calendar1.Visible = False

        End If

    Else

        Me.Calendar1.Visible = False

    End If

End Sub

其中“ If Target.Column = 1 Then

        If Target.Row > 1 Then“为点击第一列即A列除第一行外弹出日历控件，可根据需要进行更改，然后关闭VBA代码编辑器回到工作表

5、鼠标左键点击A2即弹出”日历控件“，根据需要在”控件“上点击要输入的日期即可

Answer 2

1.我的两个需要使用日历控件的单元格分别是V2和Z2，都在同一行，希望调出控件的时候，日历控件浮悬在第3行，这两个单元格附近，这样可以不遮盖V2和Z2单元格的显示。2.点击除了V2和Z2单元格外的任意单元格或者按Esc键时，日历控件也会消失，这时，如果未点选控件上的日期，V2和Z2单元格里均为空白。3.当用日历控件在V2单元格插入一个日期后，Z2单元格同步显示V2单元格日期的后七天的日期；相反，当用日历控件在Z2单元格插入一个日期后，V2单元格同步显示Z2单元格日期的前七天的日期。两个日历控件出现时，显示的默认日期均为当前日期本回答被提问者采纳