亚洲免费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)
        恐怖犯罪刑事訴訟程序的完善
        国产成社区在线视频观看| 日韩欧美成人免费观看| 中国男女黄色完整视频| 国产精品亚洲一区二区麻豆| 看久久久久久a级毛片| 秋霞鲁丝片av无码| 国产精品国语对白露脸在线播放| 无码 制服 丝袜 国产 另类| 免费人成黄页网站在线观看国产 | 国产精品综合久久久久久久免费| 黄色中文字幕视频网站| 午夜视频在线观看视频在线播放| 亚洲中文字幕在线第二页| 色婷婷资源网| 日韩一区二区三区天堂| 亚洲视频一区二区三区视频| 人妻激情偷乱视频一区二区三区| 亚洲精品无码久久久久av麻豆| 日本道免费精品一区二区| 国产精品毛片毛片av一区二区| 精品在线视频在线视频在线视频| 中文人妻熟妇乱又伦精品| 国产精品露脸张开双腿| 日美韩精品一区二区三区| 色欲色香天天天综合网www | 亚洲成a人无码| 内射精品无码中文字幕| 精品三级久久久久久久| 亚洲第一页视频在线观看| 18精品久久久无码午夜福利| 久久人人爽人人爽人人片av麻烦 | 国产精品公开免费视频| 免费高清日本一区二区| 一本色道久久hezyo无码| 亚洲精品久久国产高清情趣图文 | 麻豆夫妻在线视频观看| 狠狠色狠狠色综合网| 欧美日韩精品一区二区三区不卡| 国产精品亚洲专区无码不卡 | 不卡高清av手机在线观看| 最新亚洲无码网站|