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

• #8720 Fire/SOUL/CD félisten atesz90 #8716

  Új Válasz 2010-11-26 12:41:03 #8720

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz atesz90 #8716 üzenetére

  Egy makrós megoldás, csak a "változatosság kedvéért"...

  Private Sub CommandButton1_Click()
  
  Dim MyFxs As WorksheetFunction
  Dim Src_Range As Range
  Dim Dest_Range As Range
  
  Set MyFxs = Application.WorksheetFunction
  
  'Melyik tartmányban számolja meg a számokat
  Set Src_Range = Range("A1:B7")
  'Eredménytáblázat kezdőcellája (bal-felső)
  Set Dest_Range = Range("D1")
  
  For i = 1 To 100
  Dest_Range.Select
  With ActiveCell
  .Offset(i - 1, 0).Value = i
  .Offset(i - 1, 1).Value = MyFxs.CountIf(Src_Range, i)
  End With
  Next i
  
  Set MyFxs = Nothing
  Set Src_Range = Nothing
  Set Dest_Range = Nothing
  
  End Sub

• #8717 perfag aktív tag atesz90 #8716

  Új Válasz 2010-11-26 12:19:22 #8717

  Ú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

  

  perfag

  aktív tag

  válasz atesz90 #8716 üzenetére

  A képlet melletti oszlopba beírod 1, 2. Kijelölöd. A kijelölés bal alsó sarkára mozgatod az egérmutatót a kitöltő négyzetre itt, lenyomod, nyomva tartod, húzod lefelé, amikor 100-at mutat a kis súgó jel akkor felengeded.

  A =DARABTELI(A1:J100;1)-ben az 1 helyébe a cella címét tedd, ahol az 1 van.
  Ráállsz a szerkesztő lécen a kurzorral az A1:J100-ből előbb az A1-re és megnyomod az F4-et, majd a J100-ra és lenyomod az F4-et. Ezt kell kapnod:
  =DARABTELI($A$1:$J$100;K1)
  Ezt már lehúzhatod, csak a K1 fog változni.
  Kép.
  ... majd mindezek után elolvasol egy kezdő felhasználóknak szóló könyvet. Mi is onnan tudjuk mindezt.

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