控件把鼠标放上去出现一个小窗口_控件跟着鼠标走,VBA让你的操作随心所欲
大家好,我们今日继续讲解VBA代码解决方案的第97讲内容:控件跟随鼠标,在利用VBA写代码的时候,往往很多发现是不经意间的。对于这类发现要善于总结,善于利用才能逐渐的提高自己的能力。例如在前几篇文章中讲到的利用文本框录入数据的时候,我们往往需要一个界面,作为录入的界面,在这个界面上再进行相应的操作,录入数据后,数据写到工作表中,这种思路是以录入界面为主窗口的,如果我们换种思维模式,可否还以工作表为主题呢?
这时我们的思路会打开,这时录入的数据跟随单元格,类似于单元格的下拉菜单,这时的录入在某种场合下会很方便。还有,在工作表中使用控件时一般都把控件放在工作表的上部,如果工作表中数据较多,当页面滚动到工作表下面的区域时,控件会离开当前可视区域,这时操作起来很不方便。我们今天就来解答这个大胆的猜想。
看下面的代码:
Private Sub Worksheet_Activate()
Me.TextBox1.Text = ""
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Top = Target.Top
TextBox1.Left = Target.Left + Target.Width
End Sub
代码解析:工作表的SelectionChange事件,使工作表中的按钮控件出现在选定单元格的右边。
在上面的代码中我们
第3行代码,设置TextBox1的Top属性等于选定单元格的Top属性。Top属性设置对象顶端到第一行顶端的距离。
第4行代码,设置TextBox1的Left属性等于选定单元格的Left属性加上选定单元格的宽度,即按钮出现在选定单元格的右边。Left属性设置对象左边界至 A 列左边界的距离。
当单击工作表区域的任一单元格,TextBox1出现在单元格的右边。这样就实现了控件跟随光标的移动达到我们最初设计的要求。如果再加上一些代码,如之前代码中的Sheets("sheet11").Range("a65536").End(xlUp).Offset(1, 0) = TextBox1.Text稍加修改:Target.value= TextBox1.Text 或者根据自己的需要就可以随心所欲的完成录入数据了。
代码截图:
运行窗口:
录入数据:
这时就可以跟随单元格来录入数据了。
今日内容回向:
1 如何实现录入文本框的跟随?
上面的思路是否可以理解呢?
控件把鼠标放上去出现一个小窗口_控件跟着鼠标走,VBA让你的操作随心所欲相关推荐
- php 鼠标小手,CSS如何让鼠标放上时的小手样式
CSS实现让鼠标放上时出现小手样式的方法:首先创建一个HTML示例文件:然后在body中添加一个span标签:接着给该标签添加"cursor:pointer;"样式来实现让鼠标放上 ...
- 鼠标放上去会变成小手样式
鼠标放上去会变成小手样式 在需要想变成小手的div盒子上加上一个css的样式 cursor:pointer;即可. <div @click="handleDownload"s ...
- 运放输出端加一个小电阻的作用
1.运放输出端加一小电阻的作用? 答:运放输出短路的保护方法很简单,只要用一个小电阻R串接于运放的输出端,如图所示,就能防止输出短路失效.如果这个电阻接到反馈环路内,如图中虚线所示,除输出电压明显下降 ...
- html点击按钮弹出悬浮窗_9种实现点击一个链接弹出一个小窗口的代码
9 种实现点击一个链接弹出一个小窗口的代码 因为着是一段 javascripts 代码, 所以它们应该放在之间. 是对一些版本低的浏览器起作用,在这些老浏览器中不会将 标签中的代码作为文本显示出来.要 ...
- Python Opencv 实现鼠标事件(包含一个练习)——事件触发讲解·以及鼠标回调函数的实现
文章目录 鼠标事件概述 鼠标事件发生的结构 鼠标回调函数的标准格式 opencv下包含的所有事件--包含flag和event(可以看一下,熟悉常见事件范围) 鼠标事件的实现函数 一个完整的鼠标事件由一 ...
- html鼠标变成小手_什么牌子的鼠标好用?2020双十一鼠标选购建议和产品推荐
目录 什么品牌的鼠标好? 选择鼠标时要考虑的因素 选购建议 鼠标产品推荐(20元到1000元) 鼠标垫推荐 什么品牌的鼠标好? 鼠标的技术门槛不算高,所以品牌众多,不过经过市场的不断洗礼和选择,剩下知 ...
- 利用python做一个小游戏_如何使用python做一个简单的猜数字的小游戏
1 首先小编先打开IDLE,如下图: 2 然后这里点击菜单栏的'File',然后点击菜单"New File",如下图: 3 然后我们就在idle中新建了一个python文件,如下图 ...
- UI5控件类似Java反射机制的一个小技巧
一个很小的tip:比如我想把UI5里 table里的每个column 设置成宽度根据显示的内容自适应,需要知道应该call控件的哪个方法来实现. 一种办法当然是查help 文档,得知需要call se ...
- 鼠标放上去,变成小手状
只需要在要改的地方加入style="cursor:pointer;"即可.
最新文章
- 序列比对软件/比对工具的比较
- MySqli 连接失败 MySQL connection not working: 2002 No such file or directory
- 使用ISAPI_Rewrite做实用的重定向
- 翻译:FireBug 1.10 新特性
- 百度牵头,全球首个面向商业化运营的Robotaxi技术标准正式发布
- 「SVN」ubuntu svn自动忽略了.a.so等文件
- android gps 锁屏更新坐标_把手机锁屏设置成任意字体,悄悄给男(女)朋友一个惊喜吧...
- 远程键盘 App 被曝漏洞,成 Intel 弃子!
- macos无法验证此app不包含恶意软件_macOS 下 Electron 程序的签名及公证
- 5G+AIoT“零碳”解决方案 | 模组助力“4S” 融合的新一代智能汽车驶入快车道
- 什么是YottaChain存储,为什么说是未来数据存储的趋势?
- WiFi mac地址详解
- 我只写注释 —— 让Ai写代码
- jdk7与jdk8 如何相互切换
- 服务器性能测试脚本大全
- 概率论与数理统计手写笔记
- android插件实现打印机,Android USB调用打印机(针式打印机)
- 用volatile的视角,来打开JMM内存模型
- svn 代码迁移到git
- 2019年2月被举报钓鱼网站
热门文章
- pdol链接mysql_MySQL5.7.11免安装版的安装和配置:解决MYSQL服务无法启动问题
- 玩转 SpringBoot 2 之整合定时任务篇
- android datebinding学习
- python入门第六章 信息安全策略-文件备份 用户账户管理
- mysql端口4050_mysql 安装使用小记
- 第一序列任小粟的能力_末世废土文—《第一序列》:“这世间,已经不需要齐天大圣了。”...
- 面向对面 静态参数 与 组合
- Openwrt笔记-1-校园网连接
- spark on yarn 配置history server
- [转]ListView滚动到底部自动加载数据