如何用EXCEL表格制作日历

1、用 EXCEL 制 作份万年历今天我们介绍用Excel制作万年历的方法。这个万年历可以显示当月的 月历，还可以随意查阅任何日期所属的月历，非常方便。如果你愿意，还可 以让它在特殊的日子里显示不同的提醒文字，一起来试试吧！本文所涉及到的函数有：1、AND (Iogical1,logical2,)2、DATE (year,month,day)3、DAY (serial_number)4、IF (Logical,Value_if_true,Value_if_false)5、INT (number)6、MONTH (serial_number)7、NOW ()8、OR (Iogical1,logica

2、l2,).xls ），并2、同时选中B1、C1、D1单元格，按“格式”工具栏上的“合并及居中” 按钮，将其合并成一个单元格，并输入公式：二TODA()。定”退出，将日期设置成中文形式。注意：TODAY)函数用于提取当前系统日期，请将系统日期一定要调整准确哟。3、选中F1单元格，输入公式：=IF(WEEKDAY(B1,2)=7,"日 ",WEEKDAY(B1,2);选中H1单元格，输入公式：二N0()。选中F1单元格，打开“单元格格式”对话框，在“数字”标签中的“分 类”下面选中“特殊”选项，再在右侧“类型”下面选中“中文小写数字” 选项，“确定”退出，将“星期数”设置成中文

3、小写形式；选中 H1单元格, 打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“时 间”选项，再在右侧“类型”下面选中一款时间格式，“确定”退出。注意：上述前面一个公式的含义是：如果(IF )当前日期(B1)是星 期“7”( WEEKDAY(B1,2)=7，则在F1单元格中显示“日”，否则，直接 显示出星期的数值(WEEKDAY(B1,2)。上述第二个函数(N0()用于提取当前系统日期和时间，也请将系 统日期和时间调整准确。4、在I1、12单元格分别输入1900、1901，然后同时选中11、12单元 格，用“填充柄”向下拖拉至I151单元格，输入19002050年份序列。同样的方法

4、，在J1至J12单元格中输入112月份序列。5、 选中D13单元格，执行“数据t有效性”命令，打开“数据有效性” 对话框(如图3),按“允许”右侧的下拉按钮，选中“序列”选项，在“来 源”下面的方框输入：二$I$1:$I$151 ,“确定”退出。同样的操作，将F15单元格数据有效性设置为“ =$J$1:$J$12 ”序列注意：经过这样的设置以后，当我们选中 D15(或F15)单元格时，在单 元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份(或月份)数值, 快速输入需要查询的年、月值。6、选中A2单元格(不一定非得是A2哟)，输入公式：=IF(F13=2,IF(OR(D13/400=INT(

5、D13/400),AND(D13/4=INT(D13/4),D13/100 v>INT(D13/100),29,28),IF(OR(F13=4,F13=6,F13=9,F13=11),30,31)，用于获取查询“月份”所对应的天数(28、29、30、31 )。注意：上述函数的含义是：如果查询“月份”为“2 月” (F13=2)时， 并且“年份”数能被400整除D13/400=INT(D13/400)，或者(OR “年份” 能被4整除，但不能被100整除AND(D13/4=INT(D13/4),D13/100<>INT(D13/100)，则该月为 29天(也就 是我们通常所说的

6、“闰年”)，否则为 28天。如果“月份”不是2月，但 是“4、6、9、11”月，则该月为30天。其他月份天数为31天。7、选中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相似在用拖拉

7、法复制公式时，公式“绝对引用”的单元格(加了 “$”号的， 如“ $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>=

8、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(B11>=$A$2,0,IF(B11>0,B11 + 1,IF(C6=1,1,0) 。用“填充柄”将 C10 单元格中的公式复制到 D10- H10单元格和C11单元格中。至此，

9、整个万年历(其实没有万年，只有从 1900-2050的151年)制作完成。下面，我们一起来将其装饰一下。9、选中相应的单元格，利用工具栏上的相应按钮，设置好字体、字号、 字符颜色等。选中相应的单元格，打开“单元格格式”对话框，在“对齐”标签下， 设置好单元格中文本的对齐方式(通常情况下，垂直对齐可以一次性设置为 “居中”，水平“对齐”根据具体情况设置)。同时选中I列和J列，右击鼠标，选“隐藏”选项，将相应的列隐藏起来，使得界面更加友好。用同样的方法，将第2和第3行也隐藏起来。10、选中B5-H11单元格区域，打开“单元格格式”对话框，进入“边 框”标签，选择好“颜色、样式”，并“预置”好边框范

10、围，然后“确定” 退出，为月历加上边框。11、 执行“工具-选项”命令，打开“选项”对话框(如图4),在“视 图”标签下(通常是默认标签)，清除“零值”和“网格线”复选框中的“V”号，“确定”退出，让“零值”和“网格线”不显示出来。12、将B14- H14和B15- H15单元格分别合并成一个单元格，并在 B14和B15单元格中输入公式：=IF(AND(MONTH(D1)=1,DAY(D1)=1),新的新气象！ 加油呀！ ",IF(AND(MONTH(D1)=3,DAY(D1)=8),"向女同胞们致敬！ ",IF(AND(MONTH(D1)=5,DAY(D1)=1

11、),"劳动最光荣 ",IF(AND(MONTH(D1)=5,DAY(D1)=4),"青年是祖国的栋梁 ",IF(AND(MONTH(D1)=6,DAY(D1)=1),"原天下所有的儿童永远快乐",0),IF(AND(MONTH(D1)=8,DAY(D1)=1),"提高警惕，保卫祖国！,IF(AND(MONTH(D1)=9,DAY(D1)=1O),"老师，您辛苦了！,IF(AND(MONTH(D1)=10,DAY(D1)=1),"祝我们伟大的祖国繁荣富强 ,0)设置好B14和B15单元格的字体、字号、字符颜

12、色注意：上述公式的含义是：如果当前日期逢到相关的节日（如“元旦则在B14或B15单元格显示出相应的祝福语言（如“新的新气象！加，参见图5)。由于IF函数只能嵌套7层，而节日数量超过7个（我们这里给出了 9，因此，我们用两个单元格来显示。13、执行“格式-工作表-命令，打开“工作表背景”对话框（如图6）,选择一张合适的图片旨，按“插入”按钮，将其衬于工作表文字下面工作春背景sunS.jpg所有图片(*. emf;*. wmf ;* jiff；*- jpeg;*, jfif;*. jpe vsurib.jpgsyjJB jpg 文件名QI女件类型（I：:sjiS- jpeuilIO. jpg14、

13、在按住“ Ctrl ”键的同时，单击D13和F13单元格，同时选中两个单元格，开“单元格格式”对话框，切换“保护”标签（如图7）,清除“锁定”前面复选框中的“V”号，“确定”退出。15、执行“工具-保护-保护工作表”命令，打开“保护工作表”对话 框（如图8）,两次输入密码后，确定退出。注意：经过这样的设置后，整个工作表中除了D13和F13单元格中的内容可以改变外，其它单元格中的内容均不能改变，保证了万年历的使用可靠 性。在VB中操纵Excel一.Excel对象模块Applicatio n集合对象 |AutoComect |OLEDBErrors|Debug|CommandBars(Comman

14、dBar)|VBE |Dialogs(Dialog)|WorksheetFunction|RecentFilds(RecentFile)|DefaultWebOptions |Windows(Window)|LanguageSettings |Workbooks(Workbook)|Filesearch |Names(name)|AnswerWizard |ODBCErrors最上层的 Application 是指整个应用程序， 其中最常用到的 Workbooks 代表 活页簿集合，在其后的括号内的Workbook是指一个工作簿。在 VB中要打开 Excel，首先要引用 Microsoft E

15、xcel (或)Object Lobrary。 打开的步骤是：(1)定义两个变量，数据类型指定为 .(2) 激活 Excel 应用程序。(3)打开工作簿 (我们假设在当前路径下有一个工 作簿)。代码如下：Option ExplicitPublic appExcel AsPublic wbExcel AsPrivate Sub Setup_Excel_object()Set appExcel = CreateObject("")= True ' 使对象可见End Sub工作表对象 WorksheetWorkbooks 对象有一个集合对象工作表 Worksheets,

16、，用来放工作表相关的资料Workbooks(workbook)对象集合|HTMLProjcet|RoutingSlip|Areas|WebOptions|VBProject|HTMLProjcet|RoutingSlip|Areas|WebOptions|VBProject|Publishobjects|DocumentProperties|Worksheets|Names|CustomViews|CommandBars|PivotCaches|Windows|Styles|Charts量，用 For-Each 循环方式可以读取集合代码如下：Dim temp AsFor Each temp I

17、n 'wbExcel是上面代码中声明的 WorkbookNext三读取工作表某个选取范围的内容。 要读取工作表某个范围单元格，可先定义一个 Excel 范围对象变量，然后使 用Rows或Columns函数指定某行或某列的范围，范围单元格（Cells）地址 以目前被选取范围为基准。具体方法如下：（ 1 ）设置工作表对象变量操作哪个工作表；（ 2）选取工作表的某行或某列；（ 3）在上面的选取范围内读取某个单元格内容。代码如下：Dim Tempsheet As ' 定义 Excel 工作表Dim TempRange As ' 定义 Excel 工作表范围变量' 第一步

18、：选取工作表 Sheet1Set Tempsheet = （"sheet1"）' 第二步：选取第二行 （ 以这行为第一行）Set TempRange = （2）' 第三步：读取范围内第一行第二列的单元格= （1, 2） 四其他用（".Column方法可以查找目前范围内第一行的第一个空白单元格如何实现VB与EXCE啲无缝连接2003-02-17 吴刚yeskyVB是常用的应用软件开发工具之一，由于 VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用 EXEC啲强大报表功

19、来实现报 表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有 机地结合在一起，是一个值得我们研究的课题。一、VB 读写 EXCEI表：VB本身提自动化功能可以读写 EXCEI表，其方法如下：1、在工程中引用 Microsoft Excel 类型库：从"工程"菜单中选择 "引用"栏；选择 Microsoft Excel Object Library(EXCEL2OO0,然后选择"确定"。表示在工程中要引用EXCEI类型库。2、在通用对象的声明过程中定义 EXCEL寸象：Dim xlApp AsDim xlBook A

20、sDim xlSheet As3、在程序中操作EXCEI表常用命令：Set xIApp = CreateObject("")' 创建 EXCEL寸象=True '设置EXCEL寸象可见(或不可见)Set xISheet = (" 表名 ") ' 设置活动工作表(row, coI) = 值 ' 给单元格( row,coI )赋值' 打印工作表(True) ' 关闭工作簿'结束EXCEL寸象Set xlApp = Nothing ' 释放 xlApp 对象(xIAutoOpen)'运行

21、EXCEL启动宏 (xIAutoClose)' 运行 EXCELS闭宏4、在运用以上VB命令操作EXCEI表时，除非设置EXCELS象不可见， 否则 VB 程序可继续执行其它操作，也能够关闭EXCE，L 同时也可对 EXCEL进行操作。但在EXCEI操作过程中关闭EXCEL寸象时，VB程序无法知道，如 果此时使用EXCEL寸象，则VB程序会产生自动化错误。形成 VB程序无法完 全控制EXCE的状况，使得VB与EXCEL脱节。二、EXCEL的宏功能：EXCEI提供一个Visual Basic 编辑器，打开 Visual Basic 编辑器，其 中有一工程属性窗口，点击右键菜单的 &quo

22、t;插入模块"，则增加一个 "模块 1"， 在此模块中可以运用 Visual Basic 语言编写函数和过程并称之为宏。其中， EXCEL有两个自动宏：一个是启动宏(Sub Auto_Open(),另一个是关闭宏 (Sub Auto_Close()。它们的特性是：当用 EXCELT含有启动宏的工簿时， 就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关 闭宏。但是通过VB的自动化功能来调用EXCELT作表时，启动宏和关闭宏 不会自动运行，而需要在VB中通过命令(xlAutoOpen)和(xlAutoClose) 来 运行启动宏和关闭宏。三、VB与E

23、XCE啲相互勾通：充分利用EXCE啲启动宏和关闭宏，可以实现VB与EXCE啲相互勾通， 其方法如下：在EXCE的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文 件，同时在关闭宏中加入一段删除此标志文件的程序。 VB程序在执行时通过 判断此标志文件存在与否来判断 EXCE是否打开，如果此标志文件存在，表 明EXCE对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在， 表明EXCE对象已被用户关闭，此时如果要使用 EXCE对象运行，必须重新 创建EXCE对象。四、举例：1、在VB中，建立一个FORM在其上放置两个命令按钮，将C ommand1 的Caption属性改为EXCEL Co

24、mma nd的Caption属性改为Enc。然后在其 中输入如下程序：Dim xIApp As ' 定义 EXCE类Dim xlBook As ' 定义工件簿类Dim xIsheet As ' 定义工作表类Private Sub Command1_Click()'打开 EXCE过程If Dir("D:temp") = "" Then '判断 EXCEI是否打开Set xIApp = CreateObject("")' 创建 EXCEL应用类=True ' 设置 EXCEI可MSe

25、t xlsheet = (1)' 打开 EXCEL工作表' 激活工作表(1, 1) = "abc" ' 给单元格 1 行驶列赋值(xIAutoOpen) 运行EXCEI中的启动宏ElseMsgBox （"EXCEI 已打开 "）End IfEnd SubPrivate Sub Command2_Click()If Dir("D:temp") <> "" Then '由 VB关闭 EXCEL(xIAutoClose)' 执行 EXCE关闭宏(True)' 关

26、闭 EXCELT作簿' 关闭 EXCELEnd IfSet xlApp = Nothing '释放 EXCEl对象EndEnd Sub2、在D盘根目录上建立一个名为 Temp的子目录，在Temp目录下建立 一个名为""的EXCEI文件。3、在"" 中打开 Visual Basic 编辑器，在工程窗口中点鼠标键选择插入 模块，在模块中输入入下程序存盘：Sub auto_open()Open "d:temp" For Output As #1 ' 写标志文件Close #1End SubSub auto_close

27、()Kill "d:temp" ' 删除标志文件End Sub4、运行VB程序，点击EXCELS钮可以打开EXCE系统，打开EXCE系 统后，VB程序和EXCE分别属两个不同的应用系统，均可同时进行操作，由 于系统加了判断，因此在 VB程序中重复点击Excels钮时会提示EXCEL已 打开。如果在EXCEL中关闭EXCEL后再点EXCE按钮，则会重新打开EXCEL 而无论EXCEL丁开与否，通过VB程序均可关闭EXCEL这样就实现了 VB与 EXCE啲无缝连接。Excel制作奖金计算表2006年08月16日03:52:06陈秀峰源码下载某公司规定：一个月奖金基数为3

28、00元，病假1天扣15元，事假一天扣 30元，旷工一天扣60元，扣完为止。使用这个奖金计算表时，只要将员工 的出勤情况记录在表中，该员工的奖金将自动计算出来，兼有考勤和计算奖 金两种功能。自动统计表做好以后还可以保存成模板，以便以后使用。本文所涉及到的Excel函数有：1、COUNTIF(Range,Criteria)2、MONTH(serial_number)3、TODAY()注意：图中符号的含义是：B表示病假，S表示事假，G表示旷工，Q表 示出勤，J表示法定休息日1、启动Excel2003，按照图1所示的样式，制作一张二维表格，并填入 相关文本。2、将A1至BM1单元格合并成一个单元格后，输入表格标题(如“晓风 公司考勤及奖金表”)，并设置好字体、字号等。3、将C2和D2单元格合并后，输入公式：二MONTH(TODAY()月"，用于 显示出当前的月份。注意：在上述单元格中