EXCEL工作表在种子净度分析中的应用,本文是工作类论文范文资料与净度和EXCEL工作表和种子相关论文范文资料.
工作论文参考文献：
摘 要：种子净度分析涉及大量的数据处理工作,而EXCEL工作表有强大的数据处理功能,通过EXCELVBA编程可实现对数据的自动化处理,具有快速、准确、直观的优点,可应用于种子检验的教学、科研和种子管理.
关键词：种子净度分析；数据处理；EXCELVBA编程
种子净度分析是种子检验的重要环节,分析过程中涉及多次样品称重、容许误差判断、结果校正与修约以及结果报告等方面,数据处理量大.如果采用手工处理,会占用大量时间,而且易错,特别是在样品数量较多时.而EXCEL工作表在数据分析处理方面有独到的优势,EXCEL宏是一种可以完成重复工作的Sub程序.笔者利用EXCEL宏,通过EXCELVBA编程来对检验数据进行处理,具有快速、准确、直观的优点,为种子检验工作带来极大的便利.
1 电子表格设计
根据种子净度分析特点,设计电子表格,如图1所示.2 VBA程序设计
打开EXCEL2007工作表,先点击“office”按钮,再点击“excel选项”按钮,在左边“常用命令”下拉列表中选择“开发工具选项卡”,选择“宏安全性”将其添加到快速访问工具栏中.回到EXCEL2007工作表界面,点击“开发工具”菜单,会发现多了个“宏安全性” 按钮,点开,点击“宏设置”, 点击“启用所有宏”,确定后完成启用宏设置.
点击“Visual basic” 按钮,打开程序编辑窗口,在工程资源管理器中双击对象“Sheet1”,在右边编辑区录入以下代码：
Sub 净度分析（ ）
10 If Cells(3, 6) 等于 0 Then GoTo 50
20 Cells(4, 6) 等于 Int(Cells(3, 6) / Cells(3, 5) * 10000 + 0.5) / 100
30 Cells(4, 7) 等于 Int(Cells(3, 7) / Cells(3, 5) * 10000 + 0.5) / 100
40 Cells(4, 8) 等于 Int(Cells(3, 8) / Cells(3, 5) * 10000 + 0.5) / 100
50 Cells(6, 6) 等于 Cells(6, 3) + Cells(6, 4) + Cells(6, 5)
60 Cells(8, 6) 等于 Cells(8, 3) + Cells(8, 4) + Cells(8, 5)
70 Cells(6, 7) 等于 Int(Abs(Cells(6, 6) - Cells(6, 2)) / Cells(6, 6) * 10000 + 0.5) / 100
80 Cells(8, 7) 等于 Int(Abs(Cells(8, 6) - Cells(8, 2)) / Cells(8, 6) * 10000 + 0.5) / 100
90 If Cells(6, 7) <等于 5 And Cells(8, 7) <等于 5 Then Cells(6, 8) 等于 "正确": Cells(8, 8) 等于 "正确" Else: Cells(6, 8) 等于 "错误": Cells(8, 8) 等于 "错误"
95 If Cells(6, 8) 等于 "错误" Or Cells(8, 8) 等于 "错误" Then MsgBox "试验超差,请重新试验": GoTo 300
100 If Cells(6, 8) 等于 "正确" And Cells(8, 8) 等于 "正确" Then Cells(7, 3) 等于 Int(Cells(6, 3) / Cells(6, 6) * 10000 + 0.5) / 100
Cells(7, 4) 等于 Int(Cells(6, 4) / Cells(6, 6) * 10000 + 0.5) / 100
Cells(7, 5) 等于 Int(Cells(6, 5) / Cells(6, 6) * 10000 + 0.5) / 100
Cells(9, 3) 等于 Int(Cells(8, 3) / Cells(8, 6) * 10000 + 0.5) / 100
Cells(9, 4) 等于 Int(Cells(8, 4) / Cells(8, 6) * 10000 + 0.5) / 100
Cells(9, 5) 等于 Int(Cells(8, 5) / Cells(8, 6) * 10000 + 0.5) / 100
Cells(10, 3) 等于 Int((Cells(7, 3) + Cells(9, 3)) / 2 * 100 + 0.5) / 100
Cells(10, 4) 等于 Int((Cells(7, 4) + Cells(9, 4)) / 2 * 100 + 0.5) / 100
Cells(10, 5) 等于 Int((Cells(7, 5) + Cells(9, 5)) / 2 * 100 + 0.5) / 100
110 Cells(11, 3) 等于 Abs(Cells(7, 3) - Cells(9, 3))
120 Cells(11, 4) 等于 Abs(Cells(7, 4) - Cells(9, 4))
130 Cells(11, 5) 等于 Abs(Cells(7, 5) - Cells(9, 5))
140 a 等于 InputBox("请查表输入净种子容许差距:")
b 等于 InputBox("请查表输入其他植物种子容许差距:")
c 等于 InputBox("请查表输入杂质容许差距:")
Cells(12, 3) 等于 a: Cells(12, 4) 等于 b: Cells(12, 5) 等于 c
150 If Cells(12, 3) >等于 Cells(11, 3) Then Cells(13, 3) 等于 "正确" Else Cells(13, 3) 等于 "错误"
If Cells(12, 4) >等于 Cells(11, 4) Then Cells(13, 4) 等于 "正确" Else Cells(13, 4) 等于 "错误"
If Cells(12, 5) >等于 Cells(11, 5) Then Cells(13, 5) 等于 "正确" Else Cells(13, 5) 等于 "错误"
160 If Cells(13, 3) 等于 "错误" Or Cells(13, 4) 等于 "错误" Or Cells(13, 5) 等于 "错误" Then MsgBox "试验超差,请重新试验": GoTo 300
165 Cells(15, 2) 等于 (Cells(7, 3) + Cells(9, 3)) / 2
Cells(16, 2) 等于 (Cells(7, 4) + Cells(9, 4))/2
Cells(17, 2) 等于 (Cells(7, 5) + Cells(9, 5))/2
Cells(18, 2) 等于 Cells(15, 2) + Cells(16, 2) + Cells(17, 2)
170 If Cells(13, 3) 等于 "正确" And Cells(13, 4) 等于 "正确" And Cells(13, 5) 等于 "正确" And Cells(3, 6) 等于 0 Then GoTo 175 Else GoTo 190
175 Cells(15, 4) 等于 Int(Cells(15, 2) * 10 + 0.5) / 10
Cells(16, 4) 等于 Int(Cells(16, 2) * 10 + 0.5) / 10
Cells(17, 4) 等于 Int(Cells(17, 2) * 10 + 0.5) / 10
Cells(18, 4) 等于 Cells(15, 4) + Cells(16, 4) + Cells(17, 4): GoTo 200
190 Cells(15, 4) 等于 Int(Cells(15, 2) * (Cells(3, 5) - Cells(3, 6)) / Cells(3, 5) * 10 + 0.5) / 10
Cells(16, 4) 等于 Int((Cells(16, 2) * (Cells(3, 5) - Cells(3, 6)) / Cells(3, 5) + Cells(4, 7)) * 10 + 0.5) / 10
Cells(17, 4) 等于 Int((Cells(17, 2) * (Cells(3, 5) - Cells(3, 6)) / Cells(3, 5) + Cells(4, 8)) * 10 + 0.5) / 10
195 Cells(18, 4) 等于 Cells(15, 4) + Cells(16, 4) + Cells(17, 4)
200 Cells(15, 8) 等于 Cells(15, 4) + (100 - Cells(18, 4))
Cells(16, 8) 等于 Cells(16, 4)
Cells(17, 8) 等于 Cells(17, 4)
Cells(18, 8) 等于 Cells(15, 8) + Cells(16, 8) + Cells(17, 8)
210 If Cells(15, 8) 等于 0 Then Cells(15, 8) 等于 "-0.0-"
If Cells(15, 8) < 0.05 Then Cells(15, 8) 等于 "微量"
If Cells(16, 8) 等于 0 Then Cells(16, 8) 等于 "-0.0-"
If Cells(16, 8) < 0.05 Then Cells(16, 8) 等于 "微量"
If Cells(17, 8) 等于 0 Then Cells(17, 8) 等于 "-0.0-"
If Cells(17, 8) < 0.05 Then Cells(17, 8) 等于 "微量
300 End Sub
录入完成后,点击“另存为”按钮,将文件保存为启用宏的Excel工作簿.
3 程序运行与解析
将试验数据填入净度分析结果报告各对应的单元格内,点击“Visual basic” 按钮,打开程序编辑窗口,在工程资源管理器中双击对象“Sheet1”,在窗口右边代码编辑窗口便出现刚才录入的代码,在代码中插入光标,在工具栏点击“运行”按钮,程序开始运行.首先判断是否有重型混杂物,如果有,则计算送验样品中重型混杂物、重型无生命杂质、重型其他作物种子的百分率,保留2位有效数字；如果没有,则计算两个半式样的分析重、重量增失率,并判断是否超差,如果超差,则弹出提示窗口：“试验超差,请重新试验”,程序结束运行；如没有超差,则计算两个半式样的净种子、其他作物种子及杂质百分率,并保留2位有效数字,接着计算两个半式样之间各成分百分率差值,程序运行到140语句,会弹出输入框,要求输入各成分容许误差,查表输入容许误差后,在第150语句,判断3种成分百分率差值是否超差,如果没有,判断为“正确”,程序继续运行；如果超差,则判断为“错误”,并弹出提示窗口：“试验超差,请重新试验”,点击“确定”按钮后,程序结束运行.165语句为在不超差情况下计算3种成分的平均重量百分率,170语句判断是否有重型混杂物.如果没有,在175语句对数据修约后再转入200语句做出结果报告；如果有,则在190语句对3种成分进行结果校正,并保留1位有效数字,200语句是将3种成分之和修约为100%,210语句为结果报告,到此程序运行结束,最后结果如图1所示.如需分析下一份样品,只要按左键选中表格中的数字区域,再按右键点击“清除内容”,然后录入新的数据进行分析.分析完成后,可很方便地对报告进行保存、打印和邮件发送.
经多次试验,使用该方法处理种子净度试验数据,均能快速、准确地显示结果,与使用Excel函数相比,操作更简单、表现更直观,而且ExcelVBA语言简单易学、应用广泛.通过研究笔者发现,不仅种子净度分析可以使用ExcelVBA程序进行数据自动化处理,也适用于种子发芽试验、种子水分测定及种子重量测定,可大大减轻检验人员工作量,提升种子检验工作自动化和信息化水平.
（收稿日期：2017-06-12）
归纳上文，上述文章是一篇关于对写作净度和EXCEL工作表和种子论文范文与课题研究的大学硕士、工作本科毕业论文工作论文开题报告范文和相关文献综述及职称论文参考文献资料有帮助.
中文版护士工作环境量表的信度和效度
邓芳丽 张健菅 田勝也
摘要目的检验“护士工作环境量表”中文版的信度和效度 方法将日语版的“护士工作环境量表”编译成中文,邀请570名护士填写量表,使用.
延边州实施种子产业化工程开创种子工作新局面
金万赫,隋东晖,张焕斌（延边州种子管理站,吉林延边 133001）摘要组建一个育、繁、推一体化,产、供、销一条龙的种子集团,是种子产业化发展的必然趋势 组建集团应在自愿平……、优势互补、互惠互利、风.
新形势下关于强化基层种子管理工作的建议
王朝春（云南省红河州屏边县种子管理站, 云南红河州661201）摘 要 种子是农业生产过程中不可或缺的核心生产资料之一,种子的品种质量决定了农作物生产的收成和经济效益,是确保农产品实现高效、专用、.
如何做好种子市场管理工作
张全伟 郭 馨（南阳市淅川县农业局,河南淅川 474450）中图分类号 S9 文献标识码 A 文章编号 10031650(2016)08003001农作物种子是提升农业生产力的重要科技力量,是国家.