#244
表形式またはデータシート形式のフォームにおいて、レコードセレクタ上のドラッグによって範囲選択されているレコード数を取得するには、フォームの"SelHeight"プロパティの値を調べます。また同様に、"SelTop"プロパティによって、範囲選択されている一番先頭の行のレコード番号を得ることができます。
次の例では、レコードを範囲選択した状態でF4キーを押すことによって、それらの情報をメッセージボックスに表示します。
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
MsgBox "範囲選択されている先頭行は " & Me.SelTop & " です。" & _
vbCrLf & vbCrLf & _
"範囲選択されている行数は" & Me.SelHeight & " 行です。", _
vbOKOnly + vbInformation
End If
End Sub
If KeyCode = vbKeyF4 Then
MsgBox "範囲選択されている先頭行は " & Me.SelTop & " です。" & _
vbCrLf & vbCrLf & _
"範囲選択されている行数は" & Me.SelHeight & " 行です。", _
vbOKOnly + vbInformation
End If
End Sub
