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

• #53527 Fferi50 Topikgazda KaliJoe #53522

  Új Válasz 2024-11-12 09:33:57 #53527

  Ú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

  

  Fferi50

  Topikgazda

  válasz KaliJoe #53522 üzenetére

  Szia!
  Ha használhatsz makrót, akkor az alábbi lehetőséget próbáld ki:
  Sub szamkeres()
  Dim rngalap As Range, rngkeres As Range, rrow As Range, keresrow As Range, kerescell As Range, talalat As Integer, total As Integer
  Set rngalap = Range("A2").CurrentRegion
  Set rngkeres = Range("H2").CurrentRegion
  talalat = 0
  For Each keresrow In rngkeres.Rows
  For Each rrow In rngalap.Rows
  For Each kerescell In keresrow.Cells
  talalat = talalat + IIf(rrow.Find(what:=kerescell.Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing, 0, 1)
  Next
  If talalat = 3 Then total = total + 1
  talalat = 0
  Next
  Cells(keresrow.Row, 12).Value = total
  talalat = 0: total = 0
  DoEvents
  Next
  End Sub
  Ez a makró "egy menetben" végigkeresi a H2-től kezdődő tartomány számhármasait az A2 -től kezdődő adattartományban és az L oszlopban mellé írja a keresés eredményét.
  A2 és H2 esetében a hozzájuk tartozó összefüggő tartományt használja, ezért nem kell megadni csak a kezdő címet. Ezért az A:E és a H:J tartomány mellé kell legalább egy üres oszlop! Emiatt írja az eredményt az L oszlopba. Így ismételt futtatás esetén sem lesz gond a tartományokkal.
  Az alábbi függvény egy konkrét számhármast keres egy megadott tartományban:
  Function szamkereso(hol As Range, mit As Range) As Integer
Dim rnghol As Range, rngmit As Range, rngszam As Range, talalat As Integer, total As Integer
For Each rnghol In hol.Rows
    For Each rngmit In mit.Cells
        talalat = talalat + IIf(rnghol.Find(what:=rngmit.Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing, 0, 1)
    Next
    If talalat = 3 Then total = total + 1
    talalat = 0
Next
szamkereso = total
End Function
  Bemenő paraméterek:
  hol = az adattartomány címe - ha $-os formában adod meg, akkor húzható lefelé a képlet.
  mit = a keresendő számhármas címe
  Ez egy felhasználó által létrehozott függvény, ugyanúgy használható, mint a beépített függvények.
  Pl. =szamkereso($A$2:$E$100;H2:J2) a H2:J2 cellákban levő számhármas A2:E100 tartományban levő előfordulásának számát adja meg.
  A függvény érték frissül, ha változtatod az alap tartományban vagy a keresési értékben levő számokat.
  Az első makrót viszont változtatáskor ismét le kell futtatnod.
  Fontos:
  Hibakezelés nincs benne.
  Ha 3 egyforma számot keresnél, akkor rossz értéket ad vissza.
  A munkafüzetet makróbarátként vagy binárisként kell mentened!
  Üdv.

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