我的雷達 2024/11/29

 我的雷達 2024/11/29

指數變化(2024.11.29)

       指數變化(2024.11.29)

上周焦點：

      fed會議紀要：2025漸進式降息

本周愛看：

     12/6  美國密西根大學信心指數 

本周指數變化：

留意^N225已連續多周，都在跌了

指數趨勢：

netflix：完全人生 讓我們一起懂各自的痛

 小編自我感覺，簡單評語。

"社會各層最好的生活寫照"

領導如何圖翻身求留名

    尤其跟蛇搏鬥，以及玻璃屋中欣賞蛇，根本就是a主角心靈對談，比跟老婆對談更契合。

低層如何反抗制度，為所愛奮鬥

    我車車被拖吊，然後大家一起吃塞，一個人被關押14天的經過，愛是真的，絕對是真的。

以及中階如何對上與對下、圖自己好物公器私用

    要找你麻煩太簡單了，剛掌握資源的中階主管的兩個主角的對比，小編感覺這才是本劇中的精華，畢竟這年頭中產階級太難為了。就是滿足老闆拉，還要圖自己的小小私利。

小編直白說，完全人生，有寫實到，且真的太太太寫實了。

不過最後一集有不雅畫面。(呵呵)

這是迷你影集，跟名劇紙牌屋比較起來，超好消化。

就不討論故事情節了

打破人力資源最好的教案：川普

打破人力資源最好的教案： 川普

why?

過去討論人才 

    好用、解決問題，多少證照，還是產值？

現在討論人的重量？

    重量如同金錢一樣

    一公升92汽油多少錢?

    淋在人身上跟加在車輛內會衍生多少"量化"？

對主管來說，人的重量是指你在我眼裡的價值切入點？

    所以這就有點慧眼識英雄，但更多時候是時勢迎大象。

    所以過去幾年提到在風口上，大象也能跳舞。

今年開始人資圈應該也開始有類似風格了八

回想起我同梯的一句話，這個缺很爛對阿，再爛的人上來能做到60分，就對主管是100分了，你怕啥？

沒有絕對好的位子，而是你(資源)能否撐起主管小小的期望感(喜出望外感也可以這樣說)。

    但，如果是一條沒有方向的船，有再多資源也是會下台一鞠躬，請腦補本次2024美國大選 xd

    (我不是政治評論家)

小編40有年了，看了很多朋友不論年輕還是剛出社會。

    你可以很強，但你要很懂"需求"

    因為需求決定你的重量(價值)。

    這邊不是說市場價值，而是你在老闆心中的價值。

    很強的需求，不強也變小強了(打都打不死)

    呵呵，點到此處，不多說。

前段時間，某服務於大廠的同學，無預警部門解散(因為沒有order)，在fb上做一點分享。

    引用這段，我們在價值與重量之間，還有一個文化上的衝突點要留意，就是標籤。

    我不得不說，川普把標籤用到超乎完美的燃燒小宇宙。

    試問，川普這標籤你想到啥？

    同理，在職場上，你可以有標籤，但你有用到"完美"嗎?

以上，簡單分享摟

需求這個潮汐力量的推動，會決定你要付出多少力量去欣賞這無邊際的花花世界。

標籤不等同於政治，偏偏政治少不了標籤，職場上你有了那些標籤????

我的雷達：2024/11/15

 

似乎有一種不安的味道

指數變化(2024.11.17)

     指數變化(2024.11.17)

上周焦點：

    fed 維持目前利率。

    就現況來說，美國總統這個因素或許比較重要，畢竟昨天才有新聞似乎在暗示，電動車補助將取消.......

本周愛看：

    11/21 失業率

本周指數變化：

本週像是高潮過後，幾個市場幾乎回吐了漲幅

指數趨勢：

InsertPDFToOneNote

可以的！您可以使用 VBA 結合 OneNote API 來將 PDF 檔案插入到 OneNote 頁面中。這裡是一個範例，展示如何使用 VBA 來達成這個目的：

確保在 VBA 編輯器中引用了 OneNote 14.0 Object Library（步驟前面有提到）。

使用以下程式碼來插入 PDF 檔案：

Sub InsertPDFToOneNote()

    Dim oneNoteApp As Object

    Dim notebook As Object

    Dim section As Object

    Dim page As Object

    Dim pageID As String

    Dim filePath As String

    Dim xml As String

    Dim doc As Object

    Dim ns As Object

    Dim node As Object

    

    ' 創建 OneNote 應用程序對象

    Set oneNoteApp = CreateObject("OneNote.Application")

    

    ' 設置文件路徑

    filePath = "C:\YourPDFPath\YourFile.pdf"

    

    ' 獲取筆記本

    Set notebook = oneNoteApp.Notebooks("YourNotebookName")

    

    ' 獲取分區

    Set section = notebook.Sections("YourSectionName")

    

    ' 獲取頁面

    pageID = section.Pages("YourPageName").ID

    

    ' 獲取頁面內容的 XML

    oneNoteApp.GetPageContent pageID, xml, 2

    

    ' 創建 XML 文件對象

    Set doc = CreateObject("MSXML2.DOMDocument")

    doc.LoadXML xml

    Set ns = doc.DocumentElement.SelectSingleNode("//xmlns:Outline")

    

    ' 創建新的資料節點

    Set node = doc.createElement("OE")

    node.Text = "PDF File Inserted Here"

    

    ' 插入資料節點

    ns.appendChild node

    

    ' 更新頁面內容

    oneNoteApp.UpdatePageContent doc.xml

    

    ' 插入 PDF 檔案

    oneNoteApp.Publish pageID, filePath, 1, ""

    

    MsgBox "PDF 插入成功！"

End Sub

這段程式碼會將指定的 PDF 檔案插入到特定的 OneNote 頁面中。您需要替換 "YourNotebookName"、"YourSectionName" 和 "YourPageName" 為實際值，並設置正確的 PDF 檔案路徑 "C:\YourPDFPath\YourFile.pdf"。

試試這個方法，看看是否符合您的需求。如果還有其他問題或需要進一步的幫助，隨時告訴我！ 😊

此外，請注意，您可能需要根據您的 OneNote 版本進行一些調整。MSXML2 庫需要正確引用才能正常工作。

ExportOneNotePageToPDF

 要使用 VBA 生成 OneNote 的 PDF 檔案，你需要結合 OneNote API 以及其他 VBA 技巧。以下是一個基本範例，展示如何使用 VBA 從 OneNote 中導出頁面為 PDF 檔案：

首先，你需要在 VBA 中引用 OneNote 14.0 Object Library：

在 VBA 編輯器中，選擇 工具 > 參考。

找到並選中 Microsoft OneNote 14.0 Object Library，然後點擊 確定。

接著，你可以使用以下程式碼範例來導出 OneNote 頁面為 PDF 檔案：

Sub ExportOneNotePageToPDF()

    Dim oneNoteApp As Object

    Dim notebook As Object

    Dim section As Object

    Dim page As Object

    Dim pageID As String

    Dim exportPath As String

    

    ' 創建 OneNote 應用程序對象

    Set oneNoteApp = CreateObject("OneNote.Application")

    

    ' 獲取筆記本

    Set notebook = oneNoteApp.Notebooks("YourNotebookName")

    

    ' 獲取分區

    Set section = notebook.Sections("YourSectionName")

    

    ' 獲取頁面

    pageID = section.Pages("YourPageName").ID

    

    ' 設置導出路徑

    exportPath = "C:\YourExportPath\ExportedPage.pdf"

    

    ' 導出頁面為 PDF

    oneNoteApp.Publish(pageID, exportPath, 4, "")

    

    MsgBox "Page exported to PDF successfully!"

End Sub

這段程式碼假設你已經知道特定筆記本、分區和頁面的名稱。你需要替換 "YourNotebookName"、"YourSectionName" 和 "YourPageName" 為實際值，並設置合適的導出路徑 "C:\YourExportPath\ExportedPage.pdf"。

試試這個方法，看看是否符合你的需求。如果還有其他問題或需要進一步的幫助，隨時告訴我！

我的雷達：2024/11/13

 自己給自己看

vba：自動調整按鈕位置跟大小 靠，物件迴圈

一個一個排列按鈕太累了，透過vba程式八

Sub PositionButtons(left, top) '按鈕位置

    Dim ws As Worksheet

    Dim oleObj As OLEObject

    Dim topPosition As Double

    Dim leftPosition As Double

    ' 設定當前工作表

    Set ws = ActiveSheet

    ' 設定按鈕的起始位置

    topPosition = top

    leftPosition = left

    ' 檢查工作表上的所有 OLEObject

    For Each oleObj In ws.OLEObjects

        ' 檢查是否為按鈕控制項

        If TypeName(oleObj.Object) = "CommandButton" Then

            ' 設置按鈕位置

            oleObj.top = topPosition

            oleObj.left = leftPosition

            ' 調整下一個按鈕的位置

            topPosition = topPosition + oleObj.Height + 5 ' 調整為所需間距

        End If

    Next oleObj

End Sub

解說：

先定義了一個名為 PositionButtons 的sub程序，接受兩個參數 left 和 top，用來指定按鈕的初始位置。

Sub PositionButtons(left, top) '按鈕位置

這幾行聲明了四個變數：

    Dim ws As Worksheet

    Dim oleObj As OLEObject

    Dim topPosition As Double

    Dim leftPosition As Double

ws 代表工作表。

Set ws = ActiveSheet

oleObj 代表工作表上的每一個 OLEObject（嵌入的控制項）。

topPosition 和 leftPosition 分別表示按鈕的上邊距和左邊距。

這兩行將傳入的參數 top 和 left 賦值給 topPosition 和 leftPosition，設置按鈕的初始位置：

    topPosition = top

    leftPosition = left

這行調整下一個按鈕的位置，將 topPosition 增加當前按鈕的高度和5個單位的間距。

     topPosition = topPosition + oleObj.Height + 5 ' 調整為所需間距

這兩行分別結束 If 條件和 For Each 迴圈：

        End If

    Next oleObj

vba：檢查所有的checkbox設定，抓取設定

一個一個檢查CheckBox內容太累了，用用程式的方法來取得八。

之前分享了一個控制命令物件的for迴圈例子，再來分享一個檢查CheckBox的例子

 Function CheckAllCheckBoxes()

    Dim ws As Worksheet

    Dim oleObj As OLEObject

Set ws = ActiveSheet

    ' 遍歷工作表上的所有 OLEObject

    For Each oleObj In ws.OLEObjects

        ' 檢查是否為 CheckBox 控制項

       If TypeName(oleObj.Object) = "CheckBox" Then

            ' 進行你需要的操作，例如檢查其值

            If oleObj.Object.Value = True = True Then

                If Total = "" Then                

                    Total = oleObj.Object.Caption                

                Else                

                    Total = Total & "@" & oleObj.Object.Caption   & "@" & oleObj.Object.value

                End If           

            End If

        End If

    Next oleObj    

    CheckAllCheckBoxes = Total    

End Function

這段 VBA 代碼的功能是檢查工作表上所有的 CheckBox 控制項，如果某個 CheckBox 被勾選，則將其標題（Caption）和值（Value）累積到一個字符串變量 Total 中，最終返回這個累積的字符串。

部分功能詳細描述

函數 CheckAllCheckBoxes 的作用

這個函數遍歷當前工作表上的所有 OLEObject，並檢查每個 OLEObject 是否為 CheckBox 控制項。

如果某個 CheckBox 被勾選，則將其標題和值累積到變量 Total 中。

變數聲明：

ws：表示當前的工作表 (Worksheet)。

oleObj：表示工作表上的每一個 OLEObject（嵌入的控制項）。

VBA流程：

設置 ws 為當前的工作表。

使用 For Each 迴圈遍歷工作表上的所有 OLEObject。

使用 TypeName 函數檢查 OLEObject 是否為 CheckBox 控制項。

如果是 CheckBox 控制項，則進一步檢查其是否被勾選 (Value = True)。

如果 CheckBox 被勾選，則將其標題累積到變量 Total 中。

如果 Total 變量為空，則直接將 CheckBox 的標題賦值給 Total。

如果 Total 變量不為空，則將 CheckBox 的標題和值以 @ 分隔的方式累積到 Total 中。

最後返回變量 Total，這個變量包含了所有被勾選的 CheckBox 的標題和值。

逐行說明：

這行定義了一個名為 CheckAllCheckBoxes 的函數。

Function CheckAllCheckBoxes()

這兩行聲明了兩個變數：ws 代表工作表，oleObj 代表工作表上的每一個 OLEObject（嵌入的控制項）。

    Dim ws As Worksheet

    Dim oleObj As OLEObject

這行將變數 ws 設置為當前的活動工作表。

    Set ws = ActiveSheet

這行開始一個 For Each 迴圈，遍歷工作表上的所有 OLEObject。

    ' 遍歷工作表上的所有 OLEObject

    For Each oleObj In ws.OLEObjects

這行檢查當前的 OLEObject 是否為 CheckBox 控制項。

這行開始一個 For Each 迴圈，遍歷工作表上的所有 OLEObject。

這幾行將被勾選的 CheckBox 的標題（Caption）和其值累積到變量 Total 中。如果 Total 為空，則直接賦值；否則，將新的標題和值以 @ 分隔的方式累積到 Total 中。

                If Total = "" Then

                    Total = oleObj.Object.Caption

                Else

                    Total = Total & "@" & oleObj.Object.Caption & "@" & oleObj.Object.Value

                End If

這幾行分別結束 If 條件和 For Each 迴圈。

            End If

        End If

    Next oleObj

這兩行將累積的標題和值字符串（Total）賦值給函數 CheckAllCheckBoxes，並結束函數。

    CheckAllCheckBoxes = Total

End Function