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

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

  Új Válasz 2017-03-26 08:54:07 #34660

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

  Na akkor Delila javaslata alapján módosítva :

  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)) Or Mid(strSearch, i, 1) = Application.International(xlDecimalSeparator) Then
tempVal = tempVal + Mid(strSearch, i, 1)
End If
Next

SzámKivesz = tempVal
End Function

• #34656 Delila_1 veterán 0P1 #34650

  Új Válasz 2017-03-26 06:44:24 #34656

  Ú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

  

  Delila_1

  veterán

  válasz 0P1 #34650 üzenetére

  Ha a SzámKivesz függvényt nem stringként deklarálod, a

  SzámKivesz = tempVal*1

  számmá alakítja. A feltételbe bevenném a lehetséges elválasztókat is a számokon kívül, mert nem tudjuk, egész-, vagy törtszámokról van-e szó.

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