樂天伯朗咖啡館雙11優惠

自從買了美式咖啡機之後就開始了每天一杯咖啡當早餐的生活，一直以來都是買Costco的豆子，因為比較便宜。

但雙11優惠樂天的伯朗咖啡館推出咖啡豆買一送一的活動，一來是嘗鮮二來是發現沒有比Costco貴多少，於是就按照推薦的買了精選綜合豆、義大利式烘培及巴西聖多士，原價360元(440G)買一送一，硬是買了三種口味湊到免運。結果沒想到除了巴西聖多士酸度是一顆以外，其他都是兩顆……，總之先喝看看先。

 

 

 

[VBA]EXCEL分頁表批次轉PDF

office 2007以上已經內建匯出為PDF的功能，但如果在Excel上選取多分頁然後匯出的話，內部設定的頁碼會是總合而非一個頁簽一個編碼這樣，所以可以利用VBA處理這部分。

步驟

將以下方程式放入VBA後執行就可以，匯出的檔案名稱格式可以自行調整

xxxxxxxxxx
17
1
Sub 批次轉PDF()
2
​
3
Application.DisplayAlerts = False
4
Application.ScreenUpdating = False
5
​
6
i = Worksheets.Count
7
For i = 1 To Worksheets.Count
8
    If Sheets(i).Visible = xlHidden Then
9
    Else
10
        Sheets(i).Activate
11
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
12
        ActiveWorkbook.Path & "\" & i & "_" & ActiveSheet.Name & ".pdf", _
13
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
14
        IgnorePrintAreas:=False, OpenAfterPublish:=False
15
    End If
16
Next
17
End Sub

使用限制

1. office版本一定要在2007以上，2003執行會出錯。
2. 預設檔案名稱為`編號_工作頁名稱.pdf，預設位置同檔案位置。