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

• #10503 Delila_1 veterán m.zmrzlina #10501

  Új Válasz 2011-06-14 15:54:07 #10503

  Ú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 m.zmrzlina #10501 üzenetére

  Nálam egész számokat adott a 2.9, vagy a 0.2 helyett.
  Nem tudom már, mi volt a makróink között a különbség, ide rajzolom az enyémet.
  A value legtöbb helyen alapérték, nem kell kiírni, anélkül is 50 cm a változó meghatározása.

  Sub kiemel()
  Dim cella As Range, kiemeles As String
  
  For Each cella In Selection.Cells
  kiemeles = WorksheetFunction.Substitute(Mid(cella, WorksheetFunction.Search("(", cella) + 1, _
  WorksheetFunction.Search("%", cella) - WorksheetFunction.Search("(", cella) - 1), ".", ",")
  Worksheets("Munka2").Cells(cella.Row - 10, cella.Column) = kiemeles * 1
  Next
  End Sub

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