Yuri Weblog

Solution Day でやった横断勾配計算書のことです。
使ってる人は私の講習など受けてないと思うんですけど、
もし使ってる方がいたら「なんで？」と思われたかもしれないので、
紹介しておきます。

通常「横断勾配レポート」を実行すると、
横断勾配の小数点が２桁までしか出てこないので、
VBAを編集してます。
２桁で済むことってあるんでしょうか？？？
とりあえず私が今までやっていて勾配が２桁表示なんて見たことないです。
ってことで編集方法。
バックアップを取って、自己責任でお願いします！！！
そして意味のわからない人は触らない方がよさげ。
—————————————————————
vbaのファイル　インストールフォルダ\Data\Reports\vba\JP_Preport_CorridorSlopeStake.dvb
標準モジュール DataExtractor
Functionプロシージャ GetSlopeData

If (deltaX <> 0) Then
slope = deltaY / deltaX
If (Abs(slope) <= percent2Slope) Then
'            GetSlopeData = VBA.Format(slope, "percent")
GetSlopeData = VBA.Format(slope, "0.000%")
Else
'            GetSlopeData = "1:" & VBA.Format(slope, "0.000")
GetSlopeData = VBA.Format(slope, "0.000%")
End If
Else
GetSlopeData = VBA.Format(0, "0.000")
End If

—————————————————————
つまり Format 関数の所をちょこっと変えてあるだけです。
あと勾配が大きいと「１：○○」とか出てきちゃうんでそれもちょっと変更してあります。
最後にもいいますが、あくまで自己責任で！！！