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

• #5739 Delila_1 veterán dtpeter #5737

  Új Válasz 2009-11-25 08:38:06 #5739

  Ú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

  

  Delila_1

  veterán

  válasz dtpeter #5737 üzenetére

  Sub ErtekKiiro()
  Dim szamok, CV, KivonatSor, KovKotSor As Long
  szamok = Array(270, 47, 393, 108, 406, 48, 328, 116, 7, 260)
  KovKotSor = 1
  
  For Each CV In szamok
  For KivonatSor = 2 To ActiveSheet.UsedRange.Rows.Count
  If Cells(KivonatSor, 1) = CV And Cells(KivonatSor, 5) <> 0 Then
  Cells(KovKotSor, 19) = CV
  Cells(KovKotSor, 20) = Cells(KivonatSor, 2)
  Cells(KovKotSor, 21) = Cells(KivonatSor, 5)
  KovKotSor = KovKotSor + 1
  End If
  Next
  Next
  End Sub

  A For Each-hez kell annyi magyarázat, hogy ez egy különleges ciklus. Ezzel nem kell két For-Next ciklust egymásba ágyazni, mert végiglép a megadott területen egyesével (sor, oszlop sorrendben), és a ciklusváltozó – jelen esetben CV – mindig felveszi az aktuális cella értékét.
  A .Value értéket nem kell feltétlenül beírni [Cells(KovKotSor, 20) = Cells(KivonatSor, 2)], mert ez az alapérték.

• #5738 Pulsar veterán dtpeter #5737

  Új Válasz 2009-11-24 23:59:08 #5738

  Ú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

  

  Pulsar

  veterán

  válasz dtpeter #5737 üzenetére

  az tudom, hogy deklarálni így tudsz:

  Dim stradat(2) As String
  stradat(1) = "akarmi"
  stradat(2) = "barmi"

  azt is tudom, hogy az első sorba a zárójelbe ha írsz értéket az lesz a tömb maximális mérete, ha üresen hagyod dinamikus lesz.
  Csak azt nem tudom hogyan tudsz a tömb elemeire hivatkozni
  De engem is érdekelne valaki megoldása.

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