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

• #15070 Fire/SOUL/CD félisten #05304832 #15069

  Új Válasz 2012-10-01 17:06:46 #15070

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

  Ennek jónak kell lennie

  Dim MyDestRange As Range
  Dim MyCell As Range
  Dim MyArray() As String, MyDig As String
  
  'Itt van beállítva, hogy G2-ben van az első cella
  'és egybefüggően az M oszlopig tart
  'Hogy az M oszlopban melyik az utolsó használt cella, azt a kód meghatározza
  Set MyDestRange = Range("G2:" & "M" & Cells(Cells.Rows.Count, "M").End(xlUp).Row)
  
  Application.ScreenUpdating = False
  For Each MyCell In MyDestRange
  With MyCell
  If Not IsEmpty(MyCell) Then
  xstr = .Text
  xstr = Replace(xstr, ".", ",", vbTextCompare)
  MyArray = Split(xstr, ",")
  MyDig = "#0."
  For i = 1 To Len(MyArray(1))
  MyDig = MyDig + "0"
  Next i
  .Value = xstr * 1#
  .NumberFormat = MyDig
  End If
  End With
  Next MyCell
  Application.ScreenUpdating = True

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