Ist es möglich, Text in ein Excel-Benutzerformular über eine Befehlsschaltfläche auf demselben Benutzerformular einzugeben?

Question

Ich versuche, ein Excel-Benutzerformular scheinen sich eher wie eine unabhängige App als ein Benutzerformular zu verhalten. Ich würde lieber eine App programmieren, aber aufgrund der IT-Regeln des Unternehmens ist das keine Option.

Siehe Bild. Ist es möglich, Daten in ein aktives Textfeld auf dem Formular einzugeben, indem Sie eine Befehlstaste auf dem mitgelieferten Tastenfeld verwenden?

Bild von Userform:

Die Form ist noch nicht codiert.

Danke

Answer 1

Je nachdem, was Sie tun möchten. Sobald Sie auf die Schaltfläche klicken, um Daten für die Schaltfläche einzugeben, ist das Textfeld tatsächlich nicht mehr aktiv. Wenn Sie die Activetextbox aber nicht benötigen, können Sie den folgenden Code verwenden:

Nehmen wir an, Sie haben eine Schaltfläche btnOpenFile und ein Label lblInformation. Sie möchten, sobald Sie auf die Schaltfläche klicken, um "ALE ALE" in lblInformation zu erhalten.

Die einfachste Code, dies zu erreichen wahrscheinlich dieser ist:

Private Sub btnOpenFile_Click() 

    me.lblInformation = "ALE ALE" 

End Sub 

es Setzen Sie die Userform im Inneren.

Answer 2

So etwas wie dies zur Unterstützung meines Kommentars

Private tb As MSForms.TextBox 

Private Sub CommandButton1_Click() 
    tb.Value = tb.Value & CommandButton1.Caption 
End Sub 

Private Sub CommandButton2_Click() 
    tb.Value = tb.Value & CommandButton2.Caption 
End Sub 

Private Sub CommandButton3_Click() 
    tb.Value = tb.Value & CommandButton3.Caption 
End Sub 

Private Sub CommandButton4_Click() 
    tb.Value = tb.Value & CommandButton4.Caption 
End Sub 

Private Sub TextBox1_Enter() 
    Set tb = Me.TextBox1 
End Sub 

Private Sub TextBox2_Enter() 
    Set tb = Me.TextBox2 
End Sub