Sub Macro12() Sheets(\"SELECT COMPONENT\").Select Range(\"A1\").Select
Message = \"Indtast HVM timer\" \'Set prompt. Title = \"HVM TIMER\" \' Set title. Default = \"0\" \'set default \'Display message, title, and default value. MyValue = InputBox(Message, Title, Default) \'display dialog at position 100,100 ActiveCell.FormulaR1C1 = MyValue
End Sub
hvorfor virker det ikke ? Det er en del af et program hvor der skal komme en dialog kasse frem og så kan men indføre time antal for vores hovedmotor. det virker desværre ikke. har du en ide.
Fejlen ligger i variablen Default. Default er en beskyttet konstant og kan derfor ikke tildeles en anden værdi. Med den ændring som jeg har lavet så virker det.
Sub Macro12() Sheets(\"SELECT COMPONENT\").Select Range(\"A1\").Select
Message = \"Indtast HVM timer\" \'Set prompt. Title = \"HVM TIMER\" \' Set title. DefTekst = \"0\" \'set default \'Display message, title, and default value. MyValue = InputBox(Message, Title, DefTekst) \' Linierne herunder er også brugbare \' MyValue = InputBox(Message, Title, Default) :\' Her vil Default være = 0 \' MyValue = InputBox(Message, Title, Default:= 25) :\' Her vil Default værer = 25 \' MyValue = InputBox(Message, Title, Default:= \"Test\") :\' Her vil Default værer = Test \' MyValue = InputBox(Message, Title, \"Peter\") :\' Her vil Default værer = Peter \'display dialog at position 100,100 ActiveCell.FormulaR1C1 = MyValue End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
