- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
[分享] 使用 SpecialCells 方法的迷思
本帖最後由 GBKEE 於 2011-11-21 12:01 編輯
如指定的範圍中的儲存格有隱藏時 此時使用到SpecialCells的方法
就會觸動到工作表的Worksheet_SelectionChange
ThisWorkbook 的 Workbook_SheetSelectionChange 兩程序
使用參數 xlCellTypeLastCell
永遠是傳回 UsedRange 的範圍中最後一個 Cell, 你無法傳回 在一指定 的範圍中最後一個 Cell
- Sub Ex()
- With ActiveSheet
- .[A15] = "TEST"
- .[H1] = "TEST"
- MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
- MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
- .[A15] = ""
- .[A10] = "TEST"
- MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
- MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
- End With
- End Sub
複製代碼 |
|