Re: [算表] Excel篩選欄位

看板Office作者 ( 4X)時間13年前 (2011/02/07 17:45), 編輯推噓2(200)
留言2則, 2人參與, 最新討論串2/2 (看更多)
: 版本: 2007 : 嘗試使用"篩選"功能,但是只能篩選直的欄位,無法篩選橫的欄位 : 例如下面這個連結是台鐵火車時刻表 : http://tinyurl.com/62wy4tu : 我想篩選出是 "自強號" 的欄位,並且把其他欄位隱藏 : 但是不知道有甚麼方法可以辦到? 如果是使用vba,假設你不知道VBA怎麼進入,請依序如下操作: (不用vba我也不知道怎麼套功能才能做到...) 1.Alt+F11 熱鍵進入Vba介面 2.插入(I)→模組(M) 插入輸入指令的一個模組(Module) 3.貼上程式碼 以下我提供兩組Code,請全部貼上(不含線段"─") ─────────────────────────── Sub a1() Dim i As Integer For i = 9 To 64 If Cells(3, i) <> "自強" Then Cells(3, i).EntireColumn.Hidden = True End If Next i End Sub Sub a2() Dim i As Integer For i = 9 To 64 Cells(3, i).EntireColumn.Hidden = False Next End Sub ─────────────────────────── 註1.說明使用 首先「a1」這段程式是指「凡是I3至BL3中非『自強』者均隱藏」; 可是如果今天你使用完要回復原狀,因為vba操作後結果無法採Excel 中的Ctrl+Z復原,所以需要一個程式碼把所有欄位(隱藏&非隱藏)全 部設為「顯示」,這時候就要啟動「a2」這段程式。 註2.啟動方式 vba的某段程式要啟動很簡單,就請在該段程式裡點一下,確定游標在 該段程式中閃爍,按「F5」即大功告成。 *再次強調,VBA使用後的結果,是無法以Ctrl+Z復原,請考慮是否另存存檔* (但是在這個案例裡倒是沒這麼嚴重的影響,因為沒有刪減什麼內容,僅作為提醒) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.194.220.82

02/07 18:09, , 1F
02/07 18:09, 1F

02/11 17:13, , 2F
感謝你~太詳盡了
02/11 17:13, 2F
文章代碼(AID): #1DJxz8JN (Office)
討論串 (同標題文章)
文章代碼(AID): #1DJxz8JN (Office)