怎么计算叶面积指数计算

来源：蜘蛛抓取(WebSpider) 时间：2017-01-01 19:02 标签： 叶面积指数计算公式
叶面积指数的主要测定方法_谭一波_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
叶面积指数的主要测定方法_谭一波
上传于||暂无简介
阅读已结束，如果下载本文需要使用3下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢叶面积指数的主要测定方法_谭一波_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
叶面积指数的主要测定方法_谭一波
上传于||文档简介
&&叶​面​积​指​数
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢查看: 1372|回复: 1
Leaf Area Index 叶面积指数计算
阅读权限20
在线时间 小时
Sub LeafIndex()
Dim Col As Integer
Dim Row As Integer
Dim RowStart As Integer
Dim PlantNum As Integer
Dim RowFind As Integer
Dim RowPlantNum As Integer
'寻找编号1的起始行
For RowFind = 1 To 10
& &If Sheet1.Cells(RowFind, 1) = 1 And Sheet1.Cells(RowFind + 1, 1) = 2 Then
& &RowStart = RowFind
'确定植株数量
For ColPlantNum = 1 To 6
& &SumPlantNum = 0
& &For RowPlantNum = RowStart To RowStart + 39
& &SumPlantNum = Sheet1.Cells(RowPlantNum, ColPlantNum * 2).Value + SumPlantNum
& &If SumPlantNum = 0 Then
& &PlantNum = ColPlantNum - 1
& &Exit For
'计算单株叶面积
For Col = 1 To PlantNum
& & DigitalNum = 0
& & PlantSum = 0
& &For Row = RowStart To RowStart + 39
& &&&If Sheet1.Cells(Row, Col * 2) && && Then
& &&&DigitalNum = DigitalNum + 1
& &&&PlantSum = PlantSum + (Sheet1.Cells(Row, Col * 2) * Sheet1.Cells(Row, Col * 2 + 1) * Sheet1.Cells(47, 2)) / 10000
& &&&End If
& &Sheet1.Cells(43, Col * 2) = PlantSum
'计算单株叶面积指数
For ColLeafIndex = 1 To PlantNum
& &Sheet1.Cells(44, ColLeafIndex * 2) = Sheet1.Cells(43, ColLeafIndex * 2) * Sheet1.Cells(46, 2) / 666.67
'计算平均总叶面积指数
For ColLeafIndex = 1 To PlantNum
& &LeafIndexSum = LeafIndexSum + Sheet1.Cells(44, ColLeafIndex * 2)
LeafIndexAverage = LeafIndexSum / PlantNum
Sheet1.Cells(45, 2) = LeafIndexAverage
07:51 上传
点击文件名下载附件
15.64 KB, 下载次数: 25
在线时间 小时
〖Excel Home友情提示〗
很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！
通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：
1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。
为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：
* 发帖的技巧：
* EH技术论坛的最佳学习方法：
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 叶面积指数计算公式 的文章

 

随机推荐