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

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top
Workbook 活頁簿
Workbooks 活頁簿集合
Workbooks("filename") 檔名為filename的活頁簿
ActiveWorkbook 正在作用中的活頁簿
Sheets 活頁簿中所有工作表
Sheets(n) 活頁簿中第n張工作表
Worksheet 工作表
Worksheets 所有工作表(包括圖表)
Worksheets("sheet") 指表名為sheet工作表
ActiveSheet 正在作用中的工作表
Columns("c1:c2") c1至c2欄(其中c1,c2為A~Z或AA~XFD等欄名)
Rows("r1:r2") r1至r2列(其中r1,r2為1~1048576等列名
Range("x1:x2") x1至x2間的儲存格(其中x1,x2為儲存格位址名稱)
cells(i,j) 儲存格(第i列、第j行)
ActiveCell 目前的儲存格
Selection 目前所選取的物件
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top
是否常常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
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top
是否常常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
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top

VBA 是一款於VB延伸的語言 
VBA 必須透過 Word or Excel 來使用
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top

VBA 是一款於VB延伸的語言 
VBA 必須透過 Word or Excel 來使用
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top
Activecell.Value   儲存格的值
ActiveSheet.Name 工作表名稱
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top
Activecell.Value   儲存格的值
ActiveSheet.Name 工作表名稱
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top

函數為＝A1="",TODAY(),A1　
並且點選檔案->選項-＞公式
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

▲top

函數為＝A1="",TODAY(),A1　
並且點選檔案->選項-＞公式
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

▲top

Sub 取的資料夾內檔案名稱
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
    InitialFoldr$ = "C:\"
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Please select a folder to list Files from"
    .InitialFileName = InitialFoldr$
    .Show
If .SelectedItems.count <> 0 Then
    xDirect$ = .SelectedItems(1) & "\"
    xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
    ActiveCell.Offset(xRow) = xFname$
    xRow = xRow + 1
    xFname$ = Dir
Loop
End If
End With
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top

Sub 取的資料夾內檔案名稱
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
    InitialFoldr$ = "C:\"
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Please select a folder to list Files from"
    .InitialFileName = InitialFoldr$
    .Show
If .SelectedItems.count <> 0 Then
    xDirect$ = .SelectedItems(1) & "\"
    xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
    ActiveCell.Offset(xRow) = xFname$
    xRow = xRow + 1
    xFname$ = Dir
Loop
End If
End With
(繼續閱讀...)

毛毛狂 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： VBA
▲top
1 2
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。