- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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
您可能关注的文档
最近下载
- 八项规定回头看自查报告.pdf VIP
- 2012北京 第一册市政道路、桥梁工程预算定额.pdf VIP
- 华为LTC流程IPD流程ITR流程三大核心流程变革一篇文章就全明白啦V2.0!.pdf VIP
- 普洱哈尼族彝族自治县2025年数学五年级第二学期期末学业质量监测试题含答案.doc VIP
- D-ZD2010发电厂汽水管道支吊架设计手册制造图册-中国电力规划.pdf VIP
- 产科急救应急预案.docx VIP
- 关于社区卫生服务中心五年发展规划十五五发展规划2025.docx VIP
- NBT 25085-2018 核电厂常规岛焊接技术规程.pdf VIP
- 烟草代办合同范本6篇.docx VIP
- 危险废物污染防治责任制度.docx VIP
文档评论(0)