2024年4月8日 星期一

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

 

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

2024年4月7日 星期日

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

2024年4月6日 星期六

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年4月5日 星期五

指數變化(2024.04.04)

  指數變化(2024.04.04)

上周焦點:


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

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

本周指數變化:

日股本周跌幅不低
指數趨勢:









2024年4月3日 星期三

vba:vba 列印設定中,如果列印要水平置中 怎做?

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

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

水平置中:

ActiveSheet.PageSetup.CenterHorizontally = True

水平與垂直置中:

With ActiveSheet.PageSetup

    .CenterHorizontally = True
    .CenterVertically = True

End With

2024年3月30日 星期六

指數變化(2024.03.29)

  指數變化(2024.03.22)

上周焦點:

2 月份關鍵通膨指標核心PCE 物價指數年增2.8%

本周指數變化:

本周美國最亮眼

指數趨勢:






2024年3月23日 星期六

日本股市結構 開始轉由金融推推嗎?

 


幾間代表性日股紀錄:

 自己做給自記看,順便練習一下vba,不作為投資理財參考





















指數變化(2024.03.22)

 指數變化(2024.03.22)

上周焦點:

台灣M1B年增率 4.95%

         美國聯邦基金利率 利率不變,會議中要點,預估未來降息3次

本周指數變化:



本周整理改為7周版,明顯市場經歷過日本央行的公布前後,是有"差異"的。
3/22台股收盤後,台灣央行也升息半碼了,後續如何,喝咖啡喝好茶,看下去。

指數趨勢:


2024年3月15日 星期五

指數變化(2024.03.16)

  指數變化(2024.03.16)

上周焦點:

美國密西根消費者信心指數 76.5

本周指數變化:


指數趨勢: