-
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
-
Delila_1
Topikgazda
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
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Luck Dragon: Asszociációs játék. :)
- Google Pixel 6/7/8 topik
- Helldivers 2 (PC, PS5)
- Amazon Fire TV stick/box
- Milyen okostelefont vegyek?
- Gmail
- Szolnok és környéke adok-veszek-beszélgetek
- exHWSW - Értünk mindenhez IS
- Milyen asztali médialejátszót?
- További aktív témák...
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steames kulcsok jó áron eladóak!
- World of Warcraft Shadowlands Collectors edition EU EN
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest