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

• #31566 Delila_1 veterán bteebi #31560

  Új Válasz 2016-05-18 19:19:33 #31566

  Ú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 bteebi #31560 üzenetére

  Jobbnak látom feltölteni a módosított füzetet.

  Előbb 1 hétre csak 2 embert "sorsoltam ki", ebben 2×2-t.

• #31565 Delila_1 veterán bteebi #31560

  Új Válasz 2016-05-18 18:54:00 #31565

  Ú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 bteebi #31560 üzenetére

  Többszöri futtatásnál előfordult az ellenőrző F oszlopban IGAZ érték, ami azt jelzi, hogy saját magával került valaki egy műszakba. Ilyenkor kell egy új futtatás.

  Az L oszlopban látszik, hogy egyenletesen oszlik meg a beosztások száma a dolgozók között.

• #31562 Delila_1 veterán bteebi #31560

  Új Válasz 2016-05-18 18:39:18 #31562

  Ú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 bteebi #31560 üzenetére

  Kicsit másképp rendeztem az adatokat. Az A oszlopban vannak a hetek 21–52-ig. A heti 2 dátum a B és C oszlopban látható. A neveket a K oszlopba tettem.
  A makró a heti 2 nevet a D és E oszlopba írja be. Két ellenőrző oszlopot tettem be az F, ill. az L oszlopba, a képen látszik ezeknek a képlete.

  A makró

  Sub Beosztas()
  Const also = 1: Const felso = 17
  Dim napok(1 To 17), db As Long, tele As Long
  Dim sor As Integer, oszlop As Integer, dolg As Integer
  
  For sor = 2 To 33
  For oszlop = 4 To 5 'D:E
  Veletlen:
  Randomize
  dolg = Round(Rnd() * (felso - also) + also, 0)
  If napok(dolg) = "X" Then GoTo Veletlen
  napok(dolg) = "X"
  
  Cells(sor, oszlop) = Cells(dolg, 11) 'K oszlop, nevek
  DoEvents
  db = 0
  For tele = 1 To 17
  If napok(tele) = "X" Then
  db = db + 1
  End If
  Next
  
  If db = 17 Then
  For tele = 1 To 17
  napok(tele) = ""
  Next
  db = 0
  End If
  Next
  Next
  End Sub

  

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