Hirdetés

Keresés

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

  • 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