
excel里面是否可以实现这个功能吗?即插入日历,然后通过点击日历上的日期,使得日期自动填入指定单元格
3个回答
展开全部
第一步,在表格中插入日历控件:步骤如下图
------------------
----------------
----------
第二步,编写工作表的事件(选择变化)代码:
----------------
------------
-----------
代码如下:
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
------------------------
到这里就完成了。效果图如下 :
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询