→→→計算(1000部ずつにする(SopZi))

Aはデータの数19000
Bはカラム位置


Public Sub Round1000(ByVal A As String , ByVal B As Integer)
      Dim ans As Double
      Dim X As Double
      Dim AA As Double
      AA = Val(A)
      ans = AA / 1000
      If ans = 0 Then
          X   = 0
      ElseIf ans > 0 Then
          X = Int( ans + 0.9 )
      Else
          X = -Int( -ans + 0.9 )
      End If
      strOcc( B + 1 ) = CStr( X )
End Sub