如何让SpreadSheet实现类似ScrollArea的功能？

作者：绿色风分类：时间：2022-08-17 浏览：110

楼主
amulee

Q：如何让SpreadSheet实现类似ScrollArea的功能？
A：我们知道，在Worksheet中有个属性ScrollArea可以限定用户的选择范围。在SpreadSheet中这一属性不能使用了，但是我们可以通过变通的方法来实现。
只要利用SpreadSheet的Selection_Change事件就可以，如下例，设定B1：B5

Private Sub Spreadsheet1_SelectionChanging(ByVal Range As OWC11.Range)
Dim Rng As OWC11.Range
'设定一个范围
Set Rng = Spreadsheet1.Worksheets(1).Range("B1:B5")
'判断选择是否超出范围
If Range(1).Column < Rng(1).Column Or _
Range(1).Row < Rng(1).Row Or _
Range(Range.Count).Column > Rng(Rng.Count).Column Or _
Range(Range.Count).Row > Rng(Rng.Count).Row Then
Rng(1).Select
End If
End Sub

限定SpreadSheet范围.rar

2楼
pigpigabc123

多谢版大！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表