[地信网首发]### 2014年1月更新！###储量自动计算（块段法，基于excel）

zzj5404001

If Cells(4, 8).Value Like "*10-6*" Then
Cells(y, 8) = Round(Cells(y, 12) / Cells(y, 11) * 1000, 2)
Else
Cells(y, 8) = Round(Cells(y, 12) / Cells(y, 11) * 100, 2)
End If     运行到这是出错  是什么问题

If Cells(4, 9).Value Like "*10-6*" Then
Cells(y, 9) = Round(Cells(y, 13) / Cells(y, 11) * 1000, 2)
Else
Cells(y, 9) = Round(Cells(y, 13) / Cells(y, 11) * 100, 2)
End If

If Cells(4, 10).Value Like "*10-6*" Then
Cells(y, 10) = Round(Cells(y, 14) / Cells(y, 11) * 1000, 2)
Else
Cells(y, 10) = Round(Cells(y, 14) / Cells(y, 11) * 100, 2)
End If

592638430

下载试试 好不好用

tj22000

谢谢楼主分享。

zfr2010

学习学习，谢谢。

laolong

不懂不懂不懂。。。

liuf658000

好东西啊，写来学习学习，谢谢楼主分享！

zengshouhe

{:soso_e100:}

zzj5404001

你好，我用你的表在探槽、坑探表内输入数据，运行第一步出现问题：1是不能计算单工程品位、厚度。2是不是少个探槽坡角这一列。第一步以后也是运行出错，请你看看问题出在那。

zzj5404001

今天重新下载运行了该表，出现这个错误

w881024945

我想要用这个 谢谢作者