makroer

JA.

Det er normalt ikke nogen god løsning, hvad vil du gerne have foretaget ?

Jeg vil gerne have nogle ting til at ske med lidt forskydninger i et regneark.

det er til en practical joke med en kollega.

Hvordan gør man det ??

Denne starter på et specifikt tidspunkt, hvis regnearket er åbnet (leg med klokkeslettet)
Eksempel:
Sub foo()
    Application.OnTime Now + TimeValue(\"00:00:10\"), \"doit\"
End Sub

Sub doit()
    Cells(1, 1).Value = Cells(1, 1).Value + 1
End Sub

>flemmingdahl

hvis nu vil hav enogle tidsforskydninger indsat nedenstående makro, hvordan skal jeg så helt specifik gøre ?

Genvejstast:Ctrl+c
\'
    Cells.Select
    Selection.Copy
    Sheets(\"Ark1\").Select
    Cells.Select
    ActiveSheet.Paste
    Range(\"A1:D3\").Select
    ActiveWindow.Zoom = 75
    Range(\"D6:F128\").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets(\"Plan\").Select
    Range(\"D6:F127\").Select
    Selection.Copy
    Sheets(\"Ark1\").Select
    Range(\"D6\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range(\"D6:X18\").Select
    With Selection.Interior
        .ColorIndex = 46
        .Pattern = xlSolid
    End With
    Range(\"V16:AP25\").Select
    Selection.Interior.ColorIndex = 6
    Range(\"D17:AW33\").Select
    Selection.Interior.ColorIndex = 41
    Range(\"A16:F32\").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-5
    Range(\"E3:AQ17\").Select
    With Selection.Interior
        .ColorIndex = 41
        .Pattern = xlSolid
    End With
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 160.5, 45#, _
        349.5, 277.5).Select
    Selection.Characters.Text = _
        \"åh nej åh nej åh nej åh nej åh nej \" & Chr(10) & \"\" & Chr(10) & \"\" & Chr(10) & \"Hvad har du dog gjort , Charlotte ???????\" & Chr(10) & \"\" & Chr(10) & \"\" & Chr(10) & \"Har du ødelagt det hele??????\"
    With Selection.Characters(Start:=1, Length:=1).Font
        .Name = \"Arial\"
        .FontStyle = \"normal\"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection.Characters(Start:=2, Length:=110).Font
        .Name = \"Arial\"
        .FontStyle = \"fed\"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
    Range(\"B7\").Select
End Sub

Det hele er for nyligt blevet beskrevet i spørgsmål http://www.eksperten.dk/spm/97968.

Du kalder din rutine et eller andet f.eks. MinSub, og sætter følgende kode på den makro, som udløser din joke:

Application.OnTime Now + TimeValue(\"00:15:00\"),\"MinSub\"

Den makro, som udløser koden kan f.eks ligge i WorkbookOpen eventet, så tidsforsænkningen bliver udløst når filen åbnes.

Du kan f.eks. lave en makro som denne:

Sub TidsDrilleri()
    Application.OnTime Now + TimeValue(\"00:00:10\"), \"Nummer1\"
    Application.OnTime Now + TimeValue(\"00:00:30\"), \"Nummer2\"
    Application.OnTime Now + TimeValue(\"00:00:50\"), \"Nummer3\"
End Sub

Så deler du din makro op i 3 makroer, som f.eks. hedder Sub Nummer1() osv. Den første bliver kørt efter 10 sek. næste efter 30 sek. osv.