主题：可否实现，鼠标选定区域所有行？

如题

一个数据表中，用鼠标拖动来选定行单元格（阴影部分）区域，如何实现此区域的所有行中某一列的值？不知现在说明白没有？

哦，明白了，谢老六了!
在KeyUP事件中，如下代码为何复选框不选中，请教各位了！先谢！
dim s as string
if e.KeyCode = Keys.LButton then
  With Tables("员工选择_Table1")
    If .BottomPosition- .TopPosition >= 1 Then '如果选定区域包括数据大于一行
        For i as Integer = .TopPosition To .BottomPosition
            .Rows(i).checked = true
         Next
    End If
  End With
end if

发现在Keys枚举类型中LButton,好像是失效的，在Keydown事件中也不执行。改成其它的可以。请各位测试下。