Form.SelLeft プロパティ (Access)

現在の選択四角形の左端にある列 (フィールド) を指定または決定するには、 SelLeft プロパティを使用します。 読み取り/書き込みが可能な Long です。

構文

式。SelLeft

expressionForm オブジェクトを表す変数です。

注釈

SelLeft プロパティは、2 からデータシートの列数 + 1 までの値を返します (Access は 0 からカウントを開始します)。 最初の 2 つの列は、常にレコード セレクター列とサブデータシートの展開/折りたたみインジケーター列です。

何も選択されていない場合、このプロパティの値はフォーカスを持つセルの行番号と列番号になります。 データシートでレコード セレクターを使用して 1 つ以上のレコードが選択されている場合、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 のサポートおよびフィードバックを参照してください。