怎样让窗体跟随单元格走。

yjwdjfqb · 发表于 2012-10-3 17:20

怎样让窗体跟随单元格走。

如图：
下图是一个不理想的样式：
档住了单元格.JPG

想改成下图方式（让窗体跟随单元格走）

想实现的效果.JPG

请朋友老师们帮帮忙，改成窗体跟随单元格走

见附件：

VBA小键盘输入数字(窗体跟随单元格走).rar (13.85 KB, 下载次数: 119)

蓝桥玄霜 · 发表于 2012-10-3 18:45

请见附件。

yjwdjfqb · 发表于 2012-10-3 19:16

蓝桥玄霜发表于 2012-10-3 18:45
请见附件。

蓝老师，修改的太好了，非常的感谢，老师节日快乐！！！

wj009 · 发表于 2013-6-10 12:17

这正是我苦苦找寻的，谢谢了

aman1516 · 发表于 2013-6-10 23:14

非常优秀，学习了

aman1516 · 发表于 2013-6-10 23:26

请问蓝彼主，直接用激活单元格为基准
ActiveCell.Top
ActiveCell.Left +ActiveCell.width 可以么？

另处，如果不跟单元格走，浮在工作表上并定位在窗口某位置是否用
y = ActiveWindow.ScrollRow ......
x = ActiveWindow.ScrollColumn ...... 为参考？

具体代码应如何改？

qinyu0745 · 发表于 2020-12-26 21:15

蓝桥玄霜发表于 2012-10-3 18:45
请见附件。

非常好用！谢谢！

charki · 发表于 2021-4-25 13:08

蓝老师的代码很好用。。。

1249994139 · 发表于 2023-5-25 09:15

太好了，收藏学习，感谢大神分享

ning84 · 发表于 2024-1-12 15:09

蓝桥玄霜发表于 2012-10-3 18:45
请见附件。

学习ExecuteExcel4Macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("B2:D15,D30,F5:G8,H13,L3")) Is Nothing) And Target.Count = 1 Then '符合指定单元格并满足只选择一个单元格时
Dim ActiveCellX As Integer
Dim ActiveCellY As Integer
ActiveCellX = ExecuteExcel4Macro("GET.CELL(44)")
ActiveCellY = ExecuteExcel4Macro("GET.CELL(43)")
Debug.Print ActiveCellX, ActiveCellY
With 小键盘
.Show 0
.Top = ActiveCellY + 110
.Left = ActiveCellX
End With
Else '否则
Unload 小键盘 '退出小键盘
End If
End Sub

复制代码

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

[求助] 怎样让窗体跟随单元格走。

评分