excle如何实现日期的自动转换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我需要在A1单元格中输入任意一个时间,然后A2单元格自动生成日期
例如在A1中输入12:23,A2就显示今天的日期,输入0:12,A2就显示明天的日期
这个如何实现请高手指点

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCLE 如何实现 excl CLE 自动生成 自动 EXCLE

这个得用VBA吗？

=IF(HOUR(A1)-1<>-1,NOW(),TODAY()+1)

3# myznufe06acc 只能在0点的时候可以 但是到了1点以后就不行了

打开文件后：
菜单上，工具，宏，VB 编辑器，
双点左边的 sheet1(sheet1) ，（注意，这个名字就是表的名字）
然后，在右边的空白处填写下面代码。然后，保存。打开此文件就有你说的效果。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(1, 1), Cells(1, 256)).Interior.ColorIndex = 0
Dim 列, 颜色值
列 = Day(Date)
颜色值 = 列 + 2
Cells(1, 列).Interior.ColorIndex = 颜色值
End Sub

效果：随着日期的变化，会在第一行的某列设置单元格背景色。

注意：打开后，要选择：“同意使用宏”