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

• vilag tag

  #1597

  #1595 Homer

  2012-01-23 14:10:52

  Ú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

  

  vilag

  tag

  #1595 Homer

  #1595 Homer

  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.

  Üdv!

  Esetleg mit szóltok az excel "hol.van" (match) függvényére. Nekem úgy tűnik használható lenne az adott problémára.

  Az ötlet egyébként a kollégámé, őt illeti a dícséret.

  Microsoft excel súgó:
  "A függvény egy olyan elem tömbben elfoglalt relatív pozícióját adja vissza, amely megadott értékkel megadott módon egyezik. A HOL.VAN abban különbözik a többi kereső függvénytől, hogy a megtalált elem helyét adja meg, és nem magát az elemet.

  Szintaxis

  HOL.VAN(keresési_érték;tábla;egyezés_típus)

  Keresési_érték: Az az érték, amelynek segítségével a táblázatban a keresett érték megtalálható."

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