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

• #34650 0P1 aktív tag 0P1 #34649

  Új Válasz 2017-03-25 22:11:02 #34650

  Ú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

  

  0P1

  aktív tag

  válasz 0P1 #34649 üzenetére

  Ha 15 számjegynél többet is le akarsz kezelni, akkor viszont a kimenet nem lehet szám, csak sztring, ez viszont sztenderd worksheet függvényekkel csak nagyon komplikáltan oldható meg. Ebben az esetben sokkal egyszerűbb egy UDF VBA-ban:

  Function SzámKivesz(strSearch As String) As String



Dim i As Integer, tempVal As String
For i = 1 To Len(strSearch)
If IsNumeric(Mid(strSearch, i, 1)) Then
tempVal = tempVal + Mid(strSearch, i, 1)
End If
Next

SzámKivesz = tempVal
End Function

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