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

• Homer tag

  #1588

  #1587 Homer

  2012-01-19 17:23:35

  Ú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

  #1587 Homer

  #1587 Homer

  Én úgy oldanám meg első körben, hogy a fejléc sorain végigmennék egy each cells in row(1) ciklussal, aztán egy változóban eltárolnám azt az oszlopszámot ahol a cella értéke megyezik a keresett oszlopnévvel. Ezután már hivatkozhatsz arra az oszlopra mint oszlop sorszám...

  Vagy pl:

  Public Sub test()
  Dim Keresett As String
  Keresett = "Keresettoszlopszövege"
  oszlop = 1
  Dim megvan As Boolean
  megvan = False
  While Worksheets("Munka1").Cells(1, oszlop) <> Keresett And Not megvan And _ Worksheets("Munka1").Cells(1, oszlop) <> ""
  oszlop = oszlop + 1
  If Worksheets("Munka1").Cells(1, oszlop) = Keresett Then megvan = True
  Wend
  If megvan Then MsgBox (Keresett & " megvan, a következő oszlopban: " & oszlop) Else MsgBox ("Nincs meg")
  End Sub

  Mondjuk ha a keresett oszlop pont az első akkor nem működik, de nem tartana sokáig módosítani, hogy azzal is működjön. (Neked is hagyok gondolkodni valót )

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