Sub ki130()
   ki130a
   ki130b
   ki130c
End Sub



'[1]ワ−クシ−ト関数"Round"による四捨五入
Sub ki130a()
    aa = Application.Round(Cells(12, 4) / 1000, 0)
    Cells(12, 4) = aa * 1000
End Sub

'[2]ワ−クシ−ト関数"RoundUp"による切り上げ
Sub ki130b()
    aa = Application.RoundUp(Cells(12, 6) / 1000, 0)
    Cells(12, 6) = aa * 1000
End Sub

'[3] 五捨六入のマクロ例
Sub ki130c()
     aa = Cells(12, 8)
     s1 = Right(aa, 3)
         If Val(s1) > 599 Then
            aa = Cells(12, 8) + 1000
         End If
     aas = Len(aa)
         s2 = Mid(aa, 1, aas - 3)
      Cells(12, 8) = s2 & "000"
End Sub

Sub ki130d()
    Range("D12").Select
    Selection.NumberFormatLocal = "#,##0_ "
    Range("D12").Value = "45612"
    
   Range("D12").Copy Range("F12")
   Range("D12").Copy Range("H12")
   
End Sub