资料系统教材篇.docVIP

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
简易资料系统的应用和制作 寇昀亮 (中铁隧道股份有限公司隧道二公司) 工程实际中我们需要填写大量的技术资料,,Excel做,大多数发挥的是Word功能加上几个常用的函数。本系统通过Excel中自带的Vba,实现了。为以介绍其作法,供大家参考。 Excel及其自带的Vba,Excel表格制作的基本方法。在此不做描述。 图 一 图 二 2、建立数据页,数据建立在单独页面。如图二。这样就有了源数据,这是个综合的数据汇总页面。方便了数据的输入和归纳。也是一个综合台帐,需要的数据全部可以从该页面来调用。在该页的数据可以使用自己的在Excel应用中所有对数据的处理方法来方便数据的操作。 3、使用查询函数来制作数据的初次调用。首先给介绍一下INDEX 函数INDEX 函数INDEX 函数有两种语法形式:数组和引用。数组形式通常返回数值或数值数组,引用形式通常返回引用。当函数 INDEX 的第一个参数为数组常数时,使用数组形式。语法 1语法 1 数组形式 INDEX(array,row_num,column_num) Array??? 为单元格区域或数组常量。 如果数组只包含一行或一列,则相对应的参数 row_num 或 column_num 为可选。 如果数组有多行和多列,但只使用 row_num 或 column_num,函数 INDEX 返回数组中的整行或整列,且返回值也为数组。 Row_num??? 数组中某行的行序号,函数从该行返回数值。如果省略 row_num,则必须有 column_num。 Column_num??? 数组中某列的列序号,函数从该列返回数值。如果省略 column_num,则必须有 row_num。 说明 如果同时使用 row_num 和 column_num,函数 INDEX 返回 row_num 和 column_num 交叉处的单元格的数值。 如果将 row_num 或 column_num 设置为 0,函数 INDEX 则分别返回整个列或行的数组数值。若要使用以数组形式返回的值,请将 INDEX 函数以数组公式形式输入,对于行以水平单元格区域的形式输入,对于列以垂直单元格区域的形式输入。若要输入数组公式,请按 Ctrl+Shift+Enter。 Row_num 和 column_num 必须指向 array 中的某一单元格;否则,函数 INDEX 返回错误值 #REF!。 图 三 4、添加工具及赋值。 4.1这个系统之所以方便是因为用了一些辅助工具。使用快捷方法在标题栏的空白处点击右键跳出菜单。选择窗体或者在控件工具栏里面同样可以找出相应的控件工具。如图四将其画出。 图 四 图 四 4.2浏览微调赋值: 单击按钮右键直接设置空间格式既可。如图五 4.3打印按钮赋值: 此按钮为流水打印按钮。赋值浏览微调(包括了其功能)。 赋值 Sub Macro1() Macro1 Macro ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub 建立了Macro1()程序,并加载Macro1既可。 4.4打印按钮赋值同上。加载Macro1既可。 4.5清空按钮赋值: 清空按钮是为了满足临时监理文件的需要而设置的工具。 Sub Macro2() Range(J5:L5).Select Selection.ClearContents Range(L6).Select Selection.ClearContents Range(G9:K9).Select Selection.ClearContents Range(G10:K18).Select Selection.ClearContents Range(j5).Select End Sub 建立了Macro2()程序,并加载Macro2既可。 4.5还原按钮赋值: Sub Macro3() Range(J5:L5).Select ActiveCell.FormulaR1C1 = =INDEX(数据!R[-2]C[-9]:R136C29,R[-1]C[3],2) Range(L6).Select ActiveCell.FormulaR1C1 = 程忠彦 Range(G9:K9).Select ActiveCell.Formula

文档评论(0)

82393aa + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档