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

• #33140 Fferi50 Topikgazda lenkei83 #33139

  Új Válasz 2016-11-04 17:56:48 #33140

  Ú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

  

  Fferi50

  Topikgazda

  válasz lenkei83 #33139 üzenetére

  Szia!

  Szerintem a Copy ágon nincs régi érték...
  Ha több cellából áll a Target tartomány, akkor két lehetőséged van:
  - vagy a Target tartomány celláin mész végig for each ciklussal és egyenként hívod meg a függvényt,
  - vagy és ez szerintem a jobb, hogy a függvényből paraméteres eljárást csinálsz és ezen belül megy végig a ciklus a range celláin:
  Sub RemoveNotNum(ByRef myRange As Range)
Dim xOut As String, xTemp As String, i As Integer, xstr As String, cl As Range
xOut = ""
For Each cl In myRange
For i = 1 To Len(cl.Value)
xTemp = Mid(cl.Value, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
cl.Value = xOut
xOut = ""
Next
End Sub
  (Ez már csaknem az eredeti makró :-)
  A meghívás pedig RemoveNotNum Target (illetve a Target helyett írhatod azt a tarrtományt, amelyből ki szeretnéd venni a nem szám karaktereket.
  Itt már nem kell zárójel, mert nem függvény, hanem eljárás ami működik. Ez akkor is működik, ha csak egy cella van kijelölve, akkor is, ha több.

  Üdv.

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