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

• #1595 Homer tag martonx #1594

  Új Válasz 2012-01-20 14:41:46 #1595

  Ú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

  

  Homer

  tag

  válasz martonx #1594 üzenetére

  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