PROHARDVER! témák
Mobilarena témák
IT café témák
-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
Fire/SOUL/CD
félisten
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
Új hozzászólás Aktív témák
Topikgazda
Fferi50Aktív témák
- Melyik hordozható audiolejátszót (DAP, MP3, stb.) vegyem?
- Cyberpunk 2077
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Battlefield 6
- Milyen okostelefont vegyek?
- Mini-ITX
- Milyen billentyűzetet vegyek?
- Filmvilág
- Debrecen és környéke adok-veszek-beszélgetek
- Kerékpárosok, bringások ide!
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- BESZÁMÍTÁS! ASRock B450M R5 3600 16GB DDR4 512GB SSD GTX 1660 Super 6GB Rampage SHIVA DeepCool 400W
- HP EliteBook 840 G8 14" i5 1145G7, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- Bomba ár! Lenovo ThinkPad T480s - i5-8G I 8GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- Corsair NAUTILUS RS LCD-Modul, Display, Kijelző
- 27% - Philips Evnia 27M2N3200S IPS Monitor! 1920x1080 / 180Hz / 0.5ms / FreeSync
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest