毛毛狂的部落格

Workbook 活頁簿

1. Workbooks 活頁簿集合
2. Workbooks("filename") 檔名為filename的活頁簿
3. ActiveWorkbook 正在作用中的活頁簿
4. Sheets 活頁簿中所有工作表
5. Sheets(n) 活頁簿中第n張工作表
6. Worksheet 工作表
7. Worksheets 所有工作表(包括圖表)
8. Worksheets("sheet") 指表名為sheet工作表
9. ActiveSheet 正在作用中的工作表
10. Columns("c1:c2") c1至c2欄(其中c1,c2為A~Z或AA~XFD等欄名)
11. Rows("r1:r2") r1至r2列(其中r1,r2為1~1048576等列名
12. Range("x1:x2") x1至x2間的儲存格(其中x1,x2為儲存格位址名稱)
13. cells(i,j) 儲存格(第i列、第j行)
14. ActiveCell 目前的儲存格
15. Selection 目前所選取的物件

• 範例：
  • Workbooks("Book1").Sheets("Sheet1").Range("A1:D5").Font.Bold = True
  • Worksheets("Sheet1").Cells.ClearContents
  • Worksheets("Sheet1").Rows(1).Font.Bold = True
  • Range("1:1,3:3,8:8")
  • Worksheets("Sheet1").Cells(6, 1).Value = 10
  • Worksheets("Sheet1").[A1:B5].ClearContents
  • ActiveCell.Offset(1, 3).Font.Underline = xlDouble

是否常常EXCEL Key單完成
需要將EXCEL 轉成PDF並且建立一個資料夾呢?
現在可以藉由下列程式碼,來達到一鍵自動化功能

-----------------------------------------------------------------------------------------------------------
Sub 匯出PDF()

'range("L4")=檔案匯出路徑
'range("L1")=匯出檔案名稱

'判斷資料夾是否已存在
f = Dir(Range("L4").Value, vbDirectory)
'如果不存在就建立資料夾
If f = "" Then MkDir (Range("L4").Value)
'設定路徑
ChDir "C:\Users\CR-033\Desktop\123"
'匯出格式設定
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("L4").Value & Range("L1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Dim Foldername As String
'資料夾名稱
Foldername = Range("L4")
'打開資料夾(視窗在畫面上)
Shell "explorer.exe """ & Foldername & "", vbNormalFocus

End Sub

VBA 是一款於VB延伸的語言 

VBA 必須透過 Word or Excel 來使用

Activecell.Value   儲存格的值

ActiveSheet.Name 工作表名稱

函數為＝A1="",TODAY(),A1　

並且點選檔案->選項-＞公式

Sub 取的資料夾內檔案名稱

VLOOKUP

建立樞紐分析表，在第一列打入你要分析的資料名稱越詳細越好，不然要在樞紐分析表增加公式來計算你所需要的數值，例如供應商分析需要的資料有下列

進貨日期，進貨單，料號，供應商名稱，批量，抽樣數量，抽樣不良，總不良數，判定，年，月，日，等等......