在excel中如何插入明天的日期
4个回答
展开全部
1.如果你要设置日期的格式化可以选中所要插入日期控件的列
右键选择【设置单元格格式】---在数字这一栏选项卡中的分类选择【日期】--自己选择一种日期样式
2.选中要插入日期控件列的单位格【插入】---【对象】---在对象类型中选择【日历控件12.0】,进行插入
3.出现如图日历控件,拖放到合适位置
(要先进入设计模式才能对控件进行拖放,点击那个有尺子的图标进入设计模式)
4.退出设计模式,双击日历控件,进入代码编写,输入以下代码
-------------------------------------------------------------------------------------
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'此处的6和7为你要显示日历的列序号
If Target.Column = 6 Or Target.Column = 7 Then
Me.Calendar1.Left = Target.Left
Me.Calendar1.Top = Target.Top
If Target.Value <> "" Then
Me.Calendar1.Value = Target.Value
Else
Me.Calendar1.Value = Now()
End If
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
右键选择【设置单元格格式】---在数字这一栏选项卡中的分类选择【日期】--自己选择一种日期样式
2.选中要插入日期控件列的单位格【插入】---【对象】---在对象类型中选择【日历控件12.0】,进行插入
3.出现如图日历控件,拖放到合适位置
(要先进入设计模式才能对控件进行拖放,点击那个有尺子的图标进入设计模式)
4.退出设计模式,双击日历控件,进入代码编写,输入以下代码
-------------------------------------------------------------------------------------
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'此处的6和7为你要显示日历的列序号
If Target.Column = 6 Or Target.Column = 7 Then
Me.Calendar1.Left = Target.Left
Me.Calendar1.Top = Target.Top
If Target.Value <> "" Then
Me.Calendar1.Value = Target.Value
Else
Me.Calendar1.Value = Now()
End If
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=TODAY()+1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=TODAY()+1
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询