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

• #10070 m.zmrzlina senior tag Delila_1 #10067

  Új Válasz 2011-04-12 20:49:21 #10070

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

  Köszönöm az elismerést.

  Az önmagában nem baj, hogy 14 a lehetséges betűk száma, mert ha egy cellában nem szerepel belőlük 4-nél több (az eredeti kérdésben ez volt) akkor az =FKERES() táblázata (R57:S70) lehet nagyobb is.

  Az "oldjuk meg képlettel" koncepciómat inkább az fektetné két vállra ha jóval több mint 4 betű kombinációját kellene kezelni.

• #10069 Delila_1 veterán Delila_1 #10067

  Új Válasz 2011-04-12 20:02:58 #10069

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

  Egy kicsit átláthatóbban az előbbi makró:

  Sub Leiras()
  Dim sor%, oszlop%, betu%, nev$, cnev As Range
  
  Range("K57:K75,M57:M75,P57:P75").ClearContents
  
  For sor% = 57 To 75
  oszlop% = 10: GoSub Beir
  oszlop% = 12: GoSub Beir
  oszlop% = 15: GoSub Beir
  Next
  Exit Sub
  
  Beir:
  nev$ = Cells(sor%, oszlop%)
  Set cnev = Cells(sor%, oszlop% + 1)
  For betu% = 1 To Len(nev$)
  cnev = cnev & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
  Next
  cnev = Left(cnev, Len(cnev) - 1)
  Return
  End Sub

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