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

• #53402 föccer nagyúr #77257183 #53400

  Új Válasz 2024-10-11 20:44:00 #53402

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

  

  
  Makró beszúrása, ha a munkalapon vagy, akkor alt+F11.
  Gombot a fejlesztőeszközök menöből lehet kirakni.

  Munka1 munkafüzeten, ez a makró:

  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
  End If
Next
Sheets("Munka1").Range("F3").Value = Sheets("Munka1").Cells(Fib_sorszam, 2).Value
Sheets("Munka1").Range("F4").Value = Fib_sorszam
End Sub
  
  ps: egyébként nagyon érzékeny az eredmény arra, hogy az első 1-2-3 lépésben mennyi pozitív lépés van.

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