2022-11-03 19:47来源:m.sf1369.com作者:宇宇
1、打开Excel表格,然后输入第一个日期,选中单元格,点击单元格右下角的点下拉日期。
2、下拉日期后,如果是复制日期的话,点击右下角的图标。
3、点击打开图标后,选择填充序列。
4、选择填充序列后,就可以让日期自动往下排了1、打开Excel表格,然后输入第一个日期,选中单元格,点击单元格右下角的点下拉日期。
2、下拉日期后,如果是复制日期的话,点击右下角的图标。
3、点击打开图标后,选择填充序列
4、选择填充序列后,就可以让日期自动往下排了
单击B1单元格,点数据->有效性->设置,在允许下面选择序列,在来源框中输入:
=$A$1:$A$9
点确定。
在第一格上填好日历格式,然后按住CTRL鼠标点住填好的格式往下拉,就自动生成了
赞同无旧介绍的方法,只是前先选项中区域,而不需再复制单元格.但如果只是输入日期,由直接输入比在下拉菜单中的300多个中选择更快捷.方法如下:当年只需输入"X-X"(如7-28),非当年则输入"XX-X-X"(如11-7-28)即可(将单元格设为自己想要的格式),如图:上图是输入的"7-28"后的显示效果.
用数据有效性
数据》有效性》序列》来源写上:1,2,3……到29,30>确定
A1输入公式:
=DATE(2015,ROW(A1),1)
下拉填充
然后选中那列单元格,将格式改成日期格式即可
加个日历控件在单元格内
开发工具--->插入--->更多工具
选择Microsoft data and Time Picker Control,Version 6.0
没有的话自己百度找一个Excel Date Picker插件
插入日历控件----编入代码
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 1 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
1楼回答问题不看题目。bai
TODAY()、NOW()等属于易失性函数,我目前能想到的要么是宏来du解决,要么就用zhi循环引用来解决。
1)全选B列——dao工具——选项——重新计算——迭代运算,次数设置回为1,确定;
2)在B1输入下面公式,并下拉答:
=IF(A1=,,IF(B1=,TODAY(),B1))
点击A1单元格后,将鼠标放在A1单元格右下角的小黑点(即填充柄)上,按住左键下拉即可填充。