可以使用For Each…Next循環來保證程序代碼更快地執行。在使用For Each…Next循環時，對于存儲在集合或數組中的每個對象執行一組語句，程序更簡潔，也更容易閱讀、調試和維護。當For Each…Next語句迭代集合時，自動指定一個對集合當前成員的引用，然后在到...[全文]
'公歷轉農歷模塊 '原創：互聯網 '修正：阿勇 2005/1/12 '// 農歷數據定義 // '先以 H2B 函數還原成長度為 18 的字符串，其定義如下： '前12個字節代表1-12月：1為大月，0為小月；壓縮成十六進制(1-3位) '第13位為閏月的情況，1為大月30天，0為小月29天；(4...[全文]
可以使用 With … End With 語句來盡量減少對象引用。使用 With 語句對指定的對象完成一系列的任務，而不用重復引用對象。也可以使用嵌套的 With 語句進一步提高程序代碼的效率。 例如 1 下面的過程中使用 With … End With 語句是在同一個單元格中執行多...[全文]
通過簡化代碼，可以提高程序的性能。您可以將通用過程編寫為子過程來調用。例如，假設有一個應用程序需要在不同的地方實現查找一定范圍內的某個特殊條目，在一個沒有簡化代碼的應用程序中，不同的過程可能需要應用各自的算法以實現在某個范圍內查找某一條...[全文]
數據類型 類型聲明字符 存儲空間大小 范圍 Byte 1 個字節 0 到 255 Boolean 2 個字節 True 或 False Integer % 2 個字節 -32,768 到 32,767 Long ( 長整型 ) 4 個字節 -2,147,483,648 到 2,147,483,647 Single ( 單精度浮點型 ) ！ 4 個字節 負數時從 -3.4...[全文]
獲取數據庫中某數據表的所有字段信息（ADOX） 引用：microsoft ado ext 2.x for ddl and security Public Sub2_17() Dim mydata As String ‘定義數據庫名稱變量 Dim mytable As String ‘定義數據表名稱變量 Dim myCat As ADOX.Catalog ‘定義ADOX的catalo...[全文]
Public Sub 實例 2_15() Dim mydata As String ‘ 定義數據庫字符串變量 Dim mytable As String ‘ 定義數據表字符串變量 Dim myField As String ‘ 定義字段字符串變量 Dim dbs As Object ‘ 定義數據庫對象變量 Dim myAccess As Object ‘ 定義 object...[全文]
Sub MS_Outlook() Dim ol As Object, myItem As Object '創建一個 Microsoft Outlook 會話 Set ol = CreateObject("outlook.application") '創建一項任務 Set myItem = ol.CreateItem(olTaskItem) '向新任務中添加信息 With myItem .Subject = "新建 VBA...[全文]
將excel圖表復制到word中的代碼 Sub MS_Word() Dim wd As Object 'Create a Microsoft Word session Set wd = CreateObject("word.application") 'Copy the chart on the Chart Labels sheet Worksheets("圖表標志").ChartObjects(1).Chart.ChartArea.Copy...[全文]
有時為了演示方便，常在excel工作表中插入一個圖片或圖形，點擊后可以直接打開相應代碼的窗口，想達到這個效果不需要代碼，而是通過設置超鏈接實現的。具體的步驟： 1、選取單元格或其他圖形圖片---插入超鏈接---在最下面的文本框中輸入# + 宏名稱，例打開...[全文]
瓊ICP備16003318號
