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

• #54238 Mutt senior tag föccer #54237

  Új Válasz 2025-03-12 23:57:37 #54238

  Ú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

  

  Mutt

  senior tag

  válasz föccer #54237 üzenetére

  Szia,

  Nem kell két dictionary, hogy tudd melyik receptből mennyi van. A kulcs (key), mellett van az item tulajdonság is. A receptDict teljesen felesleges.

      ' Receptszámok összegyűjtése és számlálása
  Set receptCount = CreateObject("Scripting.Dictionary")
    osszesMinta = 0
    
    For i = 2 To lastRow
        If alapadatok.Cells(i, 1).Value = valasztottUzem Then
            receptSzam = alapadatok.Cells(i, 2).Value
            osszesMinta = osszesMinta + 1
          If Not receptCount.Exists(receptSzam) Then
               receptCount.Add receptSzam, 1
            Else
               receptCount(receptSzam) = receptCount(receptSzam) + 1
            End If
        End If
    Next i
  
  üdv

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