Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13992 / 76733

←次へ　｜　前へ→


	【68241】Re:小数点２桁のみを取得したく、お願いします

りん

- 11/2/17(木) 10:48 -


	引用なし

	パスワード

Yoshi さん、こんにちわ。
>小数点以下二桁を抽出する方法を教えてください。
>小数点以下だけを反映させたいのですが・・・
>７．２２
>７．３
>６．８９

Sub test()
　　Dim NN As Currency 'Doubleだと浮動小数点がらみでおかしくなりました。
　　'
　　'100倍して右二文字とって数字に戻す（小数３桁以下の四捨五入なし）
　　NN = 7.22: MsgBox Val(Right(Int(NN * 100), 2)), vbInformation, NN
　　NN = 7.3:　MsgBox Val(Right(Int(NN * 100), 2)), vbInformation, NN
　　NN = 6.89: MsgBox Val(Right(Int(NN * 100), 2)), vbInformation, NN
End Sub

以下二桁だけ見たいのなら、こんなやり方も。

3 hits

▼

【68235】小数点２桁のみを取得したく、お願いします Yoshi 11/2/17(木) 10:09