窗体与单元格的相对位置

清风_ll · 发表于 2013-12-16 10:16

本帖最后由清风_ll 于 2013-12-16 10:18 编辑

判断一下行号或列号就可以了，增加5、16行代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, X As Single, Y As Single, DZoom As Single
Set rng = ActiveCell
If rng.Column = 4 Then
With ActiveWindow
DZoom = .Zoom / 100
X = .PointsToScreenPixelsX((rng.Left + rng.Width) / PointsPerPixel * DZoom)
Y = .PointsToScreenPixelsY((rng.Top) / PointsPerPixel * DZoom)
End With
With UserForm1
If .Visible = False Then .Show 0
.Move X * PointsPerPixel, Y * PointsPerPixel
End With
End If
Set rng = Nothing
End Sub

复制代码

biomaster · 发表于 2014-11-2 08:20

本帖最后由 biomaster 于 2014-11-2 15:12 编辑

清风_ll 发表于 2013-12-16 10:16
判断一下行号或列号就可以了，增加5、16行代码

请问斑竹，定义activecell是不是意味着只有一个对应的单元格？而selectedCell可以多个单元格？如果从窗体向单元格输入数据，那么是不是只输进activeCell? 我发现ruguo一次选多个单元格（包含符合条件单元格的话）也能激活窗体。
此外，acitivecell 是不是意味着只是选中单元格，但是光标还没有进入单元格内？如果想要实现双击单元格，光标在单元格内闪动后窗体关闭，那么代码怎么写？谢谢！

清风_ll · 发表于 2014-11-12 09:09

biomaster 发表于 2014-11-2 08:20
请问斑竹，定义activecell是不是意味着只有一个对应的单元格？而selectedCell可以多个单元格？如果从窗体 ...

ActiveCell代表活动单元格,每个工作表任何时刻都有且只有一个活动单元格,Selection可以表示选中的单元格,可以有多个单元格,但选中多个单元格时,此时ActiveCell存在于选中单元格区域中.活动单元格不管选中没有选中,都是存在的.如希望通过双击实现,可以使用工作表对象的DoubleClick事件.

winglet2350 · 发表于 2015-3-23 11:36

是好东西就得留个脚印。

IVYQQQQQ · 发表于 2019-1-17 14:05

清风_ll 发表于 2012-11-4 21:26
请检测一下：

有个问题，只要页面有冻结空格，显示位置就不对了，有没有好的方法解决。

jifdan · 发表于 2020-8-5 16:36

好东西，感谢楼主分享！！学习了

ameizzp · 发表于 2021-1-11 22:25

		自动登录	找回密码
密码			免费注册

[求助] 窗体与单元格的相对位置