-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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.[ Szerkesztve ]
-
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[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Eladó Steam kulcsok kedvező áron!
- Steames kulcsok jó áron eladóak!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen