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

woaigis316

值得学习学习

1130149739

学学学学嘻嘻嘻嘻嘻嘻嘻西嘻嘻嘻

hnyytj111

这个貌似不错  zhe

xjhw2010

好资料啊，学习一下

alphale58

支持楼主的程序，这是能力和智慧的体现，向你学习致敬。{:soso_e156:}

wzgjzz

好资料啊，学习一下

流浪小枫

好好学习一下

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

谢谢楼主分享。