- Komoly akcióval érkezik Magyarországra a Honor Magic V5
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Hivatalos a OnePlus 13 startdátuma
- Sony Xperia 1 VII - Látod-e, esteledik
- Szinte játékpénzért megvehető a Honor Play 10C
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Samsung Galaxy A54 - türelemjáték
Hirdetés
-
Mobilarena
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
-
Delila_1
veterán
Nem értettem, hogy "csak az utolsot kilistanzi". Nem lehet 1 adatot kilistázni. Azt hiszem, arra gondolsz, hogy a 150 szavazat végrehajtása után jelenjen meg a 150 eredmény.
A mostani makró ezt az A oszlopba írja ki, majd a B1 cellába beírja az egyik választás darabszámát, a C1-be a másikét.Sub Szavazas()
Dim x As Integer, veletlen As Integer
Dim almaDb As Integer, korteDb As Integer
For x = 1 To 150
Randomize: Calculate
veletlen = Application.WorksheetFunction.RandBetween(1, 2)
Select Case veletlen
Case 1: almaDb = almaDb + 1: Cells(x, 1) = "alma"
Case 2: korteDb = korteDb + 1: Cells(x, 1) = "körte"
End Select
Next
Cells(1, 2) = "alma " & almaDb & " db"
Cells(1, 3) = "körte " & korteDb & " db"
Columns("A:C").EntireColumn.AutoFit
End Sub
-
Delila_1
veterán
Ennek így nem sok értelmét látom. Ha csak az utolsó véletlent kell kiírni, az pontosan annyit ér, mintha csak egyszer szavaznál.
Írtam egy kis makrót arra, hogy 150 választás közül azt írja ki, amelyikre többen szavaztak.Sub Szavazas()
Dim x As Integer, veletlen As Integer
Dim almaDb As Integer, korteDb As Integer
For x = 1 To 150
Randomize: Calculate
veletlen = Application.WorksheetFunction.RandBetween(1, 2)
Select Case veletlen
Case 1: almaDb = almaDb + 1
Case 2: korteDb = korteDb + 1
End Select
Next
If almaDb > korteDb Then
Cells(1) = "alma = " & almaDb & " db"
Else
Cells(1) = "korte = " & korteDb & " db"
End If
End Sub
Új hozzászólás Aktív témák
- Nyaralás topik
- NVIDIA GeForce RTX 3060 Ti / 3070 / 3070 Ti (GA104)
- Kezdő fotósok digitális fényképei
- Autós topik
- Komoly akcióval érkezik Magyarországra a Honor Magic V5
- Futás, futópályák
- Vigneau interaktív lokálblogja
- Kuponkunyeráló
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- sziku69: Szólánc.
- További aktív témák...
- DELL PowerEdge R630 rack szerver - 2xE5-2680v4 (28c/ 56t, 2.4/3.3GHz), 128GB RAM, 10G, áfás szla
- BESZÁMÍTÁS! ASRock B550M R5 5600 32GB DDR4 512GB SSD RTX 4060 TI 16GB Zalman N5 Chieftec 700W
- HIBÁTLAN iPhone 11 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS2132
- Keresünk dokkolókat
- Wacom Cintiq DTK-2260 digitális rajztábla
Állásajánlatok
Cég: FOTC
Város: Budapest