Excel VBA質問箱 IV

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

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


13997 / 76738 ←次へ | 前へ→

【68241】Re:小数点2桁のみを取得したく、お願いします
発言  りん E-MAIL  - 11/2/17(木) 10:48 -

引用なし
パスワード
   Yoshi さん、こんにちわ。
>小数点以下二桁を抽出する方法を教えてください。
>小数点以下だけを反映させたいのですが・・・
>7.22
>7.3
>6.89

Sub test()
  Dim NN As Currency 'Doubleだと浮動小数点がらみでおかしくなりました。
  '
  '100倍して右二文字とって数字に戻す(小数3桁以下の四捨五入なし)
  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

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

0 hits

【68235】小数点2桁のみを取得したく、お願いします Yoshi 11/2/17(木) 10:09 質問
【68236】Re:小数点2桁のみを取得したく、お願いし... neptune 11/2/17(木) 10:28 発言
【68251】Re:小数点2桁のみを取得したく、お願いし... Yoshi 11/2/17(木) 15:33 質問
【68253】Re:小数点2桁のみを取得したく、お願いし... neptune 11/2/17(木) 19:02 回答
【68239】Re:小数点2桁のみを取得したく、お願いし... とおりすがり 11/2/17(木) 10:31 回答
【68241】Re:小数点2桁のみを取得したく、お願いし... りん 11/2/17(木) 10:48 発言
【68247】Re:小数点2桁のみを取得したく、お願いし... neptune 11/2/17(木) 13:38 回答
【68248】Re:小数点2桁のみを取得したく、お願いし... りん 11/2/17(木) 14:03 発言
【68242】Re:小数点2桁のみを取得したく、お願いし... Yuki 11/2/17(木) 10:56 発言
【68276】Re:小数点2桁のみを取得したく、お願いし... Yoshi 11/2/20(日) 8:57 お礼

13997 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free