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

• #15048 Fire/SOUL/CD félisten #05304832 #15047

  Új Válasz 2012-09-30 13:27:19 #15048

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz #05304832 #15047 üzenetére

  Így próbáld. Ez az aktív munkalapon lecseréli a pont karakter az összes használt cellában. Nyilván ha nem az összes cellán kell a művelet, akkor majd átírod, de az elv benne van.

  Dim MyDestRange As Range
  Dim MyCell As Range
  
  Set MyDestRange = ActiveSheet.UsedRange
  
  For Each MyCell In MyDestRange
  With MyCell
  If Not IsEmpty(MyCell) Then
  .Value = Replace(.Value, ".", ",", vbTextCompare)
  .Value = .Value * 1#
  End If
  MyCell.NumberFormat = "General"
  End With
  Next MyCell

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