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

• #3331 Delila_1 veterán papg79 #3328

  Új Válasz 2008-03-10 17:14:12 #3331

  Ú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

  

  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