sætte genvejstast til en knap i et vba vindue

DU skal angive nogle egenskaber for knapperne :

CommandButton1.Default=True;

CommandButton2.Cancel=True;

Så vil disse 2 automatisk reagere på hhv. Enter og ESC knap.

Hvis du vil bruge andre taster end Enter og ESC, så skal du på knappen's property "Accelerator" angive, hvilken tast denne knap skal respondere på....det skal være et bogstav, der indgår i Knappens Caption

Tak!
Det med Accelerator knapperne er super!
Ang. "CommandButton1.Default=True" det virker fint, men hvor skal koden placeres henne hvis der er flere faneblade med knapper på som skal bruge samme "Enter":

"Fane 1"
OK->
Private Sub CommandButton1_Click()
Range("C2").Value = TxtA.Value
frmret.Hide
End Sub

Anuller->
Private Sub CommandButton2_Click()
frmret.Hide
End Sub

"Fane 2"
OK->
Private Sub CommandButton3_Click()
Range("C2").Value = TxtA.Value
frmret.Hide
End Sub

Anuller->
Private Sub CommandButton4_Click()
frmret.Hide
End Sub

Ja, den var straks lidt sværere....
Det kræver en del kode at skifte Enter/ESC knappens funktion.

Jeg prøver lige at finde en løsning....

OK, Nu har jeg en løsning på dit problem

på dine OK/Cancel knapper skal du sætte en oplysning i controllen TAG-property. Tage'en skal værer HHV ENTER og ESC.

Indsæt derefter denne kode på din Userform. Koden reagerer hvergang din multipage skifter side, og den gør det at den control, der har ENTER ståend i taggen får sat sin Default Property til TRUE. TIlsvarende får den control der har ESC stående i Taggen sat sin Cancel Property til True.

Private Sub MultiPage1_Change()
Dim ctrl As Control

    For Each ctrl In MultiPage1.Pages(MultiPage1.Value).Controls
   
        If ctrl.Tag = "ENTER" Then ctrl.Default = True
       
        If ctrl.Tag = "ESC" Then ctrl.Cancel = True
   
    Next


End Sub

Jeg håber at det kan bruges:-) Ellers kan jeg lige sende mit Test regneark, hvor det fungerer uden problemer

Takker det virker fint