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

• Delila_1 veterán

  2012-03-07 07:31:22 #13138

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Vizes Tomi üzenetére #13127

  Épp tegnap írtam egy fórumtársunknak erre egy makrót. Két helyen javíts benne.
  Az egyik
  a cserélendő terület helye: ter = "$E$5: I1407",
  a másik az
  If IsNumeric(Mid(ertek, b%, 1)) Or Mid(ertek, b%, 1) = Chr(44) Then _ sorban a Chr(44)-ben a 44. Ott vessző volt a tizedes jel, de érdekes módon nem fogadta el
  Mid(ertek, b%, 1) ="," módon. Ha nincs tizedes tört az átalakítandó számok között, az
  Or Mid(ertek, b%, 1) = Chr(44) részt hagyd ki.

  Az ASCII értéket úgy határozhatod meg, hogy a szövegrészben kijelölöd a karaktert, másolod, és egy másik cellába beilleszted. Erre az új cellára hivatkozva a =KÓD(cella) megadja az értéket. Hosszabb karaktersorozat esetén az első karakter kódja a visszatérési érték.

  Sub Szam()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  
  Dim ter As String, sz As Variant, b%, uj$, ertek
  ter = "$E$5:I1407"
  For Each sz In Range(ter)
  ertek = sz
  If ertek <> "" Then
  uj$ = ""
  For b% = 1 To Len(sz)
  If IsNumeric(Mid(ertek, b%, 1)) Or Mid(ertek, b%, 1) = Chr(44) Then _
  uj$ = uj$ & Mid(ertek, b%, 1)
  Next
  Range(sz.Address) = uj$ * 1
  End If
  Next
  
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  MsgBox "Kész"
  End Sub

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