201208-04 在Excel中如何將橫的資料合併成直的 在一些研究資料中會產生一些數據是橫向排列的,但是要給其他軟體使用就必須把資料處理成一列,底下這個工具就是在做這個事。 1.原始資料2欄但資料筆數不定 2.設定2欄0列,按下"開始合併資料" 3.處理完後資料己合併成功 4.資料中有空白,以最多列那一列為主 5.設定2欄.... Read More >
201202-21 如何選取多個檔案名稱並存入Excel活頁中 寫了很多的Excel VBA的工具,但是檔案的選取都是利用輸入的方式,雖然這個的寫法對於有規則的檔案命名很方便,但是如果要處理的檔案檔名沒有規則時就很不方便,這支VBA會將您選取的多個檔案,顯示完整路徑,檔案含副檔名,或是只有檔案名稱,方便其它程式使用。 1.執行結果 檔案下載,.... Read More >
201202-06 excel 取得工作表有資料的筆數及列數 [vb] Function findx(ByVal objsheet As Worksheet) x = 0 Do While True kk = "" For l = 1 To 10 For k = 1 To 10 If IsError(objshee.... Read More >
201202-04 如何在windows7下載Google協作平台的Excel檔案 在windows 7使用ie9到google協作平台下載excel檔案時,因為Excel中有使用巨集,所以在下載時會出現"這個不安全的下載已由SmartScreen篩選工具所封鎖。",這時候就必須透過底下的操作才可以下載。 1.出現"這個不安全的下載已由SmartScreen篩選工具所封鎖。".... Read More >
201202-01 如何透過Excel VBA來列印word文件 語法如下: Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open("document.dot") ... wrdDoc.PrintOut wrdDoc.Close wrdApp.Quit 資料來源:http://www.ozgrid.com/foru.... Read More >
201201-19 如何解決Excel VBA出現找不到專案或程式庫 這個訊息會出現在Excel VBA使用第一個系統函數時,這是Excel VBA參照的檔案找不到所造成,會發生這個問題,通常是在不同Excel版本中比較容易會發生,只要到參數將找不到的引用項目的勾拿掉,就會正常。 1.出現找不到專案或程式庫 2.[工具]/[設定引用項目] 3. 將找.... Read More >
201112-29 如何讓Excel巨集一開啟就自動執行 如何讓Excel巨集一開啟就自動執行,只要在ThisWorkbook中的Open事件中加入要呼叫的程式即可。 1.操作畫面 [vb] Private Sub Workbook_Open() MsgBox "Excel Open" End Sub [/vb.... Read More >
201112-23 Excel VBA判斷工作表是否存在的函數 [vb] Function checkSheetName(sheetname) '檢查活頁是否存在 isfind = False For Each st In Sheets If st.Name = sheetname Then isfind = True .... Read More >
201112-07 快速修正儲存格中看不見的字元 一般系統要互相交換資料都會透過Excel來做交換暫存,但是Excel有一個問題是常常會有一些系統匯出來的特殊看不見的字元存在裡面,這對於要匯入的系統,只要遇到這些符號系統就會發生無法匯入的情形,這支程式就是將這些看不見的字元給去除掉。 1.將您要處理的資料複製貼到處理前,並記下行數字母及列.... Read More >
201112-01 excel 連結到工作表的語法 [vb] SheetName="Sheet1" Link_Name="Link Name" ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 12), Address:="", SubAddres.... Read More >
201111-18 Excel Vba 英文字母轉換成數字 [vb] Private Sub CommandButton1_Click() For i = 1 To 26 t = Chr(64 + i) Cells(i, 1) = t n = Asc(t) - 64 If.... Read More >
201111-18 Excel VBA 取奇數及偶數相加求合計 [vb] Private Sub CommandButton1_Click() Dim a As Integer, b As Integer a = 0 b = 0 t = Range("a1") For i = 1 T.... Read More >