2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    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

  • #48009 Delila_1 veterán F34R #48007
    Új Válasz #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 #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