LotusScript 建立Excel 樞紐分析表 ( Pivot Table)

【ASUS華碩】GTX-1050TI 4GB超頻顯示卡$4490- 立馬可用免費AI畫圖軟體StableDiffusion

阿舍之前，如果需要用 LotusScript 來建立 Excel 的樞紐分析表的時候，都是先用 Excel 建好巨集和範本，然後，在 Agent 裡面去啟動這個巨集，是還不錯用，不過，阿舍這次要做的只是一個很簡單、很簡單的樞紐分析表，阿舍實在懶得去弄個範本了，所以，就想要在 Agent 裡用 LotusScript 直接建立這個  Excel 的樞紐分析表哩 !

阿舍本來想說，直接把在 Excel 裡錄好的巨集拿來改就好了，結果咧 ! 有點小麻煩哩 ! 試了老半天還是弄不出來哩 ! 實在是有點小小的不爽哩 ! 算了，只能去問看看 G 先生囉 ! 阿舍找到這篇和這篇來參考，然後，就搞定了哩 !



假設阿舍的資料是上面這張圖的樣子，然後，想要產出像下面這張圖的Excel 樞紐分析表為例，程式碼如下：





Call xlsSheet.PivotTableWizard ( 1,"Sheet1!R1C2:R" &  Cstr(Rows) & "C2","","得分統計表")
'Rows 是程式產出的Excel列數
'第二個參數的 "Sheet1!R1C2:R" &  Cstr(Rows) & "C2"  是指出資料來源
'第三個參數給 "" 表示要將樞紐分析表建立在新的 Sheet
      
Dim PivotCache As Variant
Dim PivotTable As Variant
Dim PTSheet As Variant

'因為第三個參數是指定產在新的 Sheet，所以，要移到新建的 Sheet 才能操作樞紐分析表
Set PTSheet = xlsApp.ActiveSheet
Set PivotTable = PTSheet.PivotTables("得分統計表")
PivotTable.PivotFields("姓名").Orientation = "1"
       
With PivotTable.PivotFields("得分")
     .Orientation = "4"
     .Name = "得分統計表"
     .Function = "1"
End With

推薦閱讀

• 問題沒解決嗎? 更多的 Ubuntu 教學在 這裡
• Prompt Injection: 提示詞注入安全漏洞
• 二款 Mac 無痛安裝的 Stable Diffusion 軟體
• 用 AI 寫部落格文章好不好 ?
• 沒有免費的 Midjourney 和 Colab 又不想花錢怎麼辦 ?
• 不學 Prompt 技巧也能善用 ChatGPT 的簡單方法
• 企業 AI 應用：不只是聊天機器人
• Automatic 比 Automatic1111 更好用 ? 都是 Stable Diffusion WebUI
• Stable Diffusion 的 /describe 圖生文功能
• AI 畫出讓人可怖的美圖 ！

有疑問？ 問題還是沒解決嗎? 歡迎下方留言提問和討論 😁