[[20031204160046]]　『5捨5超入』（みこ）　ページの最後に飛ぶ

『5捨5超入』（みこ）

もう1つ質問お願いします。

端数5捨5超入のプログラミングを教えてください。

整数1の位以下をみて、5を越えた場合、10の位にくり上がり、
5を超えない場合、切捨てになるものです。

１４４.９９→１４　　１４５.００→１５　　１４５.０１→１５

よろしくお願いします。

 1/10 して、四捨五入とは違いますか？
 =ROUND(144.99/10,0)
 =ROUND(145.00/10,0)
 =ROUND(145.01/10,0)
   (INA)

 INAやん、横からゴメン。
 プログラミングッちゅうことやさかい、マクロ上でちゃいまんのかなぁ。
 ほない思うて作ったんやけど...。要らんかったら没。

 A1にデータを入力して試しておくんなはれ。
 標準モジュールにコピペですよ。
 条件は小数点以下２桁ですわ。割り切れるんは処理でけます。
 　　ほな...（弥太郎）

 Sub test()
    data = Cells(1, 1) * 0.1
    data = Split(data, ".")
    n = data(0) * 1
    t = data(1) * 1
    If Len(t) = 1 Then
        t = t * 100
    ElseIf Len(t) = 2 Then
        t = t * 10
    End If

    If t >= 500 Then
        Cells(1, 2) = n + 1
    Else
        Cells(1, 2) = n
    End If
 End Sub

 Sub Sample()
 Dim x As Double

    x = 144.99
    x = x / 10
    MsgBox Application.WorksheetFunction.Round(x, 0)

    x = 145 
    x = x / 10
    MsgBox Application.WorksheetFunction.Round(x, 0)

    x = 145.01
    x = x / 10
    MsgBox Application.WorksheetFunction.Round(x, 0)

 End Sub

 かな？
  (INA)

ありがとうございます☆★

はい！マクロ上でです。
弥太郎さんので出来ました。
INAさん・弥太郎さん、ありがとうございます♪

コメント返信：

[ 一覧(最新更新順) ]

[[20031204160046]] 『5捨5超入』（みこ） ページの最後に飛ぶ

[[20031204160046]]　『5捨5超入』（みこ）　ページの最後に飛ぶ