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

• #10067 Delila_1 veterán m.zmrzlina #10065

  Új Válasz 2011-04-12 19:56:05 #10067

  Ú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 m.zmrzlina #10065 üzenetére

  Le a kalappal!

  Van egy baj: a lehetséges betűk száma 14, HA függvényből viszont csak hetet lehet egymásba ágyazni. Ez az az eset, mikor makrót kell írni.

  Sub Leiras()
  Dim sor%, oszlop%, betu%, nev$
  
  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%)
  For betu% = 1 To Len(nev$)
  Cells(sor%, oszlop% + 1) = Cells(sor%, oszlop% + 1) & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
  Next
  Cells(sor%, oszlop% + 1) = Left(Cells(sor%, oszlop% + 1), Len(Cells(sor%, oszlop% + 1)) - 1)
  Return
  End Sub

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