Ú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

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