Form.SelWidth 屬性 (存取)

使用 SelWidth 屬性來指定或決定目前選取矩形中) 的所選欄 (欄位數目。 讀取/寫入的 Long。

語法

表達。SelWidth

expression 代表 Form 物件的變數。

註解

如果沒有選取範圍，此屬性傳回的值將是零。 將屬性的值設定為 0，會從資料工作表或表單中移除選取範圍。

如果您已經選取一個或多個記錄中資料工作表 (使用記錄選取器)，就無法變更 SelWidth 屬性 (除非將它設定為 0) 的設定。

將這些屬性與 SelTop 和 SelLeft 屬性搭配使用，以指定或判斷資料表上選取矩形的實際位置。 如果沒有選取項目， SelTop 和 SelLeft 屬性會傳回具有焦點之儲存格的資料列編號和資料行編號。

SelHeight 和 SelWidth 屬性包含選取範圍矩形的右下角的位置。

SelTop 和 SelLeft 屬性值會判斷選取範圍矩形的左上角。

範例

下列範例示範如何使用 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 支援與意見反應。