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

        ?

        Excel VBA程序在水文資料整編中的應(yīng)用

        2022-10-31 06:14:56蒙肇敏
        廣西水利水電 2022年5期
        關(guān)鍵詞:程序

        蒙肇敏

        (靈山縣靈東水庫(kù)管理局,廣西 靈山 535426)

        1 工程概況

        靈東水庫(kù)位于欽州市靈山縣佛子鎮(zhèn)境內(nèi),壩址位于靈山縣東面的佛子鎮(zhèn)元眼村的大排麓嶺,距靈山縣城14 km,有公路與縣城相通,水庫(kù)座落在欽州市主要河流欽江干流的上游,控制集雨面積145 km2。靈東水庫(kù)是一座以灌溉為主,兼顧防洪、供水、發(fā)電等綜合利用的大(2)型水利工程。根據(jù)水文復(fù)核結(jié)果,100 a一遇設(shè)計(jì)洪水位101.486 m,5000 a 一遇洪水位104.39 m,總庫(kù)容為1.69 億m3。水庫(kù)樞紐主要建筑物由大壩、溢洪道、放水設(shè)施和壩后電站組成。

        2 Excel VBA程序的應(yīng)用

        靈東水庫(kù)于2007 年6 月建成了水庫(kù)水情自動(dòng)化測(cè)報(bào)系統(tǒng)及洪水預(yù)報(bào)調(diào)度系統(tǒng)。2008年以來(lái),由筆者負(fù)責(zé)靈東水庫(kù)水文資料整編工作,每天都要逐步提取自動(dòng)化觀測(cè)數(shù)據(jù),工作量大。共6個(gè)雨量站,1 個(gè)水位觀測(cè)站,2 個(gè)流量觀測(cè)站,每年提取原始數(shù)據(jù)要花費(fèi)近10 d 的時(shí)間,而且由于數(shù)據(jù)龐大,難免出現(xiàn)數(shù)據(jù)錯(cuò)漏。遙測(cè)系統(tǒng)數(shù)據(jù)只能當(dāng)天提取,過(guò)了時(shí)間只能查看,不能提取,一年的原始數(shù)據(jù)有365個(gè)文件。相比手寫的原始資料,電子化原始數(shù)據(jù)更多更復(fù)雜,如果能進(jìn)一步簡(jiǎn)化原始數(shù)據(jù)提取,將能釋放更多的時(shí)間。

        從2019 年起,筆者認(rèn)真學(xué)習(xí)Excel VBA 程序,摸索用Excel VBA 程序提取原始數(shù)據(jù)與整編成果。表1 是筆者整編單位遙測(cè)系統(tǒng)所得的部分原始資料,因保密需要,水位一律用1 表示,雨量一律用2代表數(shù)據(jù)。由于雨量整編有時(shí)段降雨量摘錄,故時(shí)間B 列可以用Sheets("原始數(shù)據(jù)").Cells(i,5)=(Month(Sheets("原始數(shù)據(jù)").Cells(i,2)))&"月"&(Day(Sheets("原始數(shù)據(jù)").Cells(i,2)))& "日" &(Hour(Sheets("原始數(shù)據(jù)").Cells(i,2)))&"時(shí)",然后根據(jù)每個(gè)時(shí)段的水位按所收集的水位條數(shù)取其平均值,雨量按所收集的數(shù)值累計(jì)。

        表1 整編后的部分原始資料

        9 1月5日21:00 10 1月6日0:00 11 1月6日03:00 12 1月6日04:00 13 2 1月6日05:00 2 14 1月6日05:00 15 1月6日07:00 16 1月6日10:00 17 1月6日13:00 18 1月6日16:00 19 1月6日20:00 20 2 1月6日23:00 2 21 1月7日02:00 22 1月7日02:00 23 1月7日03:00 24 1月7日05:00 25 1月7日07:00 26 1月7日08:00 24 27 22 2 1月7日08:00 28 2 1月7日09:00 4 29 2 1月7日09:00 30 2019-01-05 21:15 2019-01-06 00:31 2019-01-06 03:47 2019-01-06 04:36 2019-01-06 05:26 2019-01-06 05:42 2019-01-06 07:03 2019-01-06 10:19 2019-01-06 13:34 2019-01-06 16:50 2019-01-06 20:06 2019-01-06 23:21 2019-01-07 02:37 2019-01-07 02:53 2019-01-07 03:10 2019-01-07 05:53 2019-01-07 07:15 2019-01-07 08:06 2019-01-07 08:55 2019-01-07 09:09 2019-01-07 09:41 2019-01-07 10:15 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1月7日10:00 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

        把月-日-時(shí)串聯(lián),建立目標(biāo)表格和原始數(shù)據(jù)表格匹配通道,通過(guò)Excel VBA find 函數(shù)查找目標(biāo)文件的日期時(shí)間,對(duì)應(yīng)原始數(shù)據(jù)表中的日期時(shí)間,當(dāng)互相配對(duì)時(shí),就把水位填到對(duì)應(yīng)時(shí)間行的某一列。幾行的程序,用一兩分鐘的時(shí)間就可以完成幾天的工作量,效率非常高。

        水位跟雨量不同的是,水位每個(gè)時(shí)段必然都是有數(shù)值的,如果遙測(cè)系統(tǒng)數(shù)據(jù)有變化,則實(shí)時(shí)收集發(fā)回中心站。沒(méi)有變化的時(shí)候,可能是一天收集一次,故必須在每個(gè)時(shí)段把對(duì)應(yīng)的水位按上個(gè)時(shí)段的水位給加上去。偶爾會(huì)因?yàn)橥ㄐ殴收蠈?dǎo)致某一時(shí)間段沒(méi)有數(shù)據(jù),所以筆者根據(jù)本單位的實(shí)際情況,加了一段代碼用以判別是正常的的空值還是故障導(dǎo)致的空值。所加代碼如下:

        Sub 判斷水位有沒(méi)有斷報(bào)()

        If lastrow-firstrow >25 Then‘超過(guò)25 h 不來(lái)報(bào)則判斷為數(shù)據(jù)斷報(bào)

        3 遙測(cè)系統(tǒng)歷史數(shù)據(jù)處理

        采用Excel VBA 程序能快速整合原始數(shù)據(jù)文件,遙測(cè)系統(tǒng)只能導(dǎo)出當(dāng)天或者上一天的數(shù)據(jù),過(guò)了就不能導(dǎo)出,只能查看,可以用如下宏代碼解決這個(gè)問(wèn)題。

        此宏代碼會(huì)按列合并文件,所以最好是同一格式的文件,不然,有些合并行看起來(lái)有點(diǎn)亂。通過(guò)此代碼把其他文件的數(shù)據(jù)拷貝到當(dāng)前文件(見(jiàn)圖1),一年365個(gè)文件,幾分鐘就可以處理完畢。

        圖1 按列合并后得到的當(dāng)前文件

        4 結(jié)語(yǔ)

        隨著水文測(cè)報(bào)自動(dòng)化水平的不斷提高,計(jì)算機(jī)在水文資料整編中應(yīng)用非常廣,Excel作為最常用的整編工具,學(xué)會(huì)其中的函數(shù)能提高工作效率,用Excel VBA 程序來(lái)進(jìn)行整編,更能起到事半功倍的作用。

        猜你喜歡
        程序
        給Windows添加程序快速切換欄
        試論我國(guó)未決羈押程序的立法完善
        失能的信仰——走向衰亡的民事訴訟程序
        “程序猿”的生活什么樣
        英國(guó)與歐盟正式啟動(dòng)“離婚”程序程序
        基于VMM的程序行為異常檢測(cè)
        偵查實(shí)驗(yàn)批準(zhǔn)程序初探
        我國(guó)刑事速裁程序的構(gòu)建
        創(chuàng)衛(wèi)暗訪程序有待改進(jìn)
        恐怖犯罪刑事訴訟程序的完善
        女人天堂国产精品资源麻豆| 这里有精品可以观看| 在线观看网址你懂的| 青青青伊人色综合久久| 一区二区无码中出| 黄色网页在线观看一区二区三区| 亚洲乱码中文字幕一线区| 美女网站免费观看视频| 国产一女三男3p免费视频| 国产成人乱色伦区小说| av资源吧首页在线观看| 丝袜美腿在线观看一区| 性大毛片视频| 国产一区二区精品尤物| 中文字幕 在线一区二区| 娇小女人被黑人插免费视频| 五月综合激情婷婷六月色窝| 无国产精品白浆免费视| 大量老肥熟女老女人自拍| 久久一区二区视频在线观看| 亚洲自偷自拍另类第1页| 国产乱人伦av在线a| 久久久久久久尹人综合网亚洲| 久久亚洲精品一区二区三区| 国产对白国语对白| 亚洲精品国产精品国自产观看| 亚洲最稳定资源在线观看| 亚洲不卡免费观看av一区二区| 亚洲婷婷五月综合狠狠爱| 亚欧AV无码乱码在线观看性色 | 亚洲一区二区蜜桃视频| 成人网站在线进入爽爽爽| 亚洲一区二区观看播放| 国产精品一区成人亚洲| 亚洲乱码中文字幕综合久久| 中文字幕在线精品视频入口一区| 亚洲一区视频在线| 国产精品国产三级国产不卡| 精品露脸国产偷人在视频| 永久免费无码av在线网站| 久久久2019精品视频中文字幕|