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

• #4385 Delila_1 veterán Fehér Mancs #4384

  Új Válasz 2009-01-19 14:07:28 #4385

  Ú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 Fehér Mancs #4384 üzenetére

  A makród szerint egyszerűsítettem az enyémet. Nem lehet elhagyni a 3 utolsó karakter levágását, mert nem kell a tizedes vessző, és a 2 tizedes érték.
  Ráadásul ez számmá is alakítja a jelölt terület string típusú adatait.

  Sub Csere()
  Selection.Replace What:=".", Replacement:=""
  For Each cv In Selection
  Range(cv.Address) = Left(cv.Value, Len(cv.Value) - 3)
  Next
  End Sub

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