利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
生活随笔
收集整理的這篇文章主要介紹了
利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
氣象數(shù)據(jù)是地理數(shù)據(jù)的重要組成部分,存儲量雖然不大,但是處理過程非常繁瑣,長時序數(shù)據(jù)更不用說。本文總結(jié)了一個氣象數(shù)據(jù)的基本處理方法。
如下圖所示,氣象數(shù)據(jù)的排列格式是區(qū)站號→年→月→降水量→平均氣溫,時間范圍為1983~2012年,每一年都有臺站數(shù)300多個,下面按區(qū)站號+年的格式來求降水量和平均氣溫
1、求春季降水量和氣溫
春季一般認(rèn)為是當(dāng)年的3,4,5月份,下面我們借助Excel VBA+ADO.NET,編寫宏代碼來實(shí)現(xiàn):
Sub admin()Dim conn, xRs, SQL, xFd, yearyear = InputBox("請輸入一個數(shù)", "輸入")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總結(jié)
以上是生活随笔為你收集整理的利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 用dataGridView实现增删改查
- 下一篇: C#创建桌面快捷方式