2016年8月4日 星期四

【Office】關於插入相片解析度過低


【PowerPoint】插入直式的頁面??

Office很直白地告訴你PowerPoint一個檔案只能接受一種直式or橫式的版面設定,
但是也提供一種做法可供參考:
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】合併多個檔案


  1. 多個excel檔案合併至同一分頁中
    參考網址:http://www.ckizumi.com/2013/08/excel.html
  2. 同一檔案分頁合併至同一分頁中
    參考網址:http://blog.bestdaylong.com/2008/10/excel.html
  3. 同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
  • 值得注意的是,雖然這個方法是給 Excel 2007 使用,但 Excel 2007 開始有個重大變化,就是 Excel 最大列數從 2^16 次方改成了 2^20 次方。這代表你可以處理的資料從 Excel 2003 的 65,536 筆增加至 1,048,576 筆。
心得第二點的發現是因為我合併了所有的檔案,還很慶幸原來只有六萬多筆,最後慚愧地發現原來資料數量有三十萬筆,而 Code 當中卻只設定到 65,536 筆,只需要把 A65536 改成 A1048576 即可。


2016年7月6日 星期三

開張誌喜!!

自從無名小站消失之後很久沒當Blogger了,

試試看Google的網誌好不好用嚕~衝!!