返回列表 上一主題 發帖

[分享] 使用 SpecialCells 方法的迷思

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-26 20:51 | 只看該作者

[分享] 使用 SpecialCells 方法的迷思

本帖最後由 GBKEE 於 2011-11-21 12:01 編輯

如指定的範圍中的儲存格有隱藏時 此時使用到SpecialCells的方法
就會觸動到工作表的Worksheet_SelectionChange
ThisWorkbook 的 Workbook_SheetSelectionChange 兩程序
使用參數 xlCellTypeLastCell  
永遠是傳回  UsedRange 的範圍中最後一個 Cell,  你無法傳回 在一指定 的範圍中最後一個 Cell
  1. Sub Ex()
  2.     With ActiveSheet
  3.        .[A15] = "TEST"
  4.        .[H1] = "TEST"
  5.         MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
  6.         MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
  7.         .[A15] = ""
  8.         .[A10] = "TEST"
  9.         MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
  10.         MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
  11.    End With
  12. End Sub
複製代碼
收藏 分享

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
2#
發表於 2010-9-13 18:25 | 只看該作者
第一次发现这个问题,谢谢!

TOP

apolloooo
　暱稱: 借钱

中學生Rank: 2

帖子
54 
主題
7 
精華
0 
積分
81 
點名
0  
作業系統
WINDOWS XP 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2011-1-14 
最後登錄
2021-4-23 
3#
發表於 2011-1-14 23:25 | 只看該作者
試了一下，果然如此
借錢不還，才是王道

TOP

davidoff

帖子
10 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2011-11-23 
最後登錄
2012-11-27 
4#
發表於 2011-11-23 04:29 | 只看該作者
"使用參數 xlCellTypeLastCell 永遠是傳回  UsedRange 的範圍中最後一個 Cell"
除了這個須要特別注意之外，

.[A:A].SpecialCells(xlCellTypeLastCell).Address
.UsedRange.SpecialCells(xlCellTypeLastCell).Address
上面兩條真的是很少會去想到會有差別。
剛看到還想半天，怎麼得到的值會有差。
原來兩者的UsedRange是由不同的方式定義出來的。

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題