Archive for 一月, 2009
-
Filed under: 網路搜搜樂
PCTools Internet Security 2009 正版365天序號申請
by chijanzen on 一月 31st, 2009
Read More » Tags
從 PCTools Internet Security 2009 正版365天序號申請 from 免費資源網路社群 中看到這個訊息,於是就去申請了一個序號,安裝完後覺得還滿好用的就推薦給大家試試。
PS:這個防毒軟式安裝後中文版的ㄜ
Popularity: 5%
Share
Comments (0)
-
Filed under: Excel VBA 範例, 一般程序
如何判斷剪貼簿是否有資料?
by chijanzen on 一月 27th, 2009
Read More » Tags
如果要判斷剪貼簿是否有資料可以使用 CountClipboardFormats API 函數
Declare Function CountClipboardFormats Lib "user32" () As Long
Sub test()
Range("A1:E20").Copy
MsgBox IsClipboardEmpty '有資料傳回 False
Application.CutCopyMode = False
MsgBox IsClipboardEmpty '無資料傳回 Treu
End Sub
Function IsClipboardEmpty() As Boolean
If CountClipboardFormats = 0 Then
IsClipboardEmpty = True
Else
IsClipboardEmpty = False
End If
End FunctionPopularity: 16%
Share
Comments (2)
-
Filed under: ChartObject, Excel VBA 範例
動態顯示圖表數列資料
by chijanzen on 一月 23rd, 2009
Read More » Tags
索 引 I0001 主 題 動態顯示圖表數列資料 版 本 >= 8.0(Office 97) 說 明 本範例示範如何使用SeriesCollection 集合物件中的NewSeries 方法來建立數列資料 參 考 
Popularity: 17%
Share
Comments (0)
-
Filed under: Excel VBA 範例, 一般程序
刪除檔案中所有的樞紐分析表
by chijanzen on 一月 19th, 2009
Read More » Tags
Sub DelAllPivots()
Dim Pt As PivotTable
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In ActiveWorkbook.Worksheets
For Each Pt In Ws.PivotTables
With Pt
.TableRange2.Clear
End With
Next Pt
Next Ws
Application.DisplayAlerts = True
End SubPopularity: 14%
Share
Comments (0)
-
Filed under: Excel VBA 範例, Top, 一般程序
Excel檔案減肥瘦身
by chijanzen on 一月 18th, 2009
Read More » Tags
索 引 H0072 主 題 清除檔案中所有工作表上多餘的格式 版 本 >= 12.0(Office 2007) 說 明 檔案用久了有時候出現「記憶體不足」錯誤訊息或是覺得檔案越來越大,這時候就可以用這個程式來減肥啦! 參 考 用法:開啟H0072.xls檔,在工作表中按下減肥的按鈕,選取你要減肥的檔案就可以了 
Popularity: 42%
Share
Comments (9)
-
Filed under: Excel VBA 範例, VBE
批次匯出所有檔案中的VBE程式碼
by chijanzen on 一月 11th, 2009
Read More » Tags
索 引 F0017 主 題 批次匯出所有檔案中的VBE程式碼 版 本 >= 10.0(Office 2002) 說 明 本範例調用Excel中的「開啟舊檔」對話方塊,讓使用者可以多重選取檔案,然後 匯出檔案中程式碼 參 考 
Popularity: 17%
Share
Comments (2)
分享個人Excel VBA 學習經驗,架站心得, 日常生活記事等...











Proudly powered by