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

• martonx veterán

  #1596

  #1595 Homer

  2012-01-20 16:07:40

  Ú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

  

  martonx

  veterán

  #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.

  Nekem meg ez a munkám, de annyira nem érdekel a dolog, hogy a nagyon hosszú leírásból egyáltalán kibogozzam, hogy mit is szeretne emberünk. A megoldásod tényleg elég egyszerű.

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