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

• #48008 Delila_1 veterán F34R #48007

  Új Válasz 2021-12-12 22:14:08 #48008

  Ú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

  

  Delila_1

  veterán

  válasz F34R #48007 üzenetére

  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