作者：绿色风
分类：
时间：2022-08-17
浏览：276
楼主
kevinchengcw |
Q：如何让窗体跟随活动单元格？
A：打开一个新的excel文档，按Alt + F11进入VBA编辑器，插入一个窗体，将窗体的位置属性设置为手动（也可以在初始化事件Private Sub UserForm_Initialize()里设置startupposition = 0），适当增加点说明，然后在要出现这种跟随的工作表的worksheet_selectionchange事件里加入如下代码：- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- UserForm1.Hide '先藏起来，等移动完成了再让你看
- UserForm1.Move ActiveWindow.PointsToScreenPixelsX(0) + Target.Offset(0, 1).Left - 10, _
- ActiveWindow.PointsToScreenPixelsY(0) + Target.Top - 52 '不知为何，pointstoscreenpixels有误差，要校正一下
- UserForm1.Show '暗箱操作完成，现在让你看到位置
- End Sub
这样，你选中的活动单元格的右侧就会出现设置的窗体了。
如下图效果：
附示例文件。
 窗体学习--跟随活动单元格的窗体.rar
|
2楼
hanter007 |
这个有时候很有用,谢谢分享. |
3楼
成就滋味 |
学习了，拿去做导航，呵呵 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一