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

• #37133 Delila_1 veterán CsoGe #37131

  Új Válasz 2018-01-26 18:15:21 #37133

  Ú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

  

  Delila_1

  veterán

  válasz CsoGe #37131 üzenetére

  Ha kellő számúan viszed be a random számokat, akkor lesz közöttük ismétlődés.

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

• #37127 Delila_1 veterán CsoGe #37126

  Új Válasz 2018-01-26 07:56:16 #37127

  Ú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

  

  Delila_1

  veterán

  válasz CsoGe #37126 üzenetére

  Szia Gergő!

  Betettem egy új sort, ami rendbe teszi a véletlenek lelkét.

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

kezd = Range("D" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
Randomize 'ez a sor a lelke
For sor = kezd To kezd + 4
Cells(sor, "D") = Int(Rnd() * 111) + 1
Next
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.

• #36762 Delila_1 veterán CsoGe #36761

  Új Válasz 2017-12-14 16:49:15 #36762

  Ú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

  

  Delila_1

  veterán

  válasz CsoGe #36761 üzenetére

  Szívesen, de el fogok ugrani.

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

• #36759 Delila_1 veterán CsoGe #36758

  Új Válasz 2017-12-14 07:13:21 #36759

  Ú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

  

  Delila_1

  veterán

  válasz CsoGe #36758 üzenetére

  A Veletlen és az Inditas makrót 1 modulba tedd. A Private Sub Workbook_Open()-t a ThisWorkbook laphoz rendeld úgy, hogy bal oldalon duplaklikkel kiválasztod a ThisWorkbook lapot, majd a jobb oldalon megjelent üres felületre másold be. Ez utóbbit nem kell gombhoz rendelned, automatikusan indul a fájl megnyitásakor. Ez csak törli a Munka1 lap AA1 cellájának a tartalmát, hogy első indításkor ne legyen késleltetés.

  1 gombhoz csak 1 makrót lehet rendelni. A mostani feladatban a Veletlen hívja az Inditas makrót.

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

• #36754 Delila_1 veterán CsoGe #36751

  Új Válasz 2017-12-13 11:34:15 #36754

  Ú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

  

  Delila_1

  veterán

  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.

• #36747 Delila_1 veterán CsoGe #36746

  Új Válasz 2017-12-12 17:36:37 #36747

  Ú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

  

  Delila_1

  veterán

  válasz CsoGe #36746 üzenetére

  Szívesen.

  Üres E oszlop esetén a kezd változó értéke 2 lesz. Az értékadás után ezért írtam be a

  if kezd=2 then kezd=1

  sort.

  [ Szerkesztve ]

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

• #36745 Delila_1 veterán CsoGe #36741

  Új Válasz 2017-12-12 17:08:13 #36745

  Ú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

  

  Delila_1

  veterán

  válasz CsoGe #36741 üzenetére

  Esetleg így:

  Sub Veletlen()
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

  [ Szerkesztve ]

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

• #36743 Fferi50 Topikgazda CsoGe #36741

  Új Válasz 2017-12-12 16:16:42 #36743

  Ú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

  

  Fferi50

  Topikgazda

  válasz CsoGe #36741 üzenetére

  Szia!

  Amennyiben az E oszlopod folyamatosan van töltve, akkor az első üres cellát a következő adja:

  Range("E1").End(xlDown).Offset(1,0)

  Innen indíthatod a ciklust.

  Üdv.

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