如何使窗体跟随固定列活动单元格显示在活动单元格右边

10307951261 · 发表于 2019-4-19 14:11

本帖最后由 lsc900707 于 2019-4-19 16:40 编辑

如何使窗体跟随J列的活动单元格显示在活动单元格右边

附件 -.rar (196.59 KB, 下载次数: 65)

10307951261 · 发表于 2019-4-19 16:22

各位大虾，帮帮忙

不知道为什么 · 发表于 2019-4-19 18:14

10307951261 发表于 2019-4-19 16:22
各位大虾，帮帮忙

动图效果，满意评分后上代码！谢谢

10307951261 · 发表于 2019-4-19 20:01

不知道为什么发表于 2019-4-19 18:14
动图效果，满意评分后上代码！谢谢

大虾，麻烦你再改下代码，使窗体跟随活动单元格，如点击J3单元格，窗体在K3单元格，点击J4单元格，窗体在K4单元格

不知道为什么 · 发表于 2019-4-19 20:22

10307951261 发表于 2019-4-19 20:01
大虾，麻烦你再改下代码，使窗体跟随活动单元格，如点击J3单元格，窗体在K3单元格，点击J4单元格，窗体在 ...

如图

10307951261 · 发表于 2019-4-20 10:37

不知道为什么发表于 2019-4-19 20:22
如图

大虾，麻烦你上传下代码

不知道为什么 · 发表于 2019-4-20 13:35

10307951261 发表于 2019-4-20 10:37
大虾，麻烦你上传下代码

附件供参考

附件 -.zip (194.75 KB, 下载次数: 977)

weiwuzhizu · 发表于 2022-5-26 22:38

不知道为什么发表于 2019-4-20 13:35
附件供参考

楼主你好，您传的附件我下载了，实际操作自定义窗体未根据指定单元格显示，只是一个相对位置，不是根据显示器位置定位，选择行数多了，窗体就会向下一直累加高度，直到消失不可见。看到有大神通过换算显示器位置成功的。

yoonger · 发表于 2022-12-28 11:14

weiwuzhizu 发表于 2022-5-26 22:38
楼主你好，您传的附件我下载了，实际操作自定义窗体未根据指定单元格显示，只是一个相对位置，不是根据显 ...

看见大神的代码如下，你参考一下：
Dim ActiveCellX As Integer
      Dim ActiveCellY As Integer
      ActiveCellX = ExecuteExcel4Macro("GET.CELL(44)")
      ActiveCellY = ExecuteExcel4Macro("GET.CELL(43)")

      With 小键盘
         .Show 0
         .Top = ActiveCellY + 90 '加多少根据实际情况修正……
         .Left = ActiveCellX
      End With

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

[求助] 如何使窗体跟随固定列活动单元格显示在活动单元格右边

评分

评分

评分