如何用EXCEL表格制作日历 - 图文

由天下分享时间：2024/12/26 15:57:33 加入收藏我要投稿点赞

至此，整个万年历（其实没有万年，只有从1900—2050的151年）制作完成。

下面，我们一起来将其装饰一下。

9、选中相应的单元格，利用工具栏上的相应按钮，设置好字体、字号、字符颜色等。

选中相应的单元格，打开“单元格格式”对话框，在“对齐”标签下，设置好单元格中文本的对齐方式（通常情况下，垂直对齐可以一次性设置为“居中”，水平“对齐”根据具体情况设置）。

同时选中I列和J列，右击鼠标，选“隐藏”选项，将相应的列隐藏起来，使得界面更加友好。用同样的方法，将第2和第3行也隐藏起来。

10、选中B5—H11单元格区域，打开“单元格格式”对话框，进入“边框”标签，选择好“颜色、样式”，并“预置”好边框范围，然后“确定”退出，为月历加上边框。

11、执行“工具→选项”命令，打开“选项”对话框（如图4），在“视图”标签下（通常是默认标签），清除“零值”和“网格线”复选框中的“∨”号，“确定”退出，让“零值”和“网格线”不显示出来。

12、将B14—H14和B15—H15单元格分别合并成一个单元格，并在B14和B15单元格中输入公式：=IF(AND(MONTH(D1)=1,DAY(D1)=1),\新的新气象！加油呀！\向女同胞们致敬！\劳动最光荣\青年是祖国的栋梁

\原天下所有的儿童永远快乐\和=IF(AND(MONTH(D1)=7,DAY(D1)=1),\党的恩情永不忘\提高警惕，保卫祖国！\老师，您辛苦了！

\祝我们伟大的祖国繁荣富强\。

设置好B14和B15单元格的字体、字号、字符颜色。

注意：上述公式的含义是：如果当前日期逢到相关的节日（如“元旦”等），则在B14或B15单元格显示出相应的祝福语言（如“新的新气象！加油呀！”，参见图5）。

由于IF函数只能嵌套7层，而节日数量超过7个（我们这里给出了9个），因此，我们用两个单元格来显示。 13、执行“格式→工作表→背景”命令，打开“工作表背景”对话框（如图6），选择一张合适的图片后，按“插入”按钮，将其衬于工作表文字下面。

14、在按住“Ctrl”键的同时，单击D13和F13单元格，同时选中两个单元格，开“单元格格式”对话框，切换“保护”标签（如图7），清除“锁定”前面复选框中的“∨”号，“确定”退

出。

15、执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框（如图8），两次输入密码后，确定退出。

注意：经过这样的设置后，整个工作表中除了D13和F13单元格中的内容可以改变外，其它单元格中的内容均不能改变，保证了万年历的使用可靠性。

在VB中操纵Excel 一．Excel对象模块

Application

对象 | 集合 ----------------------------------

|-----Assistant |----Addins(Addin) |-----AutoComect |-----OLEDBErrors

|-----Debug |-----CommandBars(CommandBar) |-----VBE |-----Dialogs(Dialog)

最上层的Application是指整个应用程序，其中最常用到的Workbooks代表活页簿集合，在其后的括号内的Workbook是指一个工作簿。

在VB中要打开Excel，首先要引用Microsoft Excel 9.0(或8.0）Object Lobrary。打开的步骤是：（1）定义两个变量，数据类型指定为Excel.Application．Excel.Workbook. (2)激活Excel应用程序。（3）打开工作簿(我们假设在当前路径下有一个工作簿students.xls）。代码如下： Option Explicit

Public appExcel As Excel.Application Public wbExcel As Excel.Workbook Private Sub Setup_Excel_object()

Set appExcel = CreateObject(\

Set wbExcel = appExcel.Workbooks.Open(App.Path & \ appExcel.Visible = True '使对象可见 End Sub

二．工作表对象Worksheet

Workbooks对象有一个集合对象－－工作表Worksheets,，用来放工作表相关的资料。

Workbooks(workbook)

对象 | 集合－－－－－－－－－－－－------------

|----VBProject |----CustomViews |----CommandBars