【VBA研究】进入文本框后其内容全选

最新推荐文章于 2021-07-27 22:21:55 发布
最新推荐文章于 2021-07-27 22:21:55 发布
阅读量7.1k 收藏 2
点赞数 1
分类专栏： VBA_Excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/iamlaosong/article/details/46865569
版权
本文介绍了在VBA中如何实现文本框内容全选，以便于在扫描条码时覆盖并显示最新扫描的内容，同时保留之前扫描的记录，提供更好的用户体验。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

作者：iamlaosong

做一个扫描核对工具，扫描的条码在文本框中，表单中只有一个用于扫描的文本框是有效的，另一个文本框用于显示核对正确时显示货品数量，不过这个文本框用户是不能操作的，如下图所示：

由于需要反复扫描条码，所以希望每次扫描时能覆盖上次扫描的内容，这有两种方法，一种是核对完毕后清除文本框的内容，另一种方法就是将内容全选，显然，第二种方法较好，因为核对完毕后还可以看到上次扫描的内容，如果清空则有点怪怪的，看着不爽，设置全选的代码如下：

。。。 

       BarCode = TextBox1.Value

。。。

   

最低0.47元/天 解锁文章
用VBA制作Excel单选框和多选框
wmktcw的博客
11-15 3593
效果演示动图： 组成结构解析： Sheet1中的数据源（数据取自吴明老师的Excel综合进阶课程练习素材） Sheet2中的国家多选框 Sheet2中的类别单选框 Sheet2中的销售额列（使用公式计算获得，个人觉得这个函数才是这个案例中最复杂的部分） Sheet2中右侧的数据透视表和切片器（用来验证左侧销售额列计算结果） VBA程序 所需技能分析： Office基础操作 Excel公式与函数（多重函数嵌套+数组公式） 数据透视表（基础技能+切片器） 插入控件（此处只手动更改了控.
WEB自动化_键盘事件（输入内容、全选、退格、回车、删除等）
lkr
06-28 878
WEB自动化_键盘事件（输入内容、全选、退格、回车、删除等）
关于文本框自动全选
weixin_33950035的博客
08-30 295
<inputtype="text"onmousemove="this.focus();this.select();"> 转载于:https://blog.51cto.com/hdjdcyl/1147830
VBA笔记——自动选择文本框内容
一位VBA和JSA、书法爱好者
01-05 2453
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '鼠标右键的时候全选 With TextBox1 If Button = 2 Then .SelStart = 0 ...
设计模式系列 — 状态模式
org_hjh的博客
11-03 174
点赞再看，养成习惯，公众号搜一搜【一角钱技术】关注更多原创技术文章。 本文 GitHub org_hejianhui/JavaStudy 已收录，有我的系列文章。 前言 23种设计模式速记 单例（singleton）模式 工厂方法（factory method）模式 抽象工厂（abstract factory）模式 建造者/构建器（builder）模式 原型（prototype）模式 享元（flyweight）模式 外观（facade）模式 适配器（adapter）模式 装饰（decorator）..
怎样对TextBox用Ctrl A实现全选
zwk_9的专栏
12-30 2322
<br />private   void   textBox1_KeyUp(object   sender,   System.Windows.Forms.KeyEventArgs   e) <br />{ <br />if(e.Modifiers   ==   Keys.Control   &&     e.KeyCode   ==   Keys.A) <br />{ <br />((TextBox)sender).SelectAll(); <br />} <br />}<br /> <br /><br
(vb6小技巧)鼠标在文本框一按下就选中所有文字
weixin_33724059的博客
01-10 816
很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？ Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 转载于:https://blog.51cto.com/tallbi...
VB.net关于Textbox文本控件全选的小技巧
浮不出来的星
05-08 3872
#Region "搜索框的全选"     Dim counter As Integer = 0 点击次数    Dim isSelectAll As Boolean = False 是否全选    Dim selectPoint As Integer = 0  当前光标位置     Private Sub TextBox1_Click(ByVal sender As
【VBA研究】扫描条码计数
驽马十驾 才定不舍
09-30 3923
作者：iamlaosong 仓库入库出库时扫描商品条码，以便统计每种商品的数量。扫描枪就是隐藏的键盘，所以调试程序的时候倒是不需要接一把枪，直接用键盘输入就行了。业务需求和超市柜台结算差不多，要求扫描每件商品，并以此进行计数，统计每种商品的数量。为此我考虑了编程和不编程两种方案。 1、用数据透视表的方法。用Excel表的A列记录扫描结果，用一个数据透视表统计A列每种条码的数量。扫描完毕，刷新透...
TextBox文本框常用属性与事件
Scarlett的博客
07-27 4151
TextBox文本框属性
C编程判断文件是否存在并打开文件
09-17 1960
#include "stdafx.h" #include <stdio.h> #include <stdlib.h> int _tmain(int argc, _TCHAR* argv[]) { FILE *fp; if ((fp = fopen("c:\\progra~1\\omron\\sysmac~1\\bin\\opcser~1.exe", "r"))...
VB中Text控件获得焦点的同时全选
帆布鞋也能走猫步
12-10 6544
选择文本内容，设置文本框的SelStart和SelLength属性值即可完成文本的选择。 SelStart为文本选择的起点，SelLength为文本选择的长度。 如果选择Text1中的所有文本内容，代码如下：  Text1.SelStart = 0  Text1.SelLength = Len(Text1.Text) Text1.SetFocus   如果窗体运行时，选中Tex
文本框 清空_Excel VBA 基础教程——清空累加练习
weixin_39787089的博客
01-15 1046
接着上一节内容，练习几个例子熟悉一下。例子1. 自动完成数据累计在本示例中，将在Excel工作表中添加两个按钮，通过录制宏来实现自动累加计算和清空月数据的功能。打开Excel工作簿，在“sheet1”工作表中输入以下数据信息，如下图所示：“开发工具”→【录制宏】→在“宏名”文本框中输入“累加数据”→确定复制B列数据，到C栏相对应的位置（本例子中是C3），选择性粘贴，在“选择性粘贴”窗口中的“运算”...
基于VB脚本的扫描器（扫码枪）数据采集对Excel表格快速录入数据
Dick_liuyu的博客
04-27 8576
基于VB脚本的扫描器（扫码枪）数据采集对Excel表格快速录入数据 前段时间我接到个毕业设计的一部分外包，主要是关于HMI读写扫码枪数据的算法采集；因为业主是用两个不同的平台，造成PC端跟HMI混用。且扫描器也是USB接口与电脑通讯模拟键盘输入。在扫描到条形码后模拟键盘对电脑输入数据。所以我帮忙写了一个VB脚本用来采集数据。 由于我也是第一次编写VB的电脑程序，在以前工厂里都是写一点简单的脚本和算...
VB / VBA 自制二维码小工具
璀璨 - 帝禹
11-15 1万+
现在二维码的使用越来越广泛了，广告、网址等等都用上了 从网上找了一个二维码的控件，自己做了个小工具。   二维码可以把一串字符，不管长短（没试过最长能多长），做成二维码图片 现在的的智能手机软件很多都有扫描二维码的功能，比如微信、我查查，等等。   点击下面下载相应的文件   下载： 二维码小工具-VBA写的 下载： 二维码小工具-VB写的 下载： 二维码控件-QRMaker1.3   控件是必须
excelvba让textbox内容处于选定状态_【必背】中级消防设施操作员实操考试必背内容...
weixin_39644915的博客
01-01 386
01打印纸更换步骤1、关闭打印机的电源。如果打印机是在线状态的，按下“SEL”键使打印机处于离线状态；2、轻掰打印机前面盖板上侧，取下打印机前盖板；3、从面板上取下整个打印机，具体方法是：用手指向内夹住打印机的两侧活动软板，将整个打印机从控制器面板上轻轻取下；4、从打印机上取下纸卷轴；5、将新卷纸前端剪出尖角形状；6、将新纸卷套在纸卷轴上，将纸卷轴用力压入打印机的导槽内；7、接通打印机电...
VB和VB.NET中文本框获得焦点，自动全选文本框内容
热门推荐
正心 诚意 修身
08-10 1万+
vb vb.net textbox 全选文本框的内容
VBA Excel 实践（三）Excel控件及Excel控件的初始化
monkeyzh123的专栏
03-15 7011
引言 我们还是要回顾下我们要干什么？我们的目标是做一个具有查询及显示查询结果的工具。上一章介绍了窗体及其属性、事件、方法等，这个东西只能算是画个查询条件的框框，里面的具体查询条件怎么填呢。 从我们见过的软件分析，要写一个查询条件的输入，必须有输入框吧，有可能有选择框吧，有可能有多选、单选框吧，你得有确定按钮吧，本章主要描述这些东西及其初始化 一、综述 控件其实也是窗体，是上篇中的窗体的儿子...
VBA checkbox如何使用
最新发布
01-27
在VBA（Visual Basic for Applications）中使用复选框 (CheckBox) 控件可以帮助你在用户窗体(UserForm)上获取用户的选项。以下是有关如何创建、配置及响应 CheckBox 的一些基本指南： ### 创建 CheckBox 首先，你需要打开 VBA 编辑器（按 `Alt + F11`），插入一个新的用户窗体 (`Insert > UserForm`) 或者编辑现有的用户窗体。 然后从工具箱中拖拽一个 **Checkbox** 到你的用户窗体上面。每个 Checkbox 都有自己的属性和事件；例如，你可以更改它的标题文字 (`Caption`) 和初始状态 (`Value`, 即勾选与否)。 #### 示例：初始化 Checkbox 属性 ```vba Private Sub UserForm_Initialize() ' 设置复选框的文字说明 CheckBox1.Caption = "同意条款" ' 默认取消选中 CheckBox1.Value = False End Sub ``` ### 检测 Checkbox 状态变化 当用户点击了某个复选框后，相应的 `_Click()` 事件会被触发。在这个过程中你可以读取或修改该复选框的状态，并据此采取行动。 #### 示例：处理 Click 事件 ```vba Private Sub CheckBox1_Click() If CheckBox1.Value = True Then MsgBox "您选择了：" & CheckBox1.Caption, vbInformation Else MsgBox "您未选择：" & CheckBox1.Caption, vbExclamation End If End Sub ``` 此外还可以结合其他控件一起工作，比如按钮(Button)，文本框(TextBox)，甚至与其他复选框联动等场景下非常有用。 ### 联动多个 CheckBox 实现复杂逻辑 假设我们有两个复选框用于控制某功能的不同部分是否启用，则可以在任一复选框变动时同步调整另一些关联元素的行为。下面的例子展示了两个复选框之间的简单交互规则——即“全选”与单项选择的关系： #### 全选 / 反选示例 ```vba ' 定义一个过程更新所有子项目的选定情况 Sub UpdateChildChecks(parentChecked As Boolean) Dim ctrl As MSForms.Control For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" And Left$(ctrl.Name, 6) <> "Parent_" Then ctrl.Value = parentChecked End If Next End Sub Private Sub Parent_CheckBox_Click() Call UpdateChildChecks(Parent_CheckBox.Value) End Sub Private Sub Child_CheckBox_Click(Index As Integer) Dim allSelected As Boolean allSelected = True Dim chkCtrl As Control For Each chkCtrl In Me.Controls If TypeOf chkCtrl Is MSForms.CheckBox _ And Left$(chkCtrl.Name, 5) = "Child" _ And Not chkCtrl.Value Then allSelected = False Exit For End If Next chkCtrl Parent_CheckBox.Value = IIf(allSelected, True, False) End Sub ``` 以上代码实现了主复选框的开关会影响到一系列次级复选框的功能，并保持它们之间的一致性。 --- 通过合理运用这些技巧以及更多自定义设置，你就可以轻松地构建出功能强大的基于 VBA 用户界面的应用程序。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值