2016-06-10 33 views
0

我希望你在享受你的週末!如何製作控件表(Excel VBA)

我在這裏問是否有一種方法來初始化用戶窗體框架內的表或列表佈局。而且,如果可能,我是否可以將控件(文本框和標籤)放入單元格中而不是文本字符串中。

非常感謝您的回答/評論。

*編輯:後續問題。假設Excel VBA中可能存在上述情況,我是否也可以根據控件的寬度和高度來設置表(僅一列)或列表的尺寸?

+0

當您談論「用戶表格中的表格」時,您是在討論如何嵌入實際的電子表格? –

+0

沒有不完全。我的意思是一個表格控件,可以包含其他對象,如文本框和標籤。 –

回答

0

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

enter image description here

您可以訪問OT就像你做一個Excel工作表。

Spreadsheet1.Range(「A1」) 您也可以使用Private WithEvents掛鉤它的事件。在這裏,我在Userform中完成了它,但是,如果需要,我可以從類模塊中完成。

私人WITHEVENTS MySpreadsheet1作爲OWC11.Spreadsheet

Explicit選項 私人WITHEVENTS MySpreadsheet1作爲OWC11.Spreadsheet

私人小組UserForm_Initialize() 集MySpreadsheet1 = Spreadsheet1 結束子

私人小組MySpreadsheet1_BeforeContextMenu(ByVal x As Long,ByVal y As Long,ByVal Menu as OWC11.ByRef,ByVal Cancel As OWC11.ByRef)

末次

私人小組Spreadsheet1_BeforeContextMenu(BYVAL X長,BYVALÿ長,BYVAL菜單OWC11.ByRef,BYVAL取消作爲OWC11.ByRef)

末次 enter image description here enter image description here 這是沒有完整的功能,但你可以做很多。 How To Use the Spreadsheet Web Component with Visual Basic 您可以隱藏列和行,但它太慢而不實用。

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