窗体与单元格的相对位置

清风_ll

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

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.    
   
4.     Dim rng As Range, X As Single, Y As Single, DZoom As Single
   
5.     Set rng = ActiveCell
   
6.    If rng.Column = 4 Then
   
7.    With ActiveWindow
   
8.         DZoom = .Zoom / 100
   
9.         X = .PointsToScreenPixelsX((rng.Left + rng.Width) / PointsPerPixel * DZoom)
   
10.         Y = .PointsToScreenPixelsY((rng.Top) / PointsPerPixel * DZoom)
    
11.     End With
    
12.    
    
13.     With UserForm1
    
14.         If .Visible = False Then .Show 0
    
15.         .Move X * PointsPerPixel, Y * PointsPerPixel
    
16.     End With
    
17.    End If
    
18.     Set rng = Nothing
    
19. 
    
20. End Sub
    

复制代码

biomaster

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

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

清风_ll

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

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

winglet2350

是好东西就得留个脚印。

IVYQQQQQ

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

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

jifdan

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

ameizzp