Új hozzászólás Aktív témák

• #9588 Fire/SOUL/CD félisten bozsozso #9584

  Új Válasz 2011-03-02 11:46:35 #9588

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #9584 üzenetére

  Az alábbi kód szabályos KEREKÍTÉS-t végez először (5 tizedtől felfelé illetve az alatt lefelé), továbbá most úgy írtam, hogy a kerekítést követően a 2-re végződő számokat 5-re , míg 7-re végződőket 9-re módosítja. Próbáld ki, remélem így megfelel.

  Function FSCD_Round5_9(xCell As Range) As Single
  
  Dim xNumber As Single
  Dim xStr As String, xChar As String
  Dim MyFxs As WorksheetFunction
  Set MyFxs = Application.WorksheetFunction
  
  xNumber = xCell
  xStr = MyFxs.Round(xNumber, 0)
  xNumber = xStr
  xChar = Right(xStr, 1)
  
  Select Case xChar
  Case "0"
  xNumber = xNumber - 1
  Case "1"
  xNumber = xNumber - 2
  Case "2"
  xNumber = xNumber + 3
  Case "3"
  xNumber = xNumber + 2
  Case "4"
  xNumber = xNumber + 1
  Case "5"
  Case "6"
  xNumber = xNumber - 1
  Case "7"
  xNumber = xNumber + 2
  Case "8"
  xNumber = xNumber + 1
  Case "9"
  End Select
  
  Set MyFxs = Nothing
  
  FSCD_Round5_9 = xNumber
  
  End Function

Új hozzászólás Aktív témák