本文演示利用Excel VBA編程實(shí)現(xiàn)多期柵格數(shù)據(jù)，逐像元計(jì)算物候參數(shù)：生長季始期（SOS）、生長季末期（EOS）和生長季長度（LOS），計(jì)算過程速度快！

說明：

（1）利用Raster to Point工具將柵格數(shù)據(jù)轉(zhuǎn)換為點(diǎn)圖層，結(jié)果為38998個(gè)點(diǎn)，由于每年有24個(gè)數(shù)據(jù)（半月合成），所以得到的一年的數(shù)據(jù)為一個(gè)38998行、24列的矩陣；

（2）動(dòng)態(tài)閾值的實(shí)現(xiàn)方法是逐像元計(jì)算，（d2-d1）/d1，物候始期求最大值（正），物候末期求最小值（負(fù)）；

（3）sheet里保存38998*24的原始數(shù)據(jù)，sheet2為比率數(shù)據(jù)，sheet4為動(dòng)態(tài)閾值及對(duì)應(yīng)的影像期數(shù)。

代碼如下：

Sub 逐像元閾值()Dim i As IntegerDim max As DoubleDim min As DoubleDim j As LongFor j = 1 To 38998For i = 1 To 24If Sheet1.Cells(j, i).Value = 0 ThenSheet1.Cells(j, i).Value = Sheet1.Cells(j, i).Value + 0.000001End If

總結(jié)

以上是生活随笔為你收集整理的利用Excel VBA批量计算长时间序列植被物候动态阈值（逐像元）的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。