帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-1 18:54 | 只看該作者

[發問] 樞紐分析表無法排序由小到大?

請問使用樞紐分析表時

篩選出來的結果為什麼無法使用"排序"大小 ?

我想把篩選出來的結果使用"排序"去整理資料由早至後的日期,但是卻無法自動排序

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2012-3-2 09:18 | 只看該作者

是否將您的資料po出來~
才能了解您為什麼無法排序~

學習才能提升自己

TOP

YTT

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: Windows7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-3-2
最後登錄: 2012-3-2

3^#

發表於 2012-3-2 12:18 | 只看該作者

或許你可以先排序再籂選

YTT

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2012-3-2 15:28 | 只看該作者

樞鈕中雙擊日期欄位的標題，在對話框裡選"進階"，裡面有排序的選項
依指示操作即可。

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

5^#

發表於 2012-3-2 21:02 | 只看該作者

回復 2# hugh0620

附上檔案

報表.rar (32.63 KB)

回復 3# YTT

資料庫的日期排序是正確的，但是在樞紐分析表篩選後排序就會錯亂

回復 4# oobird

使用過一般排序，也試過進階排序
但是都無法改變，不曉得是哪個環節出問題

---------
目前使用樞紐分析表按下重新整理後,分析表會出現下面幾種狀況,希望前輩們可以幫忙解答

1.框線會出現斷截,無法自動填滿框線,需手動繪製缺餘的
2.版面配置重複的項目標籤,每次有新資料,再重新整理後都要在手動使用[重複所有項目標籤]
3.有些無資料的框格會出現(空白)字樣,有試過在樞紐分析表選項中使用,版面配置與格式>若為空白顯示"-"，但好像無作用
4.除了最前列的標籤可以排序,其餘後面都無法正常使用排序作用,重點想使日期依照早至晚的排列

以上幾點或許說得有些含糊,如有不明的地方請告知

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2012-3-2 21:43 | 只看該作者

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 265
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-29

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-3-2 23:08 | 只看該作者

回復 5# jackson7015

學海無涯_不恥下問

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

8^#

發表於 2012-3-3 00:49 | 只看該作者

回復 6# oobird
回復 7# Hsieh
首先感謝兩位大版主的詳細圖解

對於問題的1.2點目前只能手動解決嗎?
因為每次有資料需要更新後,都需要再重新點選
而且項目工作頁有10幾頁,所以想請問有沒有能讓它在篩選後直接是已經完成版面配置和框架畫線的動作

對於第3點目前也是"手動"在篩選後的頁面(空白)格中,鍵入"-"

第4點問題,和各位大大的解答些微的差距
小弟主要是想以日期做排序,所以不管電號有否相同,整個工作頁都是以日期做主要排序
而大大們的解說是以電號為前頭標籤,之後排序日期

以下是小弟想要的成品

再次感謝各位大大們的幫忙

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2012-3-3 09:33 | 只看該作者

回復 8# jackson7015

你的目的不是用樞鈕分析表，樞鈕分析表是統合歸納，你要的只是排列某些欄位
用這個代碼：

Sub yy()
Dim i%, j%, n%, c, arr, a
c = Array(3, 4, 5, 10, 1, 11, 12)
With Sheets("綜合資料庫")
n = .[b65536].End(3).Row
a = .Range(.Cells(4, 2), .Cells(n, 13))
End With
ReDim arr(1 To UBound(a), 1 To 7)
For j = 1 To UBound(a)
For i = 1 To 7
arr(j, i) = a(j, c(i - 1))
Next i, j
With Sheets("項目9")
.Cells(2, 1).Resize(j - 1, 7) = arr
.Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
.UsedRange.Borders.LineStyle = 1
End With
End Sub

複製代碼

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

10^#

發表於 2012-3-3 21:10 | 只看該作者

本帖最後由 jackson7015 於 2012-3-3 21:11 編輯

回復 9# oobird

我使用了oobird大提供的巨集,卻出現了,執行階段錯誤'1004'

錯誤訊息為
無法移動樞紐分析表的一部分，或在樞紐分析表中插入工作表儲存格，列或欄．若要插入工作表儲存格，列或欄，要先移動樞紐分析表(選取該樞紐分析表，在[選項]索引標籤的[動作]組群中，按下[移動樞紐分析表])．若要在樞紐分析表中新增，移動或移除儲存格，請執行下列動作之一:
．使用樞紐分析表欄位清單來新增，移動或移除欄位

錯誤列為

.Cells(2, 1).Resize(j - 1, 7) = arr

複製代碼

可以麻煩幫忙再看看一下嗎

PS.我把日期列換到最前頭(電號前面),就能正常排序了,但是在後面卻無法使用排序；樞紐分析表是否只有第一列可以排序 ?

TOP