Ú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

• #27154 lappy őstag kangool #27152

  Új Válasz 2015-05-29 14:48:49 #27154

  Ú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

  

  lappy

  őstag

  válasz kangool #27152 üzenetére

  Ha meg van a szöveg akkor meg így lehet minden kombinációt legyártani

  Alt+F11 VBA mód,
  Insert ► Module (Alt+I,M). beilleszt Book1 - Module1 (Code),
  
  Sub name_by_name()
  Dim i As Long, j As Long, lr As Long
  With ActiveSheet
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To lr
  For j = i + 1 To lr
  .Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = _
  .Cells(i, 1).Value & ", " & .Cells(j, 1).Value
  Next j
  Next i
  End With
  End Sub

• #27153 Louro őstag kangool #27152

  Új Válasz 2015-05-29 14:32:34 #27153

  Ú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

  

  Louro

  őstag

  válasz kangool #27152 üzenetére

  HA jól értem a számokat akarod a megfelelő nevekre lecserélni.

  Vagy a CTRL+H kombót használnám (csere) vagy az eredetit meghagyva a jövőre gondolvas vagy HELYETTE függvény segítségével egy új munkalapon.

  =HELYETTE(Forrásszöveg;számjegy;számjegynek megfelelő szöveg)

  A táblázat alapján automatizálható. Csak a "szótártáblát" szét kell szedni. (MElyik szám melyik alkatrésznek felel meg.)

  Pl: F2-be =HELYETTE(HELYETTE(HELYETTE(HELYETTE(B2;"2";"k.csavar");"5";"k.csavar2");"7";"l.alátét");"10";"x.menet.")

  Ez csak a 2. oszlopban levőket cserélni le. Lefelé és oldalirányba is másolható

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