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

• #27165 Delila_1 veterán Delila_1 #27164

  Új Válasz 2015-05-30 11:04:30 #27165

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

  Érdemes volt elmenni, visszajönni. Útközben beugrott a megoldás a 10-zel kezdődő adatokhoz.

  Function Karaktercsere(Szoveg As Range) As String
  Dim strTemp As String, hossz As Integer, b As Integer, sor As Long
  Dim sz As String, kezd As Integer
  
  sor = Szoveg.Row
  sz = Szoveg.Value
  hossz = Len(Szoveg)
  
  If Left(sz, 2) = "10" Then
  strTemp = "x.menet"
  kezd = 3
  Else
  kezd = 1
  End If
  
  For b = kezd To hossz
  If Mid(sz, b, 1) = "2" Then
  strTemp = strTemp & "k.csavar"
  ElseIf Mid(sz, b, 1) = "5" Then
  strTemp = strTemp & "k.csavar2"
  ElseIf Mid(sz, b, 1) = "7" Then
  strTemp = strTemp & "l.alátét"
  ElseIf Mid(sz, b, 2) = "10" Then
  strTemp = Left(strTemp, Len(strTemp) - 1) & "+x.menet"
  b = b + 1
  Else
  strTemp = strTemp & Mid(sz, b, 1)
  End If
  Next b
  
  Karaktercsere = Cells(sor, "A") & "+" & strTemp
  End Function

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