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

• Homer tag

  #1595

  #1594 martonx

  2012-01-20 14:41:46

  Új Válasz

  Ú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

  

  Homer

  tag

  #1594 martonx

  #1594 martonx

  A baj az, hogy amit szeretnél az kivitelezhető, de összetettsége miatt baromira nem egy fórum keretein belül.
  Klasszikusan elértél arra a szintre, ahol vagy veszed a fáradtságot és magadtól kimókolod a megoldást, vagy fizetsz érte, és helyetted egy szabadúszó programozó valamelyik ráérős estéjén megcsinálja neked.

  Nem olyan bonyolult ez. Nekem nem ez a munkám, de érdekel a dolog.
  Ezt hoztam össze:

  Public Sub proba()
  ....MsgBox (keres("h"))
  End Sub

  Public Function keres(mit As String) As Integer
  ...Dim elem As Object
  ...Dim oszlop As Integer
  ...oszlop = 0
  ...For Each elem In Range("A1", "Q1")
  .....oszlop = oszlop + 1
  .........If mit = elem.Value Then
  .............keres = oszlop
  .........End If
  ...Next
  End Function

  Hogy olvashatóbb legyen bepontpontpontoztam. Persze ha picit még gondolkodnék rajta biztosan találnék más megoldást is. (Pl. az elem típusa nem túl elegáns object-ként kezelve, dehát műxik.)

  A lényeg, hogy ha írsz egy ilyen function-t akkor azt bárhányszor meghívhatod a fenti sub-ban. Ez a megoldás A-tól Q oszlopig vizsgálja az egyezéseket. Ha nincs egyezés akkor 0-val tér vissza a függvény.

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