2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #9588 Fire/SOUL/CD félisten bozsozso #9584
    Új Válasz #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