如何为控件制作表格（Excel VBA）答案

【问题标题】：How To Make a Table for Controls (Excel VBA)如何为控件制作表格（Excel VBA）
【发布时间】：2016-06-10 19:43:04
【问题描述】：

希望你周末过得愉快！

我在这里询问是否有一种方法可以在用户窗体的框架内初始化表格或列表布局。而且，如果可能的话，我是否可以将控件（文本框和标签）而不是文本字符串放入单元格中。

提前感谢您的回答/cmets。

*编辑：跟进问题。假设上述在 Excel VBA 中是可能的，我是否也可以将表格（只有一列）或列表设置为根据控件的宽度和高度来设置尺寸？

【问题讨论】：

标签： vba excel

【解决方案1】：

您可以嵌入 Microsoft Office 电子表格。转到工具箱附加控件。

您可以像访问 Excel 工作表一样访问 ot。

Spreadsheet1.Range("A1") 您还可以使用 Private WithEvents 来挂钩它的事件。这里我是在用户窗体中完成的，但是，如果我愿意，我可以从类模块中完成。

Private WithEvents MySpreadsheet1 作为 OWC11.Spreadsheet

选项显式 Private WithEvents MySpreadsheet1 作为 OWC11.Spreadsheet

私有子用户表单_初始化() 设置 MySpreadsheet1 = 电子表格 1 结束子

Private Sub MySpreadsheet1_BeforeContextMenu(ByVal x As Long, ByVal y As Long, ByVal Menu As OWC11.ByRef, ByVal Cancel As OWC11.ByRef)

结束子

Private Sub Spreadsheet1_BeforeContextMenu(ByVal x As Long, ByVal y As Long, ByVal Menu As OWC11.ByRef, ByVal Cancel As OWC11.ByRef)

结束子它的功能不全，但你可以用它做很多事情。 How To Use the Spreadsheet Web Component with Visual Basic 可以隐藏列和行，但速度太慢，不实用。

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

【讨论】：