美章網 資料文庫 錄井砂地比統計VBA批量處理運用范文

錄井砂地比統計VBA批量處理運用范文

本站小編為你精心準備了錄井砂地比統計VBA批量處理運用參考范文,愿這些范文能點燃您思維的火花,激發您的寫作靈感。歡迎深入閱讀并收藏。

錄井砂地比統計VBA批量處理運用

1引言

在儲層參數(如錄井砂地比)統計中地質資料量大、分散,常規統計操作重復枯燥、效率低下且容易出錯[1~3]。比如,一口錄井資料需要按所劃分的地層(20層)統計出每一地層里某巖性(砂巖)總厚度所占當層比率,而當一個工區內井數眾多(50口井)時,依靠人工摘錄匯總統計就顯得費時費力。引入計算機技術后,類似Ex-cel的辦公軟件給地質數據的統計處理帶來了極大的便利,但面對日益膨脹的多類型海量數據,這些常規的辦公軟件明顯難以滿足需求[1]。一是如果僅靠人工操作逐層挑選、累加求和然后數據匯總的話,工作重復量大,而且隨著地層數和井數增加而更顯著。二是這些數據統計結果的編排格式與文件保存格式都必需滿足后續軟件(如Surfer、Petrel等)的輸入要求,否則,格式編排轉換工作量也會隨著文件數目增加而變大。商業軟件大多數據庫底層不透明,給后期數據快速修改、重新加載和軟件二次開發帶來了困難[2]。vba批量處理程序能夠自動操作Excel,輕松完成大量重復工作,可以批量保存成txt文本格式便于直接導入其它軟件。利用VBA語言編寫的數據處理程序,可作多井數據批量統計整理,使地質人員更專注于地質研究工作,同時宏程序直接面向Excel,使得數據獲得和處理更加方便快捷[2]。本文以分層統計錄井砂地比為例,完整闡述VBA批量處理程序。

2統計方法

砂地比是砂巖總厚度與地層厚度的比值,因此統計工作需要從該地層的頂底界內挑出所有的砂巖,計算厚度之和然后再除以此地層厚度。對錄井資料,首先需要按地質分層取出所要計算的地層深度段內巖性數據,然后挑出此深度段內分布的砂巖層并累加其厚度求總和,得出此地層內砂巖總厚度,除以地層厚度就得到此地層的砂地比。按地質分層頂底界線可以求出每口井中各地質分層對應深度段內的砂地比值,然后取出各井中分層名相同的砂地比數據就可以用于分析工區內每一地質分層的砂地比平面分布情況[2,4]。

3實現方法與關鍵步驟

要實現VBA程序自動操作Excel需要做到以下幾方面。圖1各井分層數據Fig.1Layereddataofeachwell圖2各井巖性錄井數據Fig.2Mudloggingdataofeachwell1)整理三類原始數據表。三類數據分別為井分層、錄井和井坐標數據,共放在三個工作簿中,命名為“各井分層數據.xls”“各井巖性錄井數據.xls”和“各井坐標數據.xls”。其中,井分層數據以各井名為電子表格名存放地質分層信息,包括分層名、頂深和底深(圖1)。錄井數據以各井名為電子表格名存放錄井巖性信息,包括頂深、底深和巖性(圖2)。井坐標數據則放在一張電子表中并命名為“各井坐標”,數據包括井名、x坐標和y坐標。各張電子表格的第一行為表頭,數據都從第二行開始(圖3)。2)統計各分層砂地比。首先需要按照井分層信息中分層界線將錄井中跨層巖體深度段劈分,然后挑選并計算分層對應深度段內砂巖厚度之和,最后除以層厚度得出砂地比。3)提取各井同名分層信息。提取各井中同名分層信息并保存到以此分層名而建立的電子表格中(圖4)。最后,將各層數據表以對應表格名批量另存為txt文檔。

4操作方法及源程序

4.1操作方法將三類原始數據表放在同一個文件夾下,打開“各井分層數據.xls”,并打開宏里面的“VisualBasic編輯器”,雙擊工程窗口中的“ThisWork-book”后在右邊代碼窗口寫入源程序[5~7]。當光標處在第一個程序內時,運行宏即可自動完成批量統計。

4.2源程序源程序由三部分組成,第一個程序為主程序,分別調用后兩個子程序,如下:

4.3源程序優缺點分析1)優點。①源程序可以直接用于實際工作,無需操作人員必須會VBA編程基礎,其參與運算的井數與地層分層數不受限制,可以自動識別。②能夠自動完成劈分跨界巖性深度,挑出特定巖性,累計求取厚度,匹配各井坐標,并且利用數組提高運行速度。③自動篩選出同層異井信息并且批量另存為txt文本,方便導入其它軟件。2)缺點。①三類原始數據格式及其命名必須與所要求的一致,否則源程序無法找到對應數據。②程序運行中有幾次保存工作簿的操作,影響了程序運行速度,并且隨著井數增多速度會隨之變慢,甚至井數太多時只有采取分批處理辦法。

4.4源程序應用效果分析無論是同傳統的手工統計還是常規的辦公軟件的人工操作相比,本程序方法實現了自動化批量處理,對多步統計工作實現了一次性程序自動高效完成。5結語編寫VBA批量處理程序用于井數眾多的工區時,效果十分明顯,能夠大幅提高工作效率,減少人工誤差。源程序利用數組存儲數據實現循環,大大提高了運行速度。本文以砂地比統計為例進行了方法闡述,源程序中還給出了泥地比、砂巖厚度、泥巖厚度等重要儲層參數統計結果。對于不會編寫VBA程序的讀者,可以按照文中闡述的方法直接應用源程序實現統計操作;對于會編程序的讀者還可以對源程序進行修改推廣應用到其他類似統計工作中,甚至開發插件。

主站蜘蛛池模板: 欧美三级韩国三级日本播放| 色呦呦网站在线观看| 大佬和我的365天2在线观看 | 蜜桃成熟之蜜桃仙子| 国产激情电影综合在线看| 91系列在线观看| 娃娃脸中文字幕1080p| 久久中文字幕人妻丝袜| 最近2019免费中文字幕视频三| 亚洲欧洲春色校园另类小说| 狼群视频在线观看www| 再灬再灬再灬深一点舒服| 菠萝蜜视频入口| 国产对白真实伦视频在线 | 日本尹人综合香蕉在线观看| 亚洲av无码专区亚洲av桃| 欧美日韩成人在线| 亚洲综合色成在线播放| 窝窝影院午夜看片| 和僧侣的交行之夜樱花| 菠萝蜜视频入口| 国产卡一卡二卡三卡四| 91精品国产人成网站| 国产欧美综合一区二区三区| 1024手机在线播放视频| 国产美女久久精品香蕉69| 99热99操99射| 天堂一区二区三区精品| wwwav在线| 小雪校花的好大的奶好爽| 中文字幕一区二区三区日韩精品| 无翼少无翼恶女漫画全彩app| 久久天天躁狠狠躁夜夜爽| 春暖花开亚洲性无区一区二区| 亚洲人成亚洲精品| 欧美亚洲国产日韩电影在线| 亚洲国产精品自产在线播放| 欧美日韩亚洲国内综合网香蕉| 亚洲欧美日韩精品中文乱码| 波多野结衣系列无限发射| 亚洲色无码国产精品网站可下载|