So erstellen Sie eine Tabelle für Steuerelemente (Excel VBA)

Question

Ich hoffe, Sie genießen Ihr Wochenende!

Ich bin hier, um zu fragen, ob es eine Möglichkeit gibt, ein Tabellen- oder Listenlayout innerhalb des Rahmens eines Benutzerformulars zu initialisieren. Und, wenn das möglich ist, ob ich Steuerelemente (Textfelder und Beschriftungen) anstelle von Textfolgen in die Zellen einfügen kann.

Vielen Dank im Voraus für Ihre Antworten/Kommentare.

* Bearbeiten: Follow-up Frage. Angenommen, das oben Genannte ist in Excel VBA möglich, kann ich auch die Tabelle (nur eine Spalte) oder die Liste so einstellen, dass ihre Dimensionen auf der Breite und Höhe des Steuerelements basieren?

Answer 1

Sie können eine Microsoft Office-Tabelle einbetten. Wechseln Sie zu den zusätzlichen Steuerelementen des Werkzeugkastens.

können Sie ot zugreifen wie Sie eine Excel-Tabelle zu tun.

Spreadsheet1.Range ("A1") Sie können auch Private WithEvents verwenden, um die Ereignisse anzuhängen. Hier habe ich es in der Userform gemacht, allerdings hätte ich es von einem Klassenmodul aus tun können, wenn ich wollte.

Privatwithevents MySpreadsheet1 Als OWC11.Spreadsheet

Option Explicit Privatwithevents MySpreadsheet1 Als OWC11.Spreadsheet

Private Sub UserForm_Initialize() Set MySpreadsheet1 = Spreadsheet1 End Sub

Private Sub MySpreadsheet1_BeforeContextMenu (ByVal x als lang, ByVal y als lang, ByVal Menu als OWC11.ByRef, ByVal Cancel als OWC11.ByRef)

End Sub

Private Sub Spreadsheet1_BeforeContextMenu (ByVal x As Long, ByVal y As Long, ByVal Menü Als OWC11.ByRef, ByVal Wie OWC11.ByRef Abbrechen)

End Sub Es ist nicht voll ausgestattet, aber Sie können viel damit machen. How To Use the Spreadsheet Web Component with Visual Basic Sie können die Spalten und Zeilen ausblenden, aber es ist zu langsam, um praktisch zu sein.

Spreadsheet1.Columns("E:ZZZ").EntireColumn.Hidden = True 
Spreadsheet1.Rows("10:262144").EntireRow.Hidden = True