如何用EXCEL表格制作日历Word文档格式.docx

1、=$I$1:$I$151，“确定”退出。同样的操作，将F15单元格数据有效性设置为“=$J$1:$J$12”序列。经过这样的设置以后，当我们选中D15（或F15）单元格时，在单元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份（或月份）数值，快速输入需要查询的年、月值。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（OR（F13=4,F13=6,F13=9,F13=11）,30,31），用于获取查询“月份”所对应的

2、天数（28、29、30、31）。上述函数的含义是：如果查询“月份”为“2月”（F13=2）时，并且“年份”数能被400整除D13/400=INT（D13/400），或者（OR）“年份”能被4整除，但不能被100整除AND（D13/4=INT（D13/4）,D13/100=A2,0,H9+1）和=IF（H10=A2,0,IF（H100,H10+1,0）。选中C6单元格，输入公式：=IF（B60,B6+1,IF（C2=1,1,0）。用“填充柄”将C6单元格中的公式复制到D6H6单元格中。选中C7单元格，输入公式：=B7+1。用“填充柄”将C7单元格中的公式复制到C8、C9单元格中。同时选中C7C9

3、单元格，用“填充柄”将其中的公式复制到D7H9单元格中。选中C10单元格，输入公式：=IF（B11=$A$2,0,IF（B110,B11+1,IF（C6=1,1,0）。用“填充柄”将C10单元格中的公式复制到D10H10单元格和C11单元格中。至此，整个万年历（其实没有万年，只有从19002050的151年）制作完成。下面，我们一起来将其装饰一下。9、选中相应的单元格，利用工具栏上的相应按钮，设置好字体、字号、字符颜色等。选中相应的单元格，打开“单元格格式”对话框，在“对齐”标签下，设置好单元格中文本的对齐方式（通常情况下，垂直对齐可以一次性设置为“居中”，水平“对齐”根据具体情况设置）。同时

4、选中I列和J列，右击鼠标，选“隐藏”选项，将相应的列隐藏起来，使得界面更加友好。用同样的方法，将第2和第3行也隐藏起来。10、选中B5H11单元格区域，打开“单元格格式”对话框，进入“边框”标签，选择好“颜色、样式”，并“预置”好边框范围，然后“确定”退出，为月历加上边框。11、执行“工具选项”命令，打开“选项”对话框（如图4），在“视图”标签下（通常是默认标签），清除“零值”和“网格线”复选框中的“”号，“确定”退出，让“零值”和“网格线”不显示出来。12、将B14H14和B15H15单元格分别合并成一个单元格，并在B14和B15单元格中输入公式：=IF（AND（MONTH（D1）=1,DA

5、Y（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）和=IF（AND（MONTH（D1）=7,DAY（D1）=1）,党的恩情永不忘,IF（AND（MONTH（D1）=8,DAY（D1）=1）,提高警惕，保卫祖国！,IF（AND（MONTH（D1）=9,DAY（D1）=10）,老师，您辛苦了！,

6、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、单元格格式”对话框，切换“保护”标签（如图7），清除“锁定”前面复选框中的“”号，“确定”退出。15、执行“工具保护保护工作表”命令，打开“保护工作表”对话框（如图8），两次输入密码后，确定退出。经过这样的设置后，整个工作表中除了D13和F13单元格中的内容可以改变外，其它单元格中的内容均不能改变，保证了万年历的使用可靠性。在VB中操纵Excel 一Excel对象模块 Application 对象 | 集合 - |-Assistant |-Addins（Addin） |-AutoComect |-OLEDBErrors |-Debug |-CommandBars（CommandBar） |-V

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

9、 Excel 9.0（或8.0）Object Lobrary。打开的步骤是：（1）定义两个变量，数据类型指定为Excel.ApplicationExcel.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（excel.

10、application） Set wbExcel = appExcel.Workbooks.Open（App.Path & students.xls appExcel.Visible = True 使对象可见 End Sub 二工作表对象Worksheet Workbooks对象有一个集合对象工作表Worksheets,，用来放工作表相关的资料。 Workbooks（workbook） - |-HTMLProjcet |-Publishobjects |-RoutingSlip |-DocumentProperties |-Areas |-Worksheets |-WebOptions |-N

11、ames |-VBProject |-CustomViews |-CommandBars |-PivotCaches |-Windows |-Styles |-Charts 调用方法是声明一个工作表变量，用For-Each循环方式可以读取集合对象Workbooks里的所有工作表名。 Dim temp As Excel.Worksheet For Each temp In wbExcel.Worksheets wbExcel是上面代码中声明的Workbook FORM1.Combo1.AddItem temp.Name Next 三读取工作表某个选取范围的内容。要读取工作表某个范围单元格，可先定

12、义一个Excel范围对象变量，然后使用Rows或Columns函数指定某行或某列的范围，范围单元格（Cells）地址以目前被选取范围为基准。具体方法如下：（1）设置工作表对象变量操作哪个工作表；（2）选取工作表的某行或某列；（3）在上面的选取范围内读取某个单元格内容。 Dim Tempsheet As Excel.Worksheet 定义Excel工作表 Dim TempRange As Excel.Range 定义Excel工作表范围变量 第一步：选取工作表Sheet1 Set Tempsheet = appExcel.Worksheets（sheet1第二步：选取第二行（以这行为第一行）

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

14、的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。一、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：1、在工程中引用Microsoft Excel类型库：从工程菜单中选择引用栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择确定。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet 3、

15、在程序中操作EXCEL表常用命令：Set xlApp = CreateObject（Excel.Application） 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open（文件名打开已经存在的EXCEL工件簿文件xlApp.Visible = True 设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets（表名设置活动工作表xlSheet.Cells（row, col） =值 给单元格（row,col）赋值xlSheet.PrintOut 打印工作表xlBook.Close （True） 关闭工作簿xlApp.Qu

16、it 结束EXCEL对象Set xlApp = Nothing 释放xlApp对象xlBook.RunAutoMacros （xlAutoOpen） 运行EXCEL启动宏xlBook.RunAutoMacros （xlAutoClose） 运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL

17、脱节。二、 EXCEL的宏功能：EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的插入模块，则增加一个模块1，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open（），另一个是关闭宏（Sub Auto_Close（）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命

18、令xlBook.RunAutoMacros （xlAutoOpen）和xlBook.RunAutoMacros （xlAutoClose） 来运行启动宏和关闭宏。三、 VB与EXCEL的相互勾通：充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使

19、用EXCEL对象运行，必须重新创建EXCEL对象。四、举例：1、在VB中，建立一个FORM，在其上放置两个命令按钮，将ommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：Dim xlApp As Excel.Application 定义EXCEL类 Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet 定义工作表类 Private Sub Command1_Click（） 打开EXCEL过程If Dir（D:tempexcel.bz） = Then

20、 判断EXCEL是否打开Set xlApp = CreateObject（创建EXCEL应用类xlApp.Visible = True 设置EXCEL可见Set xlBook = xlApp.Workbooks.Open（tempbb.xls打开EXCEL工作簿Set xlsheet = xlBook.Worksheets（1） 打开EXCEL工作表xlsheet.Activate 激活工作表xlsheet.Cells（1, 1） = abc给单元格1行驶列赋值xlBook.RunAutoMacros （xlAutoOpen） 运行EXCEL中的启动宏ElseMsgBox （EXCEL已打开End IfEnd SubPrivate Sub Command2_Click（） 0,300-COUNTIF（C4:）*