国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

本文演示如何在 Visual Basic 應(yīng)用程序中嵌入 Microsoft Excel 版本 5.0 工作表對(duì)象，然后通過(guò)使用 OLE 自動(dòng)化和一個(gè) MSOLE2.VBX 控件或 OLE 容器控件進(jìn)行操作。 Microsoft Excel 版本 5.0 提供了支持使用 Visual Basic for Applications 的工作表和圖表功能的 OLE 對(duì)象。 mfBVB知識(shí)庫(kù)

Excel 中的工作表有時(shí)稱為電子表格。 它是主文檔用于在 Excel 中存儲(chǔ)和處理數(shù)據(jù)。 在工作表包含組織成列和行的單元格，，在采用始終的工作簿的一部分。mfBVB知識(shí)庫(kù)

分步示例

1. 向 Form 1 中添加一個(gè)命令按鈕 (Command 1)。 將標(biāo)題設(shè)置為： 嵌入 Excel 5.0 對(duì)象。 添加以下代碼，實(shí)現(xiàn) Command 1 單擊時(shí)向Excel 5.0 工作表嵌入 一個(gè)OLE 1 控件。 因?yàn)樵揙LE 1 控件 SizeMode 屬性設(shè)置為拉伸，工作表自動(dòng)調(diào)整大小自身 OLE 1 控件，執(zhí)行代碼。

      Sub Command1_Click()    ole1.Class = "Excel.Sheet.5"    ole1.Action = OLE_CREATE_EMBED    End Sub    

2. 將另一個(gè)命令按鈕 (Command 2） 放到 Form 1 上中。 更改命令按鈕的標(biāo)題： 添加數(shù)據(jù)。 將以下代碼添加到 Command 2 Click 事件：

      Sub Command2_Click ()    ole1.Action = OLE_ACTIVATE    ole1.Object.cells(1, 1).value = "Jan"    ole1.Object.cells(2, 1).value = 3    ole1.Object.cells(3, 1).value = 4    ole1.Object.cells(4, 1).value = 6    End Sub    

   </a0>-"ole1.Object 部分是 Visual Basic 代碼。 在行的其余部分添加數(shù)據(jù) （單元格 (2,1).Value = 1) 是 Excel 的 Visual Basic for Applications 代碼。
3. 從運(yùn)行菜單中選擇開(kāi)始，或按 F 5 鍵以運(yùn)行該程序。 單擊查看工作表的 Command 1。 單擊要查看添加到工作表信息的 Command 2。 從可回到開(kāi)發(fā)運(yùn)行菜單中選擇結(jié)束。
4. 添加另一個(gè)命令按鈕 （Command3) 來(lái)體驗(yàn)功能。 添加以下代碼，在 Command3 單擊事件代碼。 SUM 函數(shù)是可以使用實(shí)驗(yàn)中的多個(gè) Excel 函數(shù)之一。 運(yùn)行應(yīng)用程序，并按命令按鈕，以查看效果。
5. Sub Command3_Click()mfBVB知識(shí)庫(kù)
            ole1.Action = OLE_ACTIVATEmfBVB知識(shí)庫(kù)
            ole1.Object.Range("A2:A4").SelectmfBVB知識(shí)庫(kù)
            ' Try any one of the following lines, or add some pauses betweenmfBVB知識(shí)庫(kù)
            ' them to see the selections taking place and the active cellmfBVB知識(shí)庫(kù)
            ' changing.mfBVB知識(shí)庫(kù)
   mfBVB知識(shí)庫(kù)
            ' To try a line, remove the single quotation mark to uncomment themfBVB知識(shí)庫(kù)
            ' line:mfBVB知識(shí)庫(kù)
            ' ole1.Object.Range("C6").ActivatemfBVB知識(shí)庫(kù)
            ' ole1.Object.cells(6, 1).value = "=SUM(R2C:R4C)"mfBVB知識(shí)庫(kù)
            ' ole1.Object.Range("A6").SelectmfBVB知識(shí)庫(kù)
         End Sub

若要了解有關(guān) Microsoft Excel 的 Visual Basic for Applications，請(qǐng)?jiān)?Excel 中, 打開(kāi)一個(gè)新的模塊工作表，將從視圖菜單中, 選擇對(duì)象瀏覽器或按 F 2 鍵。 在對(duì)象瀏覽器列出了 Excel 及其相關(guān)對(duì)象和方法中的所有對(duì)象。 在對(duì)象瀏覽器演示對(duì)象模型的分層特性。 mfBVB知識(shí)庫(kù)
mfBVB知識(shí)庫(kù)
如果您希望新，請(qǐng)嘗試。但不能確定語(yǔ)法，最好手動(dòng)啟動(dòng) Microsoft Excel，逐步完成該過(guò)程中的宏錄制器、 關(guān)閉宏錄制器和在當(dāng)前模塊中查看代碼。 然后代碼剪切并粘貼在到 Visual Basic 事件過(guò)程。 通常需要的是 ole1.object 的前綴。

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。