Ú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

• #48003 Delila_1 veterán F34R #48002

  Új Válasz 2021-12-12 15:35:53 #48003

  Ú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 #48002 üzenetére

  Ilyen nagy mennyiségnél (150-et írtál) más módszert javasolnék.
  A C2 érvényesítését a képen látod, a D2 képlete a szerkesztőlécen van.
  

• #47997 lappy őstag F34R #47996

  Új Válasz 2021-12-10 19:22:59 #47997

  Ú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

  

  lappy

  őstag

  válasz F34R #47996 üzenetére

  Választ(véletlen.között(1;2);"málna";"barack“)

• #12251 perfag aktív tag F34R #12250

  Új Válasz 2011-12-05 15:36:09 #12251

  Ú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

  

  perfag

  aktív tag

  válasz F34R #12250 üzenetére

  Lehetne érthetőbben? Valami kép, vagy mintaadatok sokat segítenének.

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