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

• #27163 Delila_1 veterán azopi74 #27162

  Új Válasz 2015-05-30 09:32:44 #27163

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

  Javítva

  Function Karaktercsere(Szoveg As Range) As String
  Dim strTemp As String, hossz As Integer, b As Integer, sor As Long
  Dim sz As String
  
  sor = Szoveg.Row
  sz = Szoveg.Value
  hossz = Len(Szoveg)
  
  For b = 1 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