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

• #54010 royal828 csendes újonc merqree #54005

  Új Válasz 2025-01-31 21:04:01 #54010

  Ú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

  

  royal828

  csendes újonc

  válasz merqree #54005 üzenetére

  Köszi. MS Project lenne a tuti, ismerem, tört verzióval készítettem is vele ütemtervet, bemutattam cégünknél, de hiába nagy cég, nagy munkák, egy ilyenre sajnálják a pénzt, illetve ott vannak a kedves "fejlődni nem akaró" kollégák akik leszavazzák, mert meg kell tanulni és munka van vele Itt kb az a szint, hogy ki tudnak színezni egy cellát és a szumot használni tudják jó esetben..

• #53726 karlkani aktív tag merqree #53723

  Új Válasz 2024-12-22 12:03:29 #53726

  Ú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

  

  karlkani

  aktív tag

  válasz merqree #53723 üzenetére

  Szia!

  Nálam egy ikon van kirakva a gyorselérési eszkösztárra. A makrót a C:\Users\felhasználónév\AppData\Roaming\Microsoft\Excel\Xlstart\PERSONAL.XLSB tartalmazza, így akármilyen nyitott füzet esetén használható.

  Sub Veletlen()
Selection.FormulaR1C1 = "=RandBetween(1, 89)" '1 és 89 közötti egész szám
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False 'kijelöltség megszüntetése
End Sub

  Kijelölöm a cellákat, rákattintok az eszköztáron az ikonra és kész.

• #53724 Fferi50 Topikgazda merqree #53723

  Új Válasz 2024-12-22 11:00:12 #53724

  Ú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 merqree #53723 üzenetére

  Szia!
  Ennek és a VÉL,VÉLETLENTÖMB függvénynek is ez az alap - és megváltoztathatatlan tulajdonsága.
  Csak akkor nem változik, ha értékké alakítod (pl. másolás - irányított beillesztés értékként).
  Makróval megoldható, hogy az adott cellában véletlen szám jelenjen meg:
  Function veletlenkozott(a As Integer, b As Integer)
veletlenkozott = Application.RandBetween(a, b)
End Function
Sub general() ' ezt a makrót kell elindítanod
Selection.Value = veletlenkozott(1, 100)
End Sub
  A fentieket másold be egy makró modulba.
  Ráállsz a kívánt cellára, majd elindítod a general makrót.
  Ekkor a cellában megjelenik a példában 1 és 100 közötti véletlen érték.
  Ha ismét elindítod a makrót, akkor új véletlen szám fog megjelenni.
  A makrót hozzárendelheted egy billentyű kombinációhoz.
  Az 1 ill 100 helyére írd be a saját határaidat.
  A munkafüzetben engedélyezni kell a makrókat és makróbarátként kell mentened.
  Üdv.

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