VBA-Wie machen Sie das kopieren und einfügen in eine Userform mit der rechten Maustaste auf?

Ich zulassen möchten, dass Benutzer in der Lage sein, zum einfügen von Werten in die Textfelder in einer userForm in VBA. Sie können verwenden Strg-v ganz gut, aber nicht jeder weiß, wie das geht.

Wie aktiviere ich das kopieren und einfügen mit einem rechts-Klick-Menü?

Sollte es nicht eine default-Verhalten, wenn du mit der rechten Maustaste auf ein Textfeld, das standard-Menü sollte angezeigt werden, mit Cut/Paste etc?
Ich dachte, es war die Standard-und nicht denken, es wäre ein Problem, bis ich habe einige Beschwerden von Nutzern, die konnte sich nicht einfügen. Ich habe versucht, einen Rechtsklick auf das Textfeld und nichts öffnet sich. Strg-v funktioniert gut, jedoch.

InformationsquelleAutor BrianZ | 2010-02-04

  1. 2

    Ich weiß, dies ist eine alte post, aber ich glaube, es gibt eine effizientere Methode.

    Userform Kontext-Menü-Klasse code

    http://www.andypope.info/vba/uf_contextualmenu.htm

    Gibt es auch Beispiel-excel-Tabellen für die code Beispiele.

    Die Klasse Modul behandelt die Konstruktion des Kontext-Menü, das erfassen der rechts-Klick in die Textfelder und den eigentlichen Schnitt. Kopieren und Einfügen von Aktionen. Die Klasse nutzt die userform die ActiveControl-Objekt. Der code selbst behandelt Steuerelemente in container-Steuerelemente wie Frames und Multiseiten.

    Den Folgen von code für die Initialisierung, aus der die userform zeigt, wie einfach es ist, zu definieren, und verwenden Sie das class-Objekt. Sie müssen nur eine variable deklarieren, die das Objekt und legen Sie dann einen Verweis für jede textbox, die Sie haben wollen, Kontext-Menü-Funktionen. Sie können Schleife über alle Steuerelemente und automatisch die Referenz jedes Textfeld.

    Private m_colContextMenus As Collection

Private Sub UserForm_Initialize()

    Dim clsContextMenu As CTextBox_ContextMenu
    Dim cTRL as Control

    Set m_colContextMenus = New Collection

    For Each cTRL In Me.Controls
        Select Case TypeName(cTRL)
        Case "TextBox"
            'MsgBox cTRL.Name & ": " & Me.Controls(cTRL.Name).Value          
            Set clsContextMenu = New CTextBox_ContextMenu
            With clsContextMenu
                Set .TBox = Me.Controls(cTRL.Name)
                Set .Parent = Me
            End With
            m_colContextMenus.Add clsContextMenu, CStr(m_colContextMenus.Count + 1)
        Case Else
            'MsgBox TypeName(cTRL) & ": " & cTRL.Name
        End Select
    Next

End Sub

    Download Beispiel-Arbeitsmappe, die enthält .xls-und .xlsm Dateien

    InformationsquelleAutor B Hart

Schreibe einen Kommentar