返回列表 上一主題 發帖

Excel 點選任一儲存格，以按鈕篩選結果

thisisjames

帖子
4 
主題
3 
精華
0 
積分
12 
點名
0  
作業系統
W7 
軟體版本
office2007 
閱讀權限
10 
註冊時間
2011-8-6 
最後登錄
2011-8-29 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-14 21:22 | 只看該作者

Excel 點選任一儲存格，以按鈕篩選結果

本帖最後由 oobird 於 2011-8-15 13:11 編輯

[attach]7460[/attach]

sheet2.png (63.67 KB)

sheet2.png

收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2011-8-14 23:37 | 只看該作者
  1. Private Sub CommandButton1_Click()
  2.     If Cells.SpecialCells(12).Rows.Count = 65536 Then
  3.         Set Rng = Range([a2], [f65536].End(3)).ColumnDifferences(Selection)
  4.         Rng.EntireRow.Hidden = True
  5.     Else
  6.         Cells.EntireRow.Hidden = False
  7.     End If
  8. End Sub
複製代碼
a.gif

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
3#
發表於 2011-8-15 21:40 | 只看該作者
是一個很好的創意

可以做成增益集工具的一部份 就會更好了
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

Happkkevin
　暱稱: Kevin

中學生Rank: 2

帖子
56 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
Window7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2011-6-25 
最後登錄
2016-1-17 
4#
發表於 2011-8-17 19:46 | 只看該作者
回復 2# oobird

請問 SpecialCells(12) 的 12 含義為何
其他相關的數字有無資料可參考
  1. XlCellType 可以是這些 XlCellType 常數之一。
  2. xlCellTypeAllFormatConditions。  任何格式的儲存格
  3. xlCellTypeAllValidation。具有驗證準則的儲存格
  4. xlCellTypeBlanks。空儲存格
  5. xlCellTypeComments。包含註解的儲存格
  6. xlCellTypeConstants。包含常數的儲存格
  7. xlCellTypeFormulas。包含公式的儲存格
  8. xlCellTypeLastCell。已用範圍的最後一個儲存格
  9. xlCellTypeSameFormatConditions。  有相同格式的儲存格
  10. xlCellTypeSameValidation。  有相同驗證準則的儲存格
  11. xlCellTypeVisible。所有可見儲存格
複製代碼
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題