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

• #15078 Fire/SOUL/CD félisten #05304832 #15075

  Új Válasz 2012-10-01 17:54:30 #15078

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

  Pont az van, amit írtam, azaz vannak olyan cellák, amiből hiányzik a tizedeselválasztó, mert valamelyik fatökű lepkevadász egyszer 0-val, másszor meg 0.0-val jelöli a semmit...

  Ha lesz még hiba, azt már Te javítod a makróban, ez megint működik

  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
  If InStr(xstr, ".") > 0 Then
  xstr = Replace(xstr, ".", ",", vbTextCompare)
  MyArray = Split(xstr, ",")
  MyDig = "#0."
  For i = 1 To Len(MyArray(1))
  MyDig = MyDig + "0"
  Next i
  Else
  MyDig = "#0.0"
  End If
  .Value = xstr * 1#
  .NumberFormat = MyDig
  End If
  End With
  Next MyCell
  Application.ScreenUpdating = True

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