使用 SelLeft 屬性來指定或判斷目前選取矩形中最左邊 (欄位) 資料行。 讀取/寫入的 Long。
語法
表達。左翼
expression 代表 Form 物件的變數。
註解
SelLeft 屬性會傳回介於 2 和資料工作表中資料行數目之間的值 + 1, (Access 會從 0) 開始計算。 前兩欄一律是子資料表的記錄選取器欄和展開/摺疊指標欄。
如果沒有選取範圍,則屬性傳回的值是具有焦點之儲存格的列和欄。 如果您已選取資料工作表一個或一個以上的記錄 (使用記錄選取器),則您不能變更 SelLeft 屬性。
將這些屬性與 SelHeight 和 SelWidth 屬性搭配使用,以指定或判斷選取矩形的實際大小。
SelTop 和 SelLeft 屬性判斷選取範圍矩形的左上角的位置。
SelHeight 和 SelWidth 屬性判斷選取範圍矩形的右下角。
範例
下列範例示範如何使用 SelHeight、 SelWidth、 SelTop 和 SelLeft 屬性來判斷 [資料工作表] 檢視中選取矩形的位置和大小。
SetHeightWidth 程序會將目前選取矩形的高度和寬度指派給變數 lngNumRows、 lngNumColumns、 lngTopRow和 ,lngLeftColumn並在訊息方塊中顯示這些值。
Public Sub SetHeightWidth(ByRef frm As Form)
Dim lngNumRows As Long
Dim lngNumColumns As Long
Dim lngTopRow As Long
Dim lngLeftColumn As Long
Dim strMsg As String
' Form is in Datasheet view.
If frm.CurrentView = 2 Then
' Number of rows selected.
lngNumRows = frm.SelHeight
' Number of columns selected.
lngNumColumns = frm.SelWidth
' Topmost row selected.
lngTopRow = frm.SelTop
' Leftmost column selected.
lngLeftColumn = frm.SelLeft
' Display message.
strMsg = "Number of rows: " & lngNumRows & vbCrLf
strMsg = strMsg & "Number of columns: " _
& lngNumColumns & vbCrLf
strMsg = strMsg & "Top row: " & lngTopRow & vbCrLf
strMsg = strMsg & "Left column: " & lngLeftColumn
MsgBox strMsg, vbInformation
End If
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。