Ú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

• #27156 azopi74 addikt kangool #27155

  Új Válasz 2015-05-30 08:12:07 #27156

  Ú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

  

  azopi74

  addikt

  válasz kangool #27155 üzenetére

  Nem teljesen értem, mi a problémád. Persze hogy k.csavart ír, mivel a B2-be 2 van írva (a k.csavar kódja), nem pedig 2+2+5+7

  Az az x.termék pedig úgy látom állandó akar lenni, szóval akkor egészítsd ki Louro képletét így :

  ="X termék+"&HELYETTE(HELYETTE(HELYETTE(HELYETTE(B2;"2";"k.csavar");"5";"k.csavar2");"7";"l.alátét");"10";"x.menet.")

• #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ó

• #11277 Fire/SOUL/CD félisten kangool #11273

  Új Válasz 2011-09-10 14:50:49 #11277

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz kangool #11273 üzenetére

  Foxit Reader-ben van olyan funkció, hogy "lebutítja"/szövegesen jeleníti meg (nem konvertálásról van szó) a PDF-et, és onnan már át lehet copy/paste-ezni a dolgokat. Én még nem találkoztam olyan PDF-el, aminek a tartalmát így ne lehetett volna átvinni Excelbe, ha gondolod próbáld meg. (bár írtad, hogy több pdf olvasóval is próbálkoztál, de lehet, hogy a Foxitban nem használtad ezt a lehetőséget)

• #11274 perfag aktív tag kangool #11273

  Új Válasz 2011-09-09 08:28:57 #11274

  Ú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

  

  perfag

  aktív tag

  válasz kangool #11273 üzenetére

  Én konvertálnám Wordbe és onnan másolnám be. Itt online lehet. Egy próbát megér. Ha bejön és ismétlődő a problémád, akkor keress rá a pdf2word-re, tölts le valami ingyenest.

• #11272 m.zmrzlina senior tag kangool #11269

  Új Válasz 2011-09-08 12:58:19 #11272

  Ú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

  

  m.zmrzlina

  senior tag

  válasz kangool #11269 üzenetére

  Próbáltad másik PDF-fel is? Szerintem a PDF karakterkódolásán múlhat a dolog.

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