莉蒂亞的公事包
2016年8月4日 星期四
【PowerPoint】插入直式的頁面??
Office很直白地告訴你PowerPoint一個檔案只能接受一種直式or橫式的版面設定,
但是也提供一種做法可供參考:
有youtuber提供方法如下:
但是也提供一種做法可供參考:
https://support.office.com/zh-tw/article/%E5%9C%A8%E5%90%8C%E4%B8%80%E4%BB%BD%E7%B0%A1%E5%A0%B1%E4%B8%AD%E4%BD%BF%E7%94%A8%E7%9B%B4%E5%90%91%E5%92%8C%E6%A9%AB%E5%90%91%E7%9A%84%E6%8A%95%E5%BD%B1%E7%89%87%E6%96%B9%E5%90%91-d8c21781-1fb6-4406-bcd6-25cfac37b5d6也就是用類似連結的方式去跳到另一個設定好的直式版面檔案裡。
有youtuber提供方法如下:
簡單說就是:
A檔案(橫)→插入→動作→跳到"其他PowerPoint簡報..."→點選B檔案(直)中要銜接的頁面。當然最後記得,也要在B檔案(直)中執行上述動作,好銜接回去A檔案(橫)完結整份簡報。
2016年8月1日 星期一
【Excel】合併多個檔案
- 多個excel檔案合併至同一分頁中
參考網址:http://www.ckizumi.com/2013/08/excel.html - 同一檔案分頁合併至同一分頁中
參考網址:http://blog.bestdaylong.com/2008/10/excel.html - 同or不同檔案之相同表格合併彙算至單一表格中
參考網址:http://www.techbang.com/posts/12567-using-merge-calculation-tabular-data-into-one
1.
a. M Riza 先生的VBA
Sub simpleXlsMerger() Dim bookList As Workbook Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set mergeObj = CreateObject("Scripting.FileSystemObject") 'change folder path of excel files here Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here") Set filesObj = dirObj.Files For Each everyObj In filesObj Set bookList = Workbooks.Open(everyObj) 'change "A2" with cell reference of start point for every files here 'for example "B3:IV" to merge all files start from columns B and rows 3 'If you're files using more than IV column, change it to the latest column 'Also change "A" column on "A65536" to the same column as start point Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Worksheets(1).Activate 'Do not change the following column. It's not the same column as above Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Application.CutCopyMode = False bookList.Close Next End Sub
b. 使用說明:
- 開啟 Excel,按下 Alt + F11 叫出巨集編輯器,貼入網站中的 Code
- 要貼在【ThisWorkbook】裡面喔~不是Sheet裡!!!
- 修改第8行的路徑,改成需要合併的 Excel 檔存放路徑
- 按下執行鍵就 OK 了
心得
- 儘管是 CSV 檔案也能正確合併。
- 這邊要注意一件事情,Code 當中的 A2 是起始的儲存格,在合併過程中會忽略掉標題列,直接從第二列開始複製;若是你想連標題列都合併起來,請改成 A1。IV 是他的複製欄寬,可以改成自己想要的欄寬。
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy心得第二點的發現是因為我合併了所有的檔案,還很慶幸原來只有六萬多筆,最後慚愧地發現原來資料數量有三十萬筆,而 Code 當中卻只設定到 65,536 筆,只需要把 A65536 改成 A1048576 即可。
- 值得注意的是,雖然這個方法是給 Excel 2007 使用,但 Excel 2007 開始有個重大變化,就是 Excel 最大列數從 2^16 次方改成了 2^20 次方。這代表你可以處理的資料從 Excel 2003 的 65,536 筆增加至 1,048,576 筆。
2016年7月27日 星期三
訂閱:
文章 (Atom)