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

• #53403 föccer nagyúr föccer #53402

  Új Válasz 2024-10-11 21:06:23 #53403

  Ú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

  

  föccer

  nagyúr

  válasz föccer #53402 üzenetére

  dehülye vagyok, a vissza lépés nincs benne

  Sub Gomb1_Click()
Dim Fib_sorszam As Integer
Dim Lepes_szam As Integer
Dim i As Integer
Fib_sorszam = 1
Lepes_szam = Sheets("Munka1").Range("F2").Value
For i = 1 To Lepes_szam
  If Application.RandBetween(0, 1) = 0 Then
    Fib_sorszam = Fib_sorszam + 1
  Else
    Fib_sorszam = Fib_sorszam - 2
    If Fib_sorszam < 1 Then
      Fib_sorszam = 1
    End If
  End If
Next
Sheets("Munka1").Range("F3").Value = Sheets("Munka1").Cells(Fib_sorszam, 2).Value
Sheets("Munka1").Range("F4").Value = Fib_sorszam
End Sub

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