作品:每個月能更新台股的營收資料庫

 

Excel 彈性整理

105~113年間資料

vba:如何透過vba產生資料夾

如何透過vba產生資料夾??

Scripting.FileSystemObject作法：

Sub TEST1()

    Dim fs As Object

    Dim newFolder As Object

    Dim folderPath As String

     ' 建立 FileSystemObject

    Set fs = CreateObject("Scripting.FileSystemObject")

     ' 設定新資料夾的路徑

    folderPath = "C:\MyNewFolder"

     ' 建立新資料夾

    Set newFolder = fs.CreateFolder(folderPath)    

    ' 顯示訊息

    MsgBox "已成功建立資料夾：" & folderPath

End Sub

更簡單的方式，使用MkDir：

Sub TEST12()
    Dim folderPath As String
    Dim newFolder As String
    Dim i As Integer
    Dim NumFolders_I As Integer

    ' 設定父資料夾路徑
    folderPath = "C:\Users\YourUsername\Documents\Projects\"

    ' 設定要建立的資料夾數量
    NumFolders_I = 10

    ' 建立資料夾
    For i = 1 To NumFolders
        FolderName = "Project_" & i
        MkDir folderPath & FolderName
    Next i
End Sub

vba：vba 列印設定中，如何自訂頁首與頁尾文字內容 怎做?

 vba 列印設定中，如何自訂頁首與頁尾文字內容 怎做?

頁首
    ActiveSheet.PageSetup.CenterHeader = "&D &B&ITime:&I&B&T"    
頁尾
    ActiveSheet.PageSetup.CenterFooter = "&D &B&ITime:&I&B&T"                          ActiveSheet.PageSetup.CenterFooter = "&P"
頁首左、中、右
    With ActiveSheet.PageSetup.LeftHeader = "aaa"
        .CenterHeader = "&""-,粗斜體""bbb"
        .RightHeader = "ccc"
    End With
頁尾左、中、右
With ActiveSheet.PageSetup
        .LeftFooter = "aaa"
        .CenterFooter = "&""細明體,標準""頁數&""Times New Roman,標準"":&P/&N" & Chr(10) & "PAGE:&P/&N" & Chr(10) & "ddd"
        .RightFooter = "ccc"
End With

其他頁尾格式設定：您可以使用以下特殊格式代碼來自訂頁尾：
&L：將下一筆字元靠左對齊。
&C：將下一筆字元置中。
&R：將下一筆字元靠右對齊。
&D：列印目前日期。
&T：列印目前時間。
&F：列印文件名稱。
&A：列印活頁簿標籤名稱。
&P：列印頁碼。
&P+number：列印頁碼加上指定數字。
&P-number：列印頁碼減去指定數字。

vba：vba 列印設定中，如果要設定不同儲存格來列印 怎做?

列印設定中，如果要設定不同儲存格來列印 怎做?

設定列印範圍是用 PageSetup列印的PrintArea做設定，

不同儲存格間要透過union方式來神助力

Set ws = Sheets("Sheet1") '用Sheet1當作設定對像工作表名稱

    'Union 設定列印儲存格範圍

 Set bigRange = Application.Union(ws.Range("a1"), ws.Range("c2"))

    ' 設定列印儲存格範圍

    ws.PageSetup.PrintArea = bigRange.address

vba：vba 列印設定中，如果要設定列印邊界 怎做?

列印設定中，如果要設定列印邊界 怎做

是用 PageSetup列印的屬性設定，有四個邊界可以設定

 Set ws = Sheets("Sheet1") '用Sheet1當作設定對像工作表名稱

    ' 設定列印儲存格範圍

    ws.PageSetup.PrintArea = "$A$1:$F$10    

    ' 設定邊界

    With ws.PageSetup

        .LeftMargin = Application.InchesToPoints(0.5) ' 設定0.5 英寸左邊界

        .RightMargin = Application.InchesToPoints(0.5) ' 設定0.5 英寸右邊界

        .TopMargin = Application.InchesToPoints(0.75) ' 設定0.75 英寸上邊界

        .BottomMargin = Application.InchesToPoints(0.75) ' 設定0.75 英寸下邊界

    End With

'公分版

  With ws.PageSetup

        .LeftMargin = Application.CentimetersToPoints(2.54) ' 設定左邊界 (2.54 公分 = 1 英寸)

        .RightMargin = Application.CentimetersToPoints(2.54) ' 設定右邊界 (2.54 公分 = 1 英寸)

        .TopMargin = Application.CentimetersToPoints(1.905) ' 設定上邊界 (1.905 公分 = 0.75 英寸)

        .BottomMargin = Application.CentimetersToPoints(1.905) ' 設定下邊界 (1.905 公分 = 0.75 英寸)

    End With

指數變化(2024.04.04)

  指數變化(2024.04.04)

上周焦點：

美國3月非農業就業人數增30.3萬遠超預期 失業率意外降至3.8%

         fed 紐約分行預測衰退機率 持平，維持在58.31% 

本周指數變化：

日股本周跌幅不低

指數趨勢：

vba：vba 列印設定中，如果列印要水平置中 怎做?

列印設定中，如果列印要水平置中 怎做?

ActiveSheet.PageSetup 列印設定的屬性是用 CenterHorizontally

水平置中:

ActiveSheet.PageSetup.CenterHorizontally = True

水平與垂直置中:

With ActiveSheet.PageSetup

    .CenterHorizontally = True
    .CenterVertically = True

End With