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

• #5028 wjani tag AvLav #5027

  Új Válasz 2009-06-09 08:37:31 #5028

  Ú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

  

  wjani

  tag

  válasz AvLav #5027 üzenetére

  Szia!

  Valamennyire érthető, de..........
  Ha elmesélhetnéd, hogy milyen célt fog szolgálni,akkor talán jobban értenénk. Vagy talán más megoldást tudnánk ajánlani.

  Üdv
  Wjani

• #4455 Fehér Mancs tag AvLav #4452

  Új Válasz 2009-02-03 23:47:38 #4455

  Ú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

  

  Fehér Mancs

  tag

  válasz AvLav #4452 üzenetére

  Azt hittem, hogy ez már megoldódott... A lényeg, hogy amikor macro-val cserélsz, akkor az excel angol formátumú számokban gondolkodik, neki a pont a tizedesvessző és a vessző az ezres elválasztó, ilyen formáumra kell hozni a cserével a szöveget. Csere után, ha általános formátumú a cella, mindig megvizsgálja a progi, hogy számmá vissza lehet-e e formában írni.

  Vagyis, ha a 1.800,12-ben kicseréled a pontot macroval, akkor 1800,12-t akar visszaírni, ami számára nem szám/vagy pedig, ami még rosszabb, ezres elválasztónak érzékeli a vesszőt. Ha ilyenkor a pontot pontra cseréljük (mintha nem is csinálnánk semmit), akkor az angol számformátum alapján felismeri, hogy mi a valódi ezres elválasztó és a pont, és azt írja vissza.

  Amúgy adatok importjánál nem lehet ezt már lekezelni? Ha előtte beállítod az ezres elválasztót és a pont formátumot, az excel rögtön felismeri, hogy szám (options->International menűpont).

• #4435 Gabcsika tag AvLav #4434

  Új Válasz 2009-02-01 21:51:38 #4435

  Ú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

  

  Gabcsika

  tag

  válasz AvLav #4434 üzenetére

  Szia!

  Köszi szépen, de ez teleírja a Sheet2 B oszlopát 1-esekkel...

• #4409 Gabcsika tag AvLav #4402

  Új Válasz 2009-01-29 12:57:32 #4409

  Ú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

  

  Gabcsika

  tag

  válasz AvLav #4402 üzenetére

  Nagyon köszönöm! Frappáns megoldás!
  Kíváncsiságból a macrozott verzió milyen lenne?

• #4403 VANESSZA1 őstag AvLav #4401

  Új Válasz 2009-01-28 20:29:49 #4403

  Ú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

  

  VANESSZA1

  őstag

  válasz AvLav #4401 üzenetére

  Köszi erre gondoltam..

• #4383 Fehér Mancs tag AvLav #4381

  Új Válasz 2009-01-19 09:15:45 #4383

  Ú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

  

  Fehér Mancs

  tag

  válasz AvLav #4381 üzenetére

  A probléma az, hogy a macro a számokat angolosan látja, vagyis tizedesvesszőként pont szerepel; ha azt kicseréled, akkor elvész a nagyságrend. (A visszaírásnál is így kell megadni).

  Két megoldást látok:
  - egyik, hogy az excelbe való betöltésnél kezeljük ezt le (Tools->Options->International menüpontban be kell állítani a konvertálás idejére a ","-ős ezresválasztót és "."-os tizedesvesszőt.

  - másik, hogy a macro csak a szöveges mezőket alakítja át, angolos lelkületűre (futtatás előtt ki kell választani az átalakítandó cellákat):

  Sub Macro6()
  Dim rngCell As Range
  
  For Each rngCell In ActiveWindow.RangeSelection
  If VarType(rngCell.Value) = vbString Then
  rngCell.Replace What:=".", Replacement:=""
  rngCell.Replace What:=",", Replacement:="."
  End If
  Next rngCell
  
  End Sub

  Reméljük ez megoldja a problémát.

• #4382 Delila_1 veterán AvLav #4381

  Új Válasz 2009-01-18 17:11:15 #4382

  Ú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 AvLav #4381 üzenetére

  Sub Csere()
  Range("A1:A1000").Select
  Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False
  
  For Each cv In Worksheets("Munka1").Range("A1:A1000")
  Range(cv.Address) = Left(cv.Value, Len(cv.Value) - 3)
  Next
  End Sub

  Ez a makró megcsinálja mindegyik cserét, de a futtatása előtt a Range("A1:A1000")-et két helyen, és a Munka1-et írd át a saját értékeidre.

• #4380 Delila_1 veterán AvLav #4377

  Új Válasz 2009-01-18 11:27:53 #4380

  Ú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 AvLav #4377 üzenetére

  A pontok eltávolítása után jelöld ki az oszlopot, és vagy a cellaformázásnál, vagy még egyszerűbben az erre alapbeállításban rendszeresített "Tizedeshelyek csökkentése" ikonnal szedd le a két tizedes jegyet.

• #4379 vakondka őstag AvLav #4378

  Új Válasz 2009-01-18 10:31:41 #4379

  Ú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

  

  vakondka

  őstag

  válasz AvLav #4378 üzenetére

  Működik !

  Köszönöm szépen

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