阿舍本來想說,直接把在 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 相關教學可以參考哩 ...
買本阿舍寫的電子書帶走 - Ubuntu 指令新手馬上會用到的 35 個技法
沒有留言 :
張貼留言