excel表格日历.docx
- 文档编号:10997078
- 上传时间:2023-02-24
- 格式:DOCX
- 页数:6
- 大小:17.90KB
excel表格日历.docx
《excel表格日历.docx》由会员分享,可在线阅读,更多相关《excel表格日历.docx(6页珍藏版)》请在冰豆网上搜索。
excel表格日历
竭诚为您提供优质文档/双击可除
excel表格,日历
篇一:
在excel中插入日历控件
在excel中插入日历控件
1、在某一单元格中插入日历控件
(1)选中要插入日历控件的单元格,设置单元格格式为日期型;
(2)点击工具栏,“插入—对象—日历控件”,
(3)用快捷方式alt+F11,双击插入控件的工作表名称,粘贴下面的代码,用来实现单击a1时弹出日历控件,单击日历控件后,将选中的日期值填入a1并隐藏控件。
privatesubcalendar1_click()
activecell=calendar1
calendar1.Visible=False
[a2].select
endsub
privatesubworksheet_selectionchange(byValtargetasRange)
iftarget.address="$a$1"thencalendar1.Visible=true
endsub
2、某一列全部设置为插入日历控件。
例如;在c列中,无论点击哪个单元格,就弹出日历控件,选择一个日期后,日期自动插入到单元格;除c列之外,点击其他单元格,不会弹出日历选择控件;
同上面
(1)
(2)步后,选择日历控件,双击鼠标,进入代码编辑模式,选择worksheet和selectionchange,输入代码:
privatesubcalendar1_click()
activecell=calendar1.Value
me.c
alendar1.Visible=False
endsub
privatesubworksheet_selectionchange(byValtargetasRange)
iftarget.column=1then
me.calendar1.Visible=true
else
me.calendar1.Visible=False
endif
endsub
完成后,运行Vba代码,返回excel操作窗口,即可实现。
篇二:
excel20xx制作万年历的步骤
excel20xx制作万年历的步骤
1、启动excel20xx,新建一个工作表,取名保存(如万年历.xls),并在相应的单元格中,输入如图1所示的文本。
2、同时选中b1、c1、d1单元格,按“格式”工具栏上的“合并及居中”按钮,将其合并成一个单元格,并输入公式:
=today()。
选中b1(合并后的)单元格,执行“格式→单元格”命令,打开“单元格格式”对话框(如图2),在“数字”标签中的“分类”下面选中“日期”选项,再在右侧“类型”下面选中“二○○一年三月十四日”选项,“确定”退出,将日期设置成中文形式。
注意:
today()函数用于提取当前系统日期,请一定要将系统日期调整准确哟。
3、在F1单元格中输入公式:
=iF(weekday(b1,2)=7,"日",weekday(b1,2));在h1单元格中输入公式:
=now()。
选中F1单元格,打开“单元格格式”对话框,在“数字”标签中的“分类”下面选中“特殊”选项,再在右侧“类型”下面选中“中文小写数字”选项,“确定”退出,将“星期数”设置成中文小写形式;选中h1单元格,打开“单元格格式”对话框,在“数字”标签中的“分类”下面选中“时间”选项,再在右侧“类型”下面选中一款时间格式,“确定”退出。
注意:
①上述前面一个公式的含义是:
如果(iF)当前日期(b1)是星期“7”(weekday(b1,2)=7),则在F1单元格中显示“日”,否则,直接显示出星期的数值(weekday(b1,2))。
②上述第二个函数(now())用于提取当前系统日期和时间,也请将系统日期和时间调整准确。
4、在i1、i2单元格分别输入1900、1901,然后同时选中i1、i2单元格,用“填充柄”向下拖拉至i151单元格,输入1900—2050年份序列。
同样的方法,在j1至j12单元格中输入1—12月份序列。
5、选中d13单元格,执行“数据→有效性”命令,打开“数据有效性”对话框(如图3),按“允许”右侧的下拉按钮,选中“序列”选项,在“来源”下面的方框输入:
=$i$1:
$i$151,“确定”退出。
同样的操作,将F13单元格数据有效性设置为“=$j$1:
$j$12”序列。
注意:
经过这样的设置以后,当我们选中d13(或F13)单元格时,在单元格右侧出现一个下拉按钮,按此下拉按钮,即可选择年份(或月份)数值,快速输入需要查询的年、月值。
6、选中a2单元格(不一定非得是a2哟),输入公式:
=iF(F13=2,iF(oR(d13/400=int(d13/400),and(d13/4=int(d13/4),d13/100int(d13/100))),29,28),iF(o
R(F13=4,F13=6,F13=9,F13=11),30,31)),用于获取查询“月份”所对应的天数(28、29、30、31)。
注意:
上述函数的含义是:
如果查询“月份”为“2月”(F13=2)时,并且“年份”数能被400整除,或者“年份”能被4整除,但不能被100整除,则该月为29天(即“闰年”);否则为28天。
如果“月份”不是2月,但是“4、6、9、11”月,则该月为30天。
其他月份天数为31天。
7、在“查询年月”后随意选择一个年份(如20xx),然后选中b2单元格,输入公式:
=iF(weekday(date($d$13,$F$13,1),2)=b3,1,0)。
再次选中b2单元格,用“填充柄”将上述公式复制到c2—h2单元格中。
注意:
①上述b2单元格中公式的含义是:
如果“查询年月”的第1天是星期“7”(weekday(date)($d$13,$F$13,1),2)=b3)时,在该单元格显示“1”,反之显示“0”),为“查询年月”获取一个对照值,为下面制作月历做准备。
②上述c2—h2单元条中公式的含义与b2相似。
③在用拖拉法复制公式时,公式“绝对引用”的单元格(加了“$”号的,如“$d$13”等)不会发生改变,而“相对引用”的单元格(没有加“$”号的,如“b3”等),则会智能化地发生变化,例如在e2单元格中,“b3”变成了“e3”,整个公式成为:
=iF(weekday(date($d$13,$F$13,1),2)=e3,1,0)。
8、选中b6单元格,输入公式:
=iF(b2=1,1,0)。
选中b7单元格,输入公式:
=h6+1。
用“填充柄”将b7单元格中的公式复制到b8、b9单元格中。
分别在b10、b11单元格中输入公式:
=iF(h9>=a2,0,h9+1)和=iF(h10>=a2,0,iF(h10>0,h10+1,0))。
选中c6单元格,输入公式:
=iF(b6>0,b6+1,iF(c2=1,1,0))。
用“填充柄”将c6单元格中的公式复制到d6—h6单元格中。
选中c7单元格,输入公式:
=b7+1。
用“填充柄”将c7单元格中的公式复制到c8、c9单元格中。
同时选中c7—c9单元格,用“填充柄”将其中的公式复制到d7—h9单元格中。
选中c10单元格,输入公式:
=iF(b10>=$a$2,0,iF(b10>0,b10+1,iF(c6=1,1,0)))。
用“填充柄”将c10单元格中的公式复制到d10—h10单元格和c11单元格中。
至此,整个万年历(其实没有万年,只有从1900—2050的151年)制作完成。
下面,我们一起来将其装饰一下。
9、设置好相关单元格的字体、字号、字符颜色等。
选中相应的单元格,打开“单元格格式”对话框,在“对齐”标签下,设置好单元格中文本的对齐方式。
同时选中i列和j列,右击鼠标,选“隐藏”选项,将相应的列隐藏。
用同样的方法,将第2和第3行也隐藏起来。
10、选中b5—h11单元格区域,打开“单元格格式”对话框,进入“边框”标签,选择好“颜色、样式”,并“预置”好边框范围,然后“确定”退出,为月历加上边框。
11、执行“工具→选项”命令,打开“选项”对话框(如图4),在“视图”标签下(通常是默认标签),清除“零值”和“网格线”复选框中的“√”号,“确定”退出,让“零值”和“网格线”不显示出来。
12、将b14—h14和b15—h15单元格分别合并成一个单元格,并在b14单元格中输入公式:
=iF(and(month(d1)=1,day(d1)=1),"新的新气象!
加油呀!
",iF(and(month(d1)=3,day(d1)=8),"向女同胞们致敬!
",iF(and(month(d1)=5,day(d1)=1),"劳动最光荣",iF(and(month(d1)=5,day(d1)=4),"青年是祖国的栋梁",iF(and(month(d1)=6,day(d1)=1),"原天下所有的儿童永远快乐",0)))))确。
然后在b15单元格中输入公式:
=iF(and(month(d1)=7,day(d1)=1),"党的恩情永不忘",iF(and(month(d1)=8,day(d1)=1),"提高警惕,保卫祖国!
",iF(and(month(d1)=9,day(d1)=10),"老师,您辛苦了!
",iF(and(month(d1)=10,day(d1)=1),"祝我们伟大的祖国繁荣富强",0))))。
设置好b14和b15单元格的字体、字号、字符颜色。
注意:
上述公式的含义是:
如果当前日期逢到相关的节日(如“元旦”等),则在b14或b15单元格显示出相应的祝福语言(如“新的新气象!
加油呀!
”,参见图5)。
由于iF函数只能嵌套7层,而节日数量超过7个(我们这里给出了9个),因此,我们用两个单元格来显示。
13、执行“格式→工作表→背景”命令,打开“工作表背景”对话框(如图6),选择一张合适的图片后,按“插入”按钮,将其衬于工作表文字下面。
14、在按住“ctrl”键的同时,单击d13和F13单元格,同时选中两个单元格,打开“单元格格式”对话框,切换“保护”标签(如图7),清除“锁定”前面复选框中的“√”号,“确定”退出。
篇三:
用excel怎样制作万年历
可以把excel表格内容设置为桌面背景么?
悬赏分:
10-解决时间:
20xx-2-1508:
32
由于经常要查一个excel表,就想如果把它设置为桌面背景就会很方便了,求教高手,怎么做才能办到?
提问者:
firtre-三级
最佳答案
文件-另存为网页-在桌面上点右键-属性-桌面-自定义桌面-web-钩上就搞定了
用excel怎样制作万年历
阅读578评论29字号:
大中小
准备工作,制作如下电子表格:
第一步:
在c2中输入=today()回车。
today()函数用于提取当前系统日期。
第二步:
在F2中输入=iF(weekday(c2,2)=7,"日",weekday(c2,2))回车。
第三步:
在h2中输入=now()回车。
now()用于提取当前系统时间。
第四步:
在d14中设置下拉菜单,数值为1900—2029。
参见“怎样制作下拉菜单”
第五步:
在F14中设置下拉菜单,数值为1—12。
将查询日期调为当前日期,如下图:
第六步:
在a3中输入:
=iF(F14=2,iF(oR(d14/400=int(d14/400),and(d14/4=int(d14/4),d14/100int(d14/100))),29,
28),iF(oR(F14=4,F14=6,F14=9,F14=11),30,31))回车。
第七步:
b3中输入=iF(weekday(date($d$14,$F$14,1),2)=b4,1,0)回车。
选中b3向右复制公式
至h3。
第八步:
b6中输入=iF(b3=1,1,0)回车。
第九步:
在b7中输入=h6+1回车,选中b7,向下复制公式至b9。
第十步:
在b10中输入=iF(h9>=a3,0,h9+1)回车。
第十一步:
在b11中输入=iF(h10>=a3,0,iF(h10>0,h10+1,0))回车。
第十二步:
在c6中输入=iF(b6>0,b6+1,iF(c3=1,1,0))回车。
第十三步:
在c7中输入=b7+1回车。
第十四步:
选中c7向下复制公式至c9。
第十五步:
在c10中输入=iF(b10>=$a$3,0,iF(b10>0,b10+1,iF(c6=1,1,0)))回车。
第十六步:
选中c6,向右复制公式至h6。
选中c7,向右复制公式至h7。
选中c8,向右复制公式至h8。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excel 表格 日历