Macro i kontrol element knap

Kør makro "test" ved tryk på TAB :
Application.OnKey "{TAB}", "'" & ThisWorkbook.Name & "'!test"

TAB tilbage til normal funktion :
Application.OnKey "{TAB}"


Maksimer vindue :
Application.WindowState = xlMaximized

TAB key macro fungerer rigtig fint og efter hensigten, men jeg tror jeg har formuleret mit spørgsmål vedr. maximering af vinduet forkert, så jeg prøver lige igen :-)

Med maximeret til fuldskærmsvisning mente jeg, at når vinduet er maximeret vil jeg så gerne have den til at vise arket i fuldskærmsvisning som når man går i menuen "vis" og vælger "fuldskærmsvisning" og samtidig fravælger både "overskrifter" og "formellinie" som sættes med flueben også under "vis" menuen!

Fuldskærmsvisning skal gerne ske attomatisk ved opstart!

Så skal denne indsættes i ThisWorkbook modulet

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Bingo!

Skriv lige et svar så skal du få dine velfortjente point!!

Tusinde tak for hjælpen:-)

velbekom

Jeg har lige opdaget en fejl her til sidst.

Jeg kan kun få macroen til at virke når jeg har afspillet den i macro boksen hvori der nu står:

Sub test()

Application.OnKey "{TAB}", "'" & ThisWorkbook.Name & "'!test"

Range("H11,H9,J9,H11:H25,J11,J11:J21,J11,J12,J22:J24,J25").Select
    Range("J25").Activate
    Selection.ClearContents
    Range("H9").Select

End Sub

Først når jeg har afspillet den i macromodulet kan jeg vende tilbage til arket og få den ønskede effekt ud af det og macrofunktionen virker kun indtil jeg lukker arket ned igen. Når jeg starter arket op påny duer macroen ikke længere. Hvad er mon galt her ?

Måske det ville være nemmere for dig at se hvad jeg mener hvis jeg sender mit ark til dig ?

Application.OnKey "{TAB}", "'" & ThisWorkbook.Name & "'!test"
ovenstående skal ikke være i test makroen men du kan evt. indsætte følgende 2 koder i ThisWorkbook modulet
Så aktiveres TAB når du åbner filen og tilbage til normal når du lukker

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{TAB}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "{TAB}", "'" & ThisWorkbook.Name & "'!test"
End Sub

Åbningskoden skal så se sådan ud

Private Sub Workbook_Open()
Application.OnKey "{TAB}", "'" & ThisWorkbook.Name & "'!test"
Application.DisplayFullScreen = True
End Sub

Så får jeg følgende fejlmeddelse:

Compile error
ambiguous name detected:workbook_open

Min ThisWorkBook ser således ud:

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Open()
Application.OnKey "{TAB}", "'" & ThisWorkbook.Name & "'!test"
Application.DisplayFullScreen = True

Range("H11,H9,J9,H11:H25,J11,J11:J21,J11,J12,J22:J24,J25").Select
    Range("J25").Activate
    Selection.ClearContents
    Range("H9").Select

End Sub

ok send til pm@madsen.tdcadsl.dk
så skal jeg fixe det :-)

du er en guttermand :-)

Det er sendet

Tillægsspørgsmål:


Egentligt er jeg ret godt tilfreds med arket som det er, men de 15 indgange som der er mulighed for et alt for lidt, der skal 60 mulige indgange til. Så for ikke at scoren i toppen af skærmen skal forsvinde ovenud af skærmbilledet har jeg forsøgt at bruge frys funktionen. Problemet med frys funktionen er blot følgende:

1. Jeg kan kun bruge frys funktionen når jeg ikke har arket sat i beskyttet tilstand hvilket er nødvendigt for at få Enter tasten til at skifte imellem spillerne. Ment således, at når jeg låser arket med frys funktionen starter den bare forfra ved makrostart når jeg har nået de 15 indgange ved at klikke på Enter tasten, så frys funktionen i stedet for at scrolle videre ned i de resterende score/indgangs felter samtidig med at toppen af skærmen bliver hvor den er, så  starter den forfra ved de 15 indgange!

2. Makroen "TAB" som skulle starte et nyt spil og stille markøren klar i celle (H11) virker ikke med frys funktionen - jeg får en "runtime error 1004"

Jeg har vedhæftet arket i beskyttet tilstand så du kan se hvad jeg mener. Slår du beskyttet tilstand fra kan du sagtens bruge frys funktionen både med muserullen og piletasterne så den scroller korrekt ned, men så har jeg mistet funktionen med enter tasten  der som nævnt skifter imellem spillerne, hvilket jo er en primær funktion for at arket kan anvendes!