Ú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.

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

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