Hirdetés

  • Elden Ring - Shadow of the Erdtree teszt

    gp Több, mint két évet kellett várni az Elden Ring első, és valószínűleg egyetlen kiegészítőjére. Megérte vajon a várakozást?

  • Olcsó USB WiFi AC adapter

    lo Egy olcsó WiFi AC USB adapter jó szolgálatot jelenthet, ha az új router csak elvileg támogatja a 2,4 GHz-es átvitelt.

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

  • Delila_1

    Topikgazda

    válasz CsoGe #36751 üzenetére

    A gombhoz a Veletlen makrót rendeld, ez hívja meg a Inditas-t.

    Sub Veletlen()
    Dim kezd As Long, sor As Long

    If Range("AA1") = "" Then
    Inditas
    Else
    MsgBox "Nyugi! 5 mp után újra indul" & vbLf & _
    "ha ezt leokéztad", vbInformation
    Application.Wait Now + TimeValue("0:00:05")
    Inditas
    End If
    Range("AA1") = "Indítva"
    End Sub

    Sub Inditas()
    Dim kezd As Long, sor As Long

    kezd = Range("E" & Rows.Count).End(xlUp).Row + 1
    If kezd = 2 Then kezd = 1
    For sor = kezd To kezd + 4
    Cells(sor, "E") = Int(Rnd() * 153) + 1
    Next
    End Sub

    Érdemes a ThisWorkbook laphoz rendelni egy makrót, ami a füzet behívásakor kiüríti az AA1 cellát.
    Private Sub Workbook_Open()
    Sheets("Munka1").Range("AA1") = ""
    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.

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