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

• #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.

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