Access) (Screen.ActiveDatasheet 屬性

使用 ActiveDatasheet 屬性搭配 Screen 物件來識別或參考具有焦點的資料工作表。 唯讀 Form 物件。

語法

運算式。ActiveDatasheet

表達 代表 Screen 物件的變數。

註解

ActiveDatasheet 屬性設定值包含了在執行階段擁有焦點的資料工作表物件。

使用這個屬性來參照使用中資料工作表及其其中一個屬性或方法。 例如，下列的程式碼使用 ActiveDatasheet 屬性來參照在使用中資料工作表最上面的選取列。

TopRow = Screen.ActiveDatasheet.SelTop

範例

下列範例使用 ActiveDatasheet 屬性來辨認有焦點的資料工作表儲存格，假如不只選取一個儲存格，則識別該選取範圍中第一列、第一欄的位置。

Public Sub GetSelection() 
 ' This procedure demonstrates how to get a pointer to the 
 ' current active datasheet. 
 
 Dim objDatasheet As Object 
 Dim lngFirstRow As Long 
 Dim lngFirstColumn As Long 
 Const conNoActiveDatasheet = 2484 
 
 On Error GoTo GetSelection_Err 
 
 Set objDatasheet = Screen.ActiveDatasheet 
 
 lngFirstRow = objDatasheet.SelTop 
 lngFirstColumn = objDatasheet.SelLeft 
 MsgBox "The first item in this selection is located at " & _ 
 "Row " & lngFirstRow & ", Column " & _ 
 lngFirstColumn, vbInformation 
 
GetSelection_Bye: 
 Exit Sub 
GetSelection_Err: 
 If Err = conNoActiveDatasheet Then 
 MsgBox "No data sheet is active.", vbExclamation 
 Resume GetSelection_Bye 
 End If 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。