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

• #27157 Delila_1 veterán kangool #27152

  Új Válasz 2015-05-30 08:21:08 #27157

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

  Egy felhasználói függvényes megoldás:

  Function Karaktercsere(Szöveg As Range) As String
  Dim strTemp As String, hossz As Integer, b As Integer, sor As Long
  Dim sz As String
  
  Const STR_2 As String = "[2]"
  Const STR_5 As String = "[5]"
  Const STR_7 As String = "[7]"
  Const STR_10 As String = "[10]"
  
  sor = Szöveg.Row
  sz = Szöveg.Value
  hossz = Len(Szöveg)
  
  For b = 1 To hossz
  If Mid(sz, b, 1) Like STR_2 Then
  strTemp = strTemp & "k.csavar"
  ElseIf Mid(sz, b, 1) Like STR_5 Then
  strTemp = strTemp & "k.csavar2"
  ElseIf Mid(sz, b, 1) Like STR_7 Then
  strTemp = strTemp & "l.alátét"
  ElseIf Mid(sz, b, 1) Like STR_10 Then
  strTemp = strTemp & "x.menet"
  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