根据Excel,VBA在铝土矿勘查中快速核算单工程化学样均匀档次厚度的办法docx

  本文格局为Word版，下载可任意修正根据Excel,VBA在铝土矿勘查中快速核算单工程化学样均匀档次厚度的办法陈述》、《河南省曹窑以西煤下铝五门沟矿段详查陈述》、《河南省曹窑以西煤下铝柴洼矿段详查陈述》、《河南省曹窑以西煤下铝关底沃-扣门山矿段详查陈述》和《河南省曹窑以西煤下铝青阳沟矿段详查陈述》等五个陈述，累计施工钻孔451个，进尺131190.51m，根本剖析样3551另搜集以往作业中及邻区已施工的钻孔75个，搜集596个根本化学剖析样材料。本次作业和以往作业的钻孔算计526个，根本化学样4147面临如此巨大的数据量，曩昔地勘单位预算资源量/储量时，一般都会选用核算器来核算，核算周期长，核算进程冗杂、繁琐，功率极低、简略犯错，倘若中心成果犯错或许需求修正，后边成果推倒重来，往往构成一个陈述需求数月、乃至一两年才干完结。陈述完结人员作业强度大、任务重;跟着核算机开端逐步遍及，地勘单位人员开端使用核算机软件如WPS、Excel等处理数据，但水平不高，一般都会选用简略的公式和函数核算，功率提高不多，核算进程仍旧存在繁琐、任务重、易犯错等缺陷。因而，编写一种当时满意铝土矿资源储量陈述预算需求，而且完成自动化，使核算进程作业高效、确凿成为燃眉之急。地质特征本文格局为Word版，下载可任意修正1.1矿床地质本区铝土矿含矿岩系为石炭系上统本溪组，铝土矿矿体形状多呈层状、似层状或透镜状。矿床类型为堆积型，整体为特大型铝土矿。本区无矿层露头，均为隐伏矿体。本区铝土矿共生矿种有粘土矿（分上基层，单个陈述还要求核算夹层粘土矿）、菱铁矿、赤铁矿、铁矾土等。还有镓、氧化锂、轻稀土等伴生元素或有利组分。化学剖析样品中铝土矿根本剖析项目为Al2O3、SiO2、Fe2O3、S、TiO2、烧失量（LOSS）;共生矿种根本剖析项目与铝土矿根本共同，粘土矿另要求剖析耐火度（SK）。铝土矿及其共生矿种之间的区别除了以矿石的色彩、结构、结构特征区别外，还主要以各个剖析项目档次的多少区别，如铝土矿鸿沟档次要求Al2O340%，A/S（铝硅比）1.8;级硬质粘土矿档次要求Al2O340%，Fe2O33.5%。该区铝土矿体均为层状或似层状，倾角陡峭（5～16探矿工程按勘探线布臵，工程散布比较均匀，为便于出产使用，资源量预算选用地质块段法，在水平投影图上进行。1.2单工程圈定准则根据各单工程中样品剖析成果，凡单样档次等于或大于鸿沟档次要求者均圈入矿体内;夹石样品厚度小于相应夹石除掉厚度时并入相应矿体中。程序设计本文格局为Word版，下载可任意修正2.1程序设计根底自己结合作业实在的状况，通过长时刻探索，使用微软公司的ExcelVBA，编写了核算铝土矿单工程厚度、均匀档次的程序，以及核算块段均匀厚度、均匀档次的程序，用于该作业区的资源量预算作业。MicrosoftExcel是美国微软公司编写的一款电子表格软件。界面直观，有非常杰出的核算功用和图表东西，功用强大，遍及率高;VBA是内嵌于office软件中的一个开发模块，这个模块供给程序自主开发，言语根底和VisualBasic相像。在Excel的“东西--宏--修正器〞能够敞开。2.2原始数据格局要求本程序对原始数据格局要求不高，只需求对每个钻孔的原始化验成果按从上到下的顺序排列，不需求独自提取含矿样品。在Excel中表中A式收拾。2.3程序設计原理及流程图为核算加权均匀值（均匀档次），为此特别编写了一个加权均匀自定义函数WeightedAverage，详细完成原理和代码见自己的相关参阅论文。关于大批量工程的核算单工程均匀档次、均匀厚度的程序流程图如图1：例如为了核算工程ZK4016的铝土矿厚度和均匀档次，依本文格局为Word版，下载可任意修正ZK4016的每个样品作比较，因为ZK4016品为炭质页岩，非铝土矿，疏忽后比较下一个样品;2号样品为铝土矿，记载ZK4016的铝土矿excel单元格地址为$L$657，然后顺次比较3号样品，非铝土矿，疏忽;4号样品是铝土矿，号铝土矿样品的夹层线号样品的线m（最大夹石除掉厚度），故夹石不能兼并到铝土矿中，此刻记载ZK4016的铝土矿样品地址为$L$657，$L$659，然后顺次比较11号样品，记载ZK4016的铝土矿地址为$L$657，$L$659，$L$661：$L$664。因为$L$657的线m），故应疏忽，终究ZK4016的铝土矿样品地址为$L$659，$L$661：$L$664，然后顺次计ZK4016的样品编号、各种厚度、单工程均匀档次。真厚度的公式为“=SUM（$G$659，$G$661：$G$664）〞，A12O3的单工程均匀档次公式为“=ROUND（weightedaverage（$M$659，$M$661：$M$664，-5），2）〞，其间参数“-5〞为真厚度地点列（G列）相关于A12O3档次地点列（M列）的偏移列数值。ROUND为Excel中的四舍五入函数。2.4程序详细完成进程为了在excel表格中记载铝土矿采样位臵、样品编号、地址编写了一个结构体：PublicTypeOreLayerLayerFirstSampleRow‘记载每铝土矿层的第一个样品单元本文格局为Word版，下载可任意修正格地点行LayerLastSampleRow‘记载每铝土矿层的终究一个样品单元格地点行LayerSampleIDs$‘记载单工程铝土矿样品编号（包括一层或多层）LayerTopPosition#‘记载每铝土矿层的第一个样品的采样LayerBottomPosition#‘记载每铝土矿层的终究一个样品的采样位臵LayerThickness#‘记载每铝土矿层的视厚度LayerSampleAddress$‘记载每个工程中铝土矿样品的单元格地址LayerTrueThickness#‘記录每铝土矿层的真厚度EndType为便当直观显现核算每个钻孔的铝土矿样长、档次等信excel的根本样品剖析成果表的AF列顺次核算出钻孔的样号、视厚度、铅直厚度、Al2O3（%）档次、SiO2（%）档次、Fe2O3（%）档次、S（%）档次、LOSS（%）等，并按单工程兼并单元格。终究核算成果如表2（因为页面太窄，为了便当显现，C：V列荫蔽）。因为源代码比较长，限于篇幅无法显现，有爱好的读者能够与自己联络。本文格局为Word版，下载可任意修正定论一切代码在Excel2023环境下悉数编译通过，而且在本矿区先后提交的五个陈述通过实践运用和查验，数据核算快速、确凿、功率高，其间的关底沃--扣门山矿区的112个钻孔的运算时刻不到1秒，远超于传统的核算方法。经查验，本程序在核算超很多数据时快速、确凿，表达了高功率、高确凿度、灵活性强。得到了甲方单位和陈述评定单位人员的认可和好评，值得进一步推广应用。在贵金属、 有色金属、非金属核算资源储量中也有使用和学习的价值。