亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        土工試驗報告整理中利用Excel VBA程序解決電子數(shù)據(jù)批量“輸入”問題

        2017-03-12 08:47:57張永輝
        河北地質(zhì) 2017年3期
        關(guān)鍵詞:同號輸入土樣

        張永輝

        (河北省水文工程地質(zhì)勘查院 石家莊 050021)

        在土工試驗報告整理中,包括常規(guī)、粘粒分析、三軸(UU、CU)、直接剪切、滲透、濕陷等多項試驗數(shù)據(jù),這些單項試驗在各自數(shù)據(jù)處理后,往往都是采用人工輸入的方法,先輸入再讓人校對,工作量之大可想而知,既浪費大量人力,又容易出錯?,F(xiàn)在各試驗多采用計算機生成電子版結(jié)果,筆者在工作中利用Excel VBA程序?qū)⑸傻碾娮影鏀?shù)據(jù)通過查找、替換相同樣號后數(shù)據(jù),以完成數(shù)據(jù)的修改即輸入問題。

        1 用Excel VBA開發(fā)程序的重要性

        Excel VBA是一門強化及改造Excel的程序語言,利用VBA可以完成兩大類任務(wù):解決自己的工作問題及開發(fā)通用軟件,如果非僅僅處理個人面臨的工作問題,而是編程適用群體需求,則更為重要。筆者利用Excel VBA編寫的程序還可作為通用程序,延伸到其他工作、領(lǐng)域及日常生活中完成數(shù)據(jù)輸入問題。

        2 Excel VBA運行環(huán)境

        將VBA宏安全性設(shè)置為中或低(在安裝了防病毒軟件或檢查了所有要打開的文檔安全性時),以便創(chuàng)建運行環(huán)境,正常啟動VBA程序。

        3 用Excel VBA開發(fā)程序批量輸入電子數(shù)據(jù)

        用VBA編寫程序及應(yīng)用的步驟為:首先新建Excel工作簿,改名為“數(shù)據(jù)讀取程序”,將Sheet1重命名為“各試驗項源數(shù)據(jù)”,將Sheet2重命名為“檢查同號并讀取”,從工具欄中調(diào)出“控制工具箱”,在“各試驗項源數(shù)據(jù)”工作表中添加“CommandButton1”,雙擊進入VBA編輯器界面,則自動打開“工程資源管理器窗口”中的“Sheet1(各試驗項源數(shù)據(jù))”,在代碼編輯區(qū)輸入編寫的以下批量讀取電子數(shù)據(jù)代碼(輸入主程序,首尾語句已自動生成):

        Private Sub CommandButton1_Click()

        Dim n As Integer, i As Integer, j As Integer, m As Integer, k As Integer

        Dim num As Integer, x As Integer

        n = Sheet1.Range("B65536").End(xlUp).Row '-----原始表格的范圍

        m = Sheet2.Range("B65536").End(xlUp).Row '-----對比表格的范圍

        x = 1

        For i = 2 To n

        For j = 2 To m

        If Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2) Then

        For k = 3 To 100

        If Sheet2.Cells(j, k) <> Sheet1.Cells(i, k) Then

        Sheet2.Cells(j, k).Interior.ColorIndex = 3

        Sheet2.Cells(j, k) = Sheet1.Cells(i, k)

        End If

        Next k

        End If

        Next j

        Next i

        For j = 2 To m

        num = 0

        For i = 2 To n

        If Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2) Then

        num = num + 1

        End If

        Next i

        If num = 0 Then

        Sheet1.Cells(1, x) = Sheet2.Cells(j, 2)

        x = x + 1

        End If

        Next j

        End Sub

        打開VBA編輯器界面的屬性窗口,將“CommandButton1”caption標題改為“讀取數(shù)據(jù)”且根據(jù)實際情況和個人愛好更改命令按鈕大小、顏色、字體。

        在工作表 “各試驗項源數(shù)據(jù)”中,將各單項試驗土樣編號及電子結(jié)果粘貼到以B2為起始的區(qū)域;將土工試驗總體報告的實驗室編號粘貼到工作表“檢查同號并讀取”中以B2為起始的該列。點擊“讀取數(shù)據(jù)”按鈕,則自動查找穿插單項結(jié)果到工作表“檢查同號并讀取”中,順序為報告土樣編號順序。

        這個程序還有兩個亮點:一是工作表 “各試驗項源數(shù)據(jù)”中首行會顯示另一工作表多余的土樣編號;二是在工作表“檢查同號并讀取”中可以將數(shù)據(jù)加底色紅色,以便作樣品數(shù)據(jù)檢查時看是否數(shù)據(jù)修改過。

        該程序可將其存為模板,將VBA程序加密碼鎖定,將模板改為只讀格式。如果已經(jīng)點擊了命令按鈕發(fā)現(xiàn)問題需重新處理可將工作表“檢查同號并讀取”中讀取的數(shù)據(jù)刪除處理后再運行命令。

        以下三個圖(圖1、圖2、圖3)為Excel工作簿和VBA程序編輯界面:

        在試驗工作中運用此程序有效地解決了輸入、校對繁重的工作量問題,提高了工作效率,防止報告出錯,點擊命令按鈕,做到了一蹴而就,多快好省。

        圖1 Excel工作簿試驗土樣編號及電子結(jié)果粘貼

        圖2 Excel工作簿中各試驗項源數(shù)據(jù)檢查

        圖3 Excel工作簿中VBA程序編輯界面

        4 用Excel VBA開發(fā)程序批量輸入電子數(shù)據(jù)作為通用軟件的意義

        筆者利用Excel VBA不但可以解決土工試驗工作中的數(shù)據(jù)輸入問題,而且可以作為通用程序,完成其它工作中的數(shù)據(jù)輸入問題,只要是工作表“各試驗項源數(shù)據(jù)”中B列中有和 工作表“檢查同號并讀取”中B列有相同的內(nèi)容(包括如人名類的文本、數(shù)據(jù)類的數(shù)字編號),運行程序就可以按照工作表“檢查同號并讀取”中B列的順序替換后面列中的內(nèi)容,從而完成數(shù)據(jù)輸入。利用該程序,有助于工作的開展,提高效率,有效避免數(shù)據(jù)出錯,對于電子數(shù)據(jù)的“輸入”具有重要的意義。

        [1]羅剛君.Excel VBA程序開發(fā)自學(xué)寶典.電子工業(yè)出版社

        猜你喜歡
        同號輸入土樣
        灌區(qū)渠道基土工程水敏性試驗研究
        檸檬酸對改良紫色土中老化銅的淋洗研究
        有聲敘事征稿
        膨脹土干濕交替作用下殘余強度試驗方案分析
        治淮(2018年6期)2018-01-30 11:42:44
        分式函數(shù)最值的多種求法
        “四環(huán)節(jié)”下的牛津英語課堂模式
        微篇商務(wù)英語閱讀教學(xué)模式探索
        淺議習(xí)得理論下初中英語教學(xué)的策略調(diào)整
        考試周刊(2016年79期)2016-10-13 22:42:09
        高中英語閱讀與寫作有效結(jié)合
        考試周刊(2016年76期)2016-10-09 09:22:30
        數(shù)學(xué)解題中“+”“—”的巧用
        亚洲xx视频| 成人久久久久久久久久久| 欧美婷婷六月丁香综合色| 国产精品激情综合久久| av一区二区在线免费观看| 欧美丰满老熟妇aaaa片| 无码精品国产va在线观看| 伊人婷婷色香五月综合缴激情| 综合久久加勒比天然素人| 极品少妇被黑人白浆直流| 国产一区二区在线视频| 久久久久久国产精品免费网站| 久久国产女同一区二区| 亚洲youwu永久无码精品| 一本色道久久综合亚洲精品不卡| 五月婷婷影视| 国产伦理一区二区久久精品| 亚洲成av人片天堂网无码| 亚洲av无码国产剧情| 亚欧乱色束缚一区二区三区| 日日高潮夜夜爽高清视频| 波多野结衣爽到高潮大喷| japanesehd中国产在线看| 午夜免费福利小电影| 久久日本三级韩国三级| 久久久久久AV无码成人| 一区二区三区免费观看日本| 奇米影视第四色首页| 国产精品自在线免费| 加勒比特在线视频播放| 亚洲国产精品无码久久一区二区| 国产乱子伦在线观看| 亚洲av午夜成人片精品| 久久这里都是精品99| 美女av一区二区三区| 久久精品伊人无码二区| 男人一插就想射的原因| 亚洲欧洲国产成人综合在线| 秋霞午夜无码鲁丝片午夜精品 | 精品国产你懂的在线观看| 国产av天堂亚洲av刚刚碰|