[原创]一拼老输制作的万年历！

一拼老输

这是我用函数制作的万年历，绝对不涉及VBA，因为我根本一点也不会VBA；因为做得相当粗糙，甚至有些地方可能还会有错，故工作表加密保护，不敢暴露里面拙劣的制作；现拿上来，让初学Excel函数的朋友体会一下：只要努力，用不了多久，你也会喜爱上Excel函数

[此贴子已经被作者于2008-8-25 17:48:20编辑过]

gouweicao78

仅看看这个是很不错的，如果再看公式的话，应该有不少可以简化的地方。

不过比我强多了，至少弄出东西来，我还没弄出来过。呵呵，谢谢分享。

I7=IF(G6>=1949,"共和国",IF(G6>=1912,"民国",IF(G6>=1909,"宣统",IF(G6>=1900,"光绪",)))) 简化：=lookup(G6,{1900,"光绪";1909,"宣统";1912,"民国";1949,"共和国"}) J4星期几的直接用=now()——设置单元格格式aaa就可以显示“三”，设置为aaaa显示“星期三” C16=IF(ISERROR(INDEX($BS:$BS,MATCH(CONCATENATE(T13,T14,T15),$BJ:$BJ,0),1))=TRUE,"",INDEX($BS:$BS,MATCH(CONCATENATE(T13,T14,T15),$BJ:$BJ,0),1)) iserror部分能出错的恐怕就是Match了，Match产生的错误是#N/A，所以可以用isna(match(……))取代。

[此贴子已经被作者于2006-4-19 21:00:16编辑过]

nzgny

收下，谢谢！

一拼老输

以下是引用[I]gouweicao78[/I]在2006-4-19 20:39:54的发言：[BR]

仅看看这个是很不错的，如果再看公式的话，应该有不少可以简化的地方。

不过比我强多了，至少弄出东西来，我还没弄出来过。呵呵，谢谢分享。

在发这个帖子之前，我曾看到Rowen的万年历作品，那才真让人佩服，http://club.excelhome.net/dispbbs.asp?boardID=31&ID=81926&page=2&px=0　所用的函数想都难以想到，定义的名称让人眼花缭乱。再看自己做的，太土了点，展示里面的公式及制作，又怕对初学者误导，故对工作表加密保护。因此，在发这个帖子的时候我就想说：Rowen的万年历作品才最值得喜欢万年历作品的朋友去研究，同时我也想告诉爱好EXCEL函数的朋友，用土办法也可以制作出自己的作品：尽管粗糙但终究是自己的......如果确有必要的话我也会去掉工作表的保护，让所有关心的朋友了解所用到的函数！

gouweicao78

工作表保护基本上除了避免公式被轻易改动破坏外，基本没多少意义。破解软件一下子就解开了。

不过弄一个自己喜欢的东西可以综合很多知识，是一个很好的练习。

“尽管粗糙但终究是自己的”这才是真正学习的过程，正如小学课文里爱迪生的“凳子”——被老师说“世界上还有比这更简陋的东西吗”，爱迪生说“有的”并从书包里拿出了两个更糟糕的作品。

这个故事告诉大家，不必因为被人笑话而看低自己，关键是——自己做的才是自己的。

有的网友一上来就是“求救、急、在线等、挑战高手、……”之类的词语，而问题并不一定很难。问了一次得到解答而不明其意，也不学，碰到类似问题还是“求救……”这样只能不断的求救而不能把这些知识变成“自己的”。

“一拼老输”——不会输的！呵呵。相信自己！[em10]

[此贴子已经被作者于2006-4-19 21:41:28编辑过]

一拼老输

感谢“gouweicao78”！看来喜欢这个万年历的朋友并不多，主要是制作得土了点吧，等到什么时候有空的话把它弄得好看一点

windschen

下载学学

ytxwh

下载学习学习。

听风看雪

TO一拼老输

正如你所言，让我想起了一句话，也许做的不好，但毕竟做出来了。如果能让我们看到制作的全过程的话，那对我们学习函数来说，将是一个很好的教材。

我目前也在学习函数部分，下载了本论坛的一些例子，也在这里征求过问题的答案。只是感觉进步不是很快，但也还在努力的学着。

希望能看到您更多的作品在这里发表。

ruanxiong

如果我能有这水平的话就好了，谢谢楼主分享！