大家好。今天，我将解释第97篇文章“控制跟随鼠标”。在使用VBA编写代码时，我经常会不经意地发现一些东西。只有成功地组织和利用这些发现，我们才能逐步提高自己的能力。例如，如果你像上一篇文章中介绍的那样使用文本框输入数据，那么你往往会需要一个界面作为输入界面，并在输入数据后在这个界面上执行相应的操作。 idea使用输入界面作为主窗口，我可以改变思维模式，仍然使用工作表作为主题吗？
此时，您输入的数据将跟随单元格，类似于单元格下拉菜单，这在某些情况下可能非常有用。此外，当您在工作表上使用控件时，控件通常放置在工作表的顶部。如果工作表有大量数据，当页面滚动到工作表底部区域时，控件会移离当前位置。在可视范围内操作非常不方便。今天我们就来解答一下这个大胆的猜测。
请参阅下面的代码。
私有子工作表_Activate()
Me.TextBox1.Text=\\\’\\\’
结束子
私有子工作表_SelectionChange（ByVal 目标作为范围）
TextBox1.Top=Target.Top
TextBox1.Left=Target.Left + Target.Width
结束子
代码分析：工作表的SelectionChange事件使工作表中的按钮控件出现在所选单元格的右侧。
在上面的代码中，
第三行代码将TextBox1 的Top 属性设置为与所选单元格的Top 属性相同。 Top 属性设置从对象顶部到第一行顶部的距离。
第四行代码将TextBox1 的Left 属性设置为所选单元格的Left 属性加上所选单元格的宽度。也就是说，该按钮将出现在所选单元格的右侧。 Left 属性设置从对象左边缘到A 列左边缘的距离。
单击工作表区域中的任意单元格，单元格右侧将出现一个TextBox1。这样控件就跟随光标移动了，满足了原设计的要求。如果要将Sheets(\\\’sheet11\\\’).Range(\\\’a65536\\\’).End(xlUp).Offset(1, 0)=TextBox1.Text 之类的代码添加到之前的代码中，如下所示：更改它一点。 Target .value=TextBox1.Text 或者，您也可以根据需要完成数据输入。
代码截图：
运行窗口：
输入数据：
此时，您可以沿单元格输入数据。
今日内容回顾：
1 如何实现输入文本框的以下功能？
你明白上面的想法吗？
本文和图片来自网络，不代表火豚游戏立场，如若侵权请联系我们删除：https://www.huotun.com/game/646269.html