Hirdetés

2024. május 6., hétfő

Lapcsaládunk:

Gyorskeresés

Legfrissebb anyagok

Általános témák

LOGOUT.hu témák

Szakmai témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD.hu témák

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Téma összefoglaló

Téma összefoglaló

  • Utoljára frissítve: 2023-11-13 08:31:56

LOGOUT.hu

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.

Összefoglaló kinyitása ▼

Hozzászólások

(#48009) Delila_1 válasza F34R (#48007) üzenetére


Delila_1
Topikgazda

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

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Támogatóink

Copyright © 2000-2024 PROHARDVER Informatikai Kft.