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

• #48009 Delila_1 veterán F34R #48007

  Új Válasz 2021-12-13 07:47:19 #48009

  Ú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

  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

• #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