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?
-
Ellopták a Tesla akkumulátor-titkait
it Beperelte egy korábbi beszállítóját a Tesla, és azzal vádolja, hogy üzleti titkokat lopott a Tesla akkumulátorgyártási technológiájával kapcsolatban.
-
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.
-
PROHARDVER!
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
-
Delila_1
Topikgazda
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 SubSub 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 SubProgramozó: 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
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Canva Pro előfizetés - 1 éves
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Védje meg számítógépét a vírusoktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24