excel里面是否可以实现这个功能吗?即插入日历,然后通过点击日历上的日期,使得日期自动填入指定单元格

 我来答
tlxwd
2016-06-13 · TA获得超过1148个赞
知道大有可为答主
回答量:1592
采纳率:66%
帮助的人:729万
展开全部

  第一步,在表格中插入日历控件:步骤如下图

  ------------------

  ----------------

  ----------

  第二步,编写工作表的事件(选择变化)代码:

  ----------------

------------

-----------

代码如下:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Calendar1
        If Target.Address = "$A$1" Then
            .Top = [a1].Top + [a1].Height
            .Left = [a1].Left
            .Value = Date
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub

-----------------------

第三步,给日历控件添加单击事件代码

------------------

-----------------

--------------------

代码如下:

Private Sub Calendar1_Click()
    [a1] = Calendar1.Value
    Calendar1.Visible = False
End Sub

------------------------

到这里就完成了。效果图如下 :


百度网友e1af404
2016-06-12 · TA获得超过1.3万个赞
知道大有可为答主
回答量:1.1万
采纳率:59%
帮助的人:4288万
展开全部
可以的
只是插入日历,需要日历控件
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
山口坛斜
2016-06-13 · TA获得超过2万个赞
知道大有可为答主
回答量:2.3万
采纳率:63%
帮助的人:8036万
展开全部
可以。需要编写宏。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式