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

• #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.

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