1

Solidworks で車軸を構築するために vba でプログラムを作成しようとしています。これは、ユーザーフォームにさらされる力を入力することによって行う必要があります。私の数式は問題なく機能しますが、直径 35,65 mm の車軸を作るのはばかげているので、すべての値を整数に切り上げたいと思います。

これには「Round(Diameter, 0)」を使用できることはわかっていますが、切り捨てはしたくありません。

短い: VBA で数値を整数に切り上げるにはどうすればよいですか?

例: 7,3 => 8

どんな入力でも大歓迎です！

ありがとうございました

ロブ

4

1 に答える 1

2

VBA のTrueは数学的に -1 に等しく、Falseは 0 に等しいため、これでうまくいくはずです。

Dim axl as double
axl = 36.5
axl = int(axl) - (int(axl) <> axl)
debug.print axl

これは、物理的な世界では、車軸の直径が負の次元を持つことはできないと仮定しています。IOW、その式は、axl が正の場合はゼロから遠ざかる方向に丸められますが、axl が負の場合はゼロに向かって丸められます。

最後の注意点。に変更しないでInt(axl)くださいCInt(axl)。小数部分を削除しながらCInt、値を最も近い整数に丸めます。Round(axl, 0)Int

于 2015-01-09T12:23:56.650 に答える