利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
生活随笔
收集整理的這篇文章主要介紹了
利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
氣象數據是地理數據的重要組成部分,存儲量雖然不大,但是處理過程非常繁瑣,長時序數據更不用說。本文總結了一個氣象數據的基本處理方法。
如下圖所示,氣象數據的排列格式是區站號→年→月→降水量→平均氣溫,時間范圍為1983~2012年,每一年都有臺站數300多個,下面按區站號+年的格式來求降水量和平均氣溫
1、求春季降水量和氣溫
春季一般認為是當年的3,4,5月份,下面我們借助Excel VBA+ADO.NET,編寫宏代碼來實現:
Sub admin()Dim conn, xRs, SQL, xFd, yearyear = InputBox("請輸入一個數", "輸入")If year = "" ThenExit SubEnd IfIf year > 2012 Or year < 1983 ThenMsgBox "你想不想混了?", vbOKOnly, "哼"Exit SubEnd IfSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.ACE.OLE總結
以上是生活随笔為你收集整理的利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 用dataGridView实现增删改查
- 下一篇: 利用Matlab拟合时序植被生长季曲线,