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

• #41828 Fferi50 Topikgazda Capella #41826

  Új Válasz 2019-09-28 18:47:18 #41828

  Ú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

  

  Fferi50

  Topikgazda

  válasz Capella #41826 üzenetére

  Szia!
  Sajnos a makró az angol nyelvre és így az angol számformátumra van "kihegyezve", ezért a pontot úgy értelmezi három szám után, mint ezres elválasztó, tehát akként fogja értelmezni a cserét, hogy magyar elválasztójelre (szóköz) cseréli le.
  Egy segédoszlop beiktatásával a Substitute (Helyette) képlet használatával és némi kis furfanggal megoldható a dolog:
  Selection.Offset(0, 1).Formula = "=Substitute(A1,""."","","")*1"
  Ez a kijelölt oszlop mellé képlettel átalakítja számmá a cellaértéket.
  Utána
  Selection.Offset(0,1).Value=Selection.Offset(0,1).Value 'beillesztés értékként
  Selection.Value=Selection.Offset(0,1).Value 'az eredeti helyre másoljuk.
  A segédoszlopot ki is törölheted.
  Ezzel a módszerrel oszlopról-oszlopra tudod a számokat átalakítani.
  Természetesen működik konkrét címmel megadott tartományra is.
  Pl Range("A2:A20").Offset(0,1)…. a B2:B20 cellákba másolja a képletet.

  Üdv.
  

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