發表文章

目前顯示的是 10月, 2016的文章

Excel 巨集合併多個 Excel 檔案

上次遇到了同一個檔案中多個工作表合併到一個工作表裏,這次因為工作的關係又去找了多個不同的檔案,所有的工作表合併到同一個檔案中。 工作環境︰ Windows 10 M$ Office 2010 Sub CombineSheets() '活頁簿存放路徑,可自行修改存放路徑 Path = "D:\資料夾名稱\" Filename = Dir(Path & "*.xl*") '避免工作表名字相同,重新命名 i = 1 Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) ActiveSheet.Name = i i = i + 1 Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 收工!

Excel 巨集檢查工作表是否存在的函式

Excel 好像沒有檢查工作表是否存在的原生函式,所以,到網站上找了一個,在跑巨集的時侯可以用 Function sheetExists(sheetToFind As String) As Boolean     sheetExists = False     For Each Sheet In Worksheets         If sheetToFind = Sheet.Name Then             sheetExists = True             Exit Function         End If     Next Sheet End Function 收工!

Excel 巨集合併多個工作表

假如你的工作表都長得一樣,都是從A1開始建立的,都在同一個檔案中,你可以新增一個巨集,幫你把所有的工作表合併到同一個工作表中。 Sub Combine()     Dim J As Integer       On Error Resume Next     Sheets(1).Select     Worksheets.Add     Sheets(1).Name = "Combine"     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")       For J = 2 To Sheets.Count         Sheets(J).Activate         Range("A1").Select         Selection.CurrentRegion.Select         Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select         Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)     Next End Sub 檢視 》 巨集 》 檢視巨集 》 第一個Combine  》 執行 所有的資料全部都會合併到第一個工作表「Combine」裏面 如此就不用 [Ctrl] + [C] X [Ctrl] + [V] N 次了 收工!

Word 直向文件包含橫向圖表

圖片
Word 的文件可以轉成直向,或是橫向,這個大家應該還蠻熟悉的,但是,作報告的時侯…… 大部份的報告以直書的方式較多,但是為了在電腦上閱讀和編輯方便,在直書的頁面可能要穿插一些橫向的頁面,用來擺放圖表,這個時侯要告訴 Word 要分節,分節之後的段落就能獨自轉向,不會互相干擾,也就是說,分節之中,你可以設定這個分節和其他分節的方向不同。 工作環境︰ M$ Office 2007 ~ 2010 操作︰     1、設定分節     2、設定方向 透過分隔設定設定分節 透過版面配置設定方向 收工!