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

  • Delila_1

    veterán

    válasz papg79 #3328 üzenetére

    Nincs hozzá függvény, hát csináljunk.
    Nyiss egy füzetet, és csak egy lapot hagyj benne. Alt+F11-re bejön a VBE. Nyitsd ki bal oldalon a füzetedet (+ jelnél). Insert/Module. Jobb oldalon kaptál egy üres modullapot. Oda másold be:

    Function KerekítésÖtre(szám As Long)
    b = Right(szám, 1)
    Select Case b
    Case 1
    szám = szám - 1
    Case 2
    szám = szám - 2
    Case 3
    szám = szám + 2
    Case 4
    szám = szám + 1
    Case 6
    szám = szám - 1
    Case 7
    szám = szám - 2
    Case 8
    szám = szám + 2
    Case 9
    szám = szám + 1
    End Select
    KerekítésÖtre = szám
    End Function

    Lépj vissza az Excelbe, mentés másként, KerekítésÖtre.xla (bővítmény).
    Zárd be és nyitsd meg újra az Excelt. Az Eszközök/Bővítménykezelőben szerepelni fog a Kerekítésötre, jelöld be.
    Ezután már a függvényeid között is megtalálod, a Felhasználói, és a Mind kategóriákban.

    [ Szerkesztve ]

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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