![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
在EXCEL中怎么实现在,一个单元格内输入一个日期,比如1-1,另外一个单元格自动显示1-1~1-2?
3个回答
2019-12-15 · 知道合伙人软件行家
关注
![](https://wyw-base.cdn.bcebos.com/pc-content/follow.gif)
展开全部
这个问题有3个办法
1、用today()函数 但要设置 迭代计算 由于和其他文件需要的设置不同 有些麻烦
2、用宏,Worksheet_Change事件
3、最简单的是在需要日期的单元格上按住ctrl再按;(即ctrl+;)
建议用后2种办法
附上代码 工具-》宏-》 vb编辑器-》双击左侧树型目录的sheet1,然后在右侧代码区复制一下内容。假设A列输入,B列显示日期
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = Target.Row
iCol = Target.Column
If iCol = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Date
End If
End Sub
1、用today()函数 但要设置 迭代计算 由于和其他文件需要的设置不同 有些麻烦
2、用宏,Worksheet_Change事件
3、最简单的是在需要日期的单元格上按住ctrl再按;(即ctrl+;)
建议用后2种办法
附上代码 工具-》宏-》 vb编辑器-》双击左侧树型目录的sheet1,然后在右侧代码区复制一下内容。假设A列输入,B列显示日期
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = Target.Row
iCol = Target.Column
If iCol = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Date
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询