制作桌面壁纸的万年历

学良 · 发表于 2019-4-11 10:28

iris00 发表于 2019-4-10 13:08
我是用2016版，桌面是可以显示，万年历也可以显示。弱弱的问一句：如何可以把重要事项显示在桌面上呀？没有 ...

请发上来, 我帮你做一下,(2016板本)

iris00 · 发表于 2019-4-11 10:57

本帖最后由 iris00 于 2019-4-11 11:45 编辑

学良发表于 2019-4-11 10:28
请发上来, 我帮你做一下,(2016板本)

学良老师，我保存成2016版后，更换桌面，右边会产生留白，感觉就像图片放的靠左一样。而且也没有可以编辑的地方，每次打开日历都好大，几乎全屏。（2003版只是没有编辑的地方，其他问题无）我直接把2016版的压缩上传，麻烦您看下。C:\User\Administrator\桌面\TIM图片20190411105412

iris00 · 发表于 2019-4-16 08:48

学良发表于 2019-4-11 10:28
请发上来, 我帮你做一下,(2016板本)

学良老师，我用你的03版，每天电脑打开桌面的日历不会自动更新，都要打开EXCEL点“更换”，日历才能变成最新的。

pains2016 · 发表于 2019-4-23 16:53

藝術殘劍发表于 2016-1-2 14:27
出错了，运行时出现错误。

我下载了也是这样

pains2016 · 发表于 2019-4-23 16:53

学良发表于 2016-1-3 08:09
我是03版, 其他版本未测试.

我下载的03版也不行

Stella666 · 发表于 2019-4-23 17:23

感觉很不错，干货

笨笨哥哥1 · 发表于 2019-5-15 19:11

2016 office win7 整不了咯，哎，可惜啦

少如 · 发表于 2019-5-31 10:08

笨笨哥哥1 发表于 2019-5-15 19:11
2016 office win7 整不了咯，哎，可惜啦

改一下:
Private Sub Workbook_Activate()
  On Error Resume Next
  Application.Caption = "学良-Excel表格" '改变EXCEL左上标题
Application.ScreenUpdating = False
  If Hour(Now) > 22 Then
Application.StatusBar = "       〓★〓【学良提示您】〓★〓  ~.~    夜深了,请注意休息!"
  ElseIf Hour(Now) > 19 Then
Application.StatusBar = "       〓★〓【学良欢迎您】〓★〓  ~.~       晚上好! "
ElseIf Hour(Now) > 12 Then
Application.StatusBar = "       〓★〓【学良欢迎您】〓★〓  ~.~       下午好! "
ElseIf Hour(Now) > 6 Then
Application.StatusBar = "       〓★〓【学良欢迎您】〓★〓  ~.~       上午好! "
ElseIf Hour(Now) > 4 Then
Application.StatusBar = "       〓★〓【学良祝你一天有个好情】〓★〓  ~.~       早上好! "
ElseIf Hour(Now) > 0 Then
Application.StatusBar = "       〓★〓【学良提示您】〓★〓 ~.~       很晚了,注意休息! "
End If
End Sub

流浪雨 · 发表于 2019-6-2 07:30

学习一下，谢谢分享

1872879008 · 发表于 2019-6-2 13:42

收下

		自动登录	找回密码
密码			免费注册

[分享] 制作桌面壁纸的万年历