全民一起VBA提高篇 第二十五回 文本栏可以多行输入，列表框允许逐项选择

最新推荐文章于 2021-01-14 19:18:21 发布
最新推荐文章于 2021-01-14 19:18:21 发布
阅读量1.2k 收藏 3
点赞数 1
分类专栏： 全民一起VBA提高篇笔记 文章标签： 第二十五回 文本栏可以多行输入，列表框允许逐项选择
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lei_686/article/details/90713503
版权
本文介绍了VBA中如何设置文本框实现多行输入，利用Multiline属性和ScrollBars属性调整用户体验。同时，探讨了列表框(ListBox)的使用，包括设置RowSource、初始化时填充List、AddItem添加条目、RemoveItem删除条目以及获取选中条目的方法。通过实例展示了在用户交互中如何响应列表框的选择变化，将选中的内容写入文本框。
摘要由CSDN通过智能技术生成

 

相关知识点

Multiline：文本框多行输入，设置为True，手动换行是Ctrl+Enter;如果设置WordWrap属性设置为True为自动换行

ScrollBars：是否显示滚动条

ListBox：列表框

Listbox.RowSource=”sheet1!D1:”D66”:列表框的条目,不可以与List属性同时使用

Initialize：窗体初始化时

AddItem：列表框添加一个条目

RemoveItem num: 按照条目编号删除条目，编号从零开始

ListBox1.Value:就是选中的列表内的那个条目内容

ListIndex:选中条目的序号（从0开始），未做任何操作返回-1

ComboBox:下拉式列表框，与列表框用法相似

例1 当窗体被创建时，列表框的List属性，变体类型

Private Sub userForm_Initialize()</

最低0.47元/天 解锁文章
lei_686
关注
专栏目录
textbox多行文本框_Excel vba 动态添加文本框 TextBox 控件
weixin_39834788的博客
12-10 2953
文/江觅Excel文本框使用率很高，如何动态添加呢？方法其实很简单，下面做一个例子来解释一下，相对比较容易理解，没有什么难度。(文章结尾附代码，可下载学习)动态效果图新建两个文本框来做示例，设置不同背景颜色，默认情况下是白色背景，也可以设置没有背景色，就是透明色，不过一般不设置透明色，如果喜欢也可以设置。人机接口文本框的用处就是可以建立一下人机对话的输入窗口，给定一个值，然后电脑会根据这个值进行计...
通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选
lordyoung的专栏
05-12 3832
第一步：在相应表格中添加一个ActiveX控件：ListBox1 第二步：增加一个表格“发病情况”，在相应数据区（A2:A10）增加复选项目数据 发病情况 干咳 乏力 发热 咽痛 鼻塞 腹泻 味觉异常 嗅觉消失 其他 第三步：在对应表格的代码中加入。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub I...
VBA自学应用（12）——允许列表框多项选择和多列
一位VBA和JSA、书法爱好者
01-10 6564
一、允许多项选择 代码如下 Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion With ListBox1 '设置列表框属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
VBA：输入框inputbox()，要求只能输入几个数字，如果输入不符合要求，会继续要求输入
奔跑的犀牛先生
12-23 6100
1输入框inputbox，要求只能输入几个数字 1.1代码1：可以运行 实现效果 必须输入 指定数字的数字 如果超过了指定的 字符数，会报错，且要求重新输入 如果输入的字符不是数字，或数字字符串 （input输入的一定是string）,会报错，且要求重新输入 以后可以考虑加个多次错误，跳出，结束。 Sub ponyma_in1() input101: str1 = Input...
多个输入框同步输入
sd6022的博客
01-14 550
<!DOCTYPE html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title></title> </head> <body> <script language="javascript"> function copy() {
全民一起VBA基础+提高+实战-视频课程资源网盘链接提取码下载 .txt
最新发布
03-16
很多人都知道，VBA是提高Excel工作效率的不二利器。...没关系，学完“全民一起VBA”系列课程，你就会发现，原来VBA如此易学、如此实用！只要是经常使用Excel的人士，均可通过本课程轻松掌握VBA。 课程大小：13.3G
全民一起VBA提高篇 第二十四回 文本框方便输入数据，Unload彻底清空内存
05-31 900
相关知识点 文本框控件：“ab”光标控件 文本框命名易记，不重复 Lable：标签控件 Caption就是标签 当按钮被按下时写入，Click，按照状语写入程序，双击按钮控件用Click方法 Text属性:文本框的内容 Form.Hide:窗体隐藏，在内存里 Unload:窗体彻底消失或者点击窗体的“X”，效果一样 fmInput.txtname.txt：窗体名.控件名.属性...
全民一起VBA提高篇 专题1 第一回 变体能容 高矮胖瘦皆适用，数据细分 大小黑白各不同
06-11 598
相关知识点 数据类型 类型不一样，数据大小不一样，运算规则和处理方式不一样 As 定义数据类型 Integer 整数类型（只存放-326768~+32767之间的整数） String 字符串类型 Variant 变体类型，没有指定数据类型，默认为此种类型， 缺点：1. 效率低下，内存开销大，执行速度慢 2. 总是猜数据类型，会猜错 声明变量时，...
全民一起VBA提高篇 第十五回 传递Range提升自定义函数，巧用属性分辨公式型内容
05-28 659
相关知识点 Ubound（s）：一维数组最大下标 Lbound（s）：一维数组最小下标 Dim s（2 to 5,3 to 7） Ubound（s,1） Ubound（s,2）：二维数组第一维5和第二维最大下标7 Lbound（s,1） Lbound（s,2）：二维数组第一维2和第二维最小下标3 Range.hasFormula：判断单元格是否是公式，是公式就返回Ture，否则返回Fa...
全民一起VBA实战篇第六课：VBA编程技巧及Word调用
qq_43568982的博客
02-09 1076
Err 对象 使用Err可以提升程序的健壮性，有利于用户使用。 Option Explicit Sub errDemo() Dim i As Long i = 3 On Error GoTo sthwrong '出现问题跳转到sthwrong Do While Cells(i, 2) <> "" ...
全民一起VBA实战篇第一课：表格格式操作与Excel功能调用
qq_43568982的博客
02-08 1088
文件打印 Sub 批量打印() Dim fn As String, wb As Workbook, ws As Worksheet fn = Dir("E:\EXCEL\*.xlsx") Do While fn <> "" Set wb = Workbooks.Open("E:\EXCEL\" & fn) ...
全民一起VBA提高篇 课时1 愿上层楼骋远目，勿在浮沙筑高台
06-11 504
相关知识点 基础篇快速上手，速成法，基础不牢，注意数据类型 更多的实用技术，处理技巧 完善编程技巧 例1 a+b两列相加结果出现字符串相加问题(个别单元格不是数字是字符串) Sub cal() Dim k,a,b, For k=3 to 10 a=cells(k,2) b=cells(k,3) ...
全民一起VBA实战篇 专题4 第五回 递归算法流程独特 大事化小思路清奇
09-15 1693
相关知识点： 区别于循环在于，把大问题转换成小问题，总结递进的推导公式；知道最小问题的答案（递归的停止条件）。 例1 阶乘(循环语句) Sub demo() Msgbox 阶乘(4) End Sub Function 阶乘(n as long) Dim s, i s=1 For i=1 To n ...
全民一起VBA基础篇第一课：开发环境配置
qq_43568982的博客
01-15 727
学习VBA的一些准备工作 调出开发工具 1.打开EXCEL，点击文件->选项 2.点击自定义功能区->开发工具 3.开发工具->宏安全性->启用所有宏 4.初步了解VBE （1）模块里面放标准代码，在工作表中用按钮激活的 （2）事件编程代码放在对象栏中，用于当事件触发时，自动运行的程序。 （3）类模块代码放内代码 （4）窗体里面放窗体程序代码 如果没有，则在工程模块中...
全民一起VBA实战篇 专题2 第二回 选择法轻松上手，双循环巧妙排序
06-19 746
相关知识点： 选择排序法：在剩余数字中找出一个最大的数字，填入第一个空白方格里，如此反复，直到没有剩余数字。缺点是运行效率太低 其他方法：堆排序，基数排序，快速排序，希尔排序，桶排序，归并排序，二叉树排序 application.ScreenUpdating=False：关闭屏幕刷新提高运行效率，恢复刷新=True Range.Sort: 内置的排序方法 例1按照GDP对国家进行排...
全民一起VBA实战篇 专题2 第四回 排序规则能由自己决定 数组赋值可用Array化简
06-24 622
相关知识点： Range.Sort: VBA 内置的排序方法，15个参数。（缺点只有3个关键字排序） （Key1，Order1，Type，Key2，Order2，Key3，Order3，Header，OrderCustom，MatchCase，Orientation，SortMethod，DataOption1，DataOption2，DataOption3） OrderCustom ...
全民一起VBA提高篇 第二十六回 选项按钮轻松上手，附件控件琳琅满目
05-31 1106
相关知识点 OptionButton：单选按钮Caption属性就是提示文字，Value属性True或False CheckBox：复选框Caption属性就是提示文字，Value属性True或False Frame:框架控件，带有“xyz”符号的控件 Image:图像控件，主要属性Picture：显示图片的对象，可在属性窗口中设置，也可用代码LoadPicture(“文件路径”)设...
全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环，独特功能还需独自开发
06-26 349
相关知识点： 多关键字排序原理：现对次要的列排序，再排序优先的倒序（从最次要开始）进行依次排序，就能实现 Worksheets.Sort 工作表排序，自学 例1 足球赛积分表排序，四个排序列 本来的优先级是总积分、获胜次数、净胜球、进球数 实现排序就得倒序进球数、净胜球、获胜次数、总积分按照这个顺序排序，最关键的最后排 Sub demo2() ...
构建多元化全民健身服务体系：理论与实践框架探讨
构建面向大众的多元化全民健身服务体系框架是一项重要的政策导向和实践任务，旨在推动国家《全民健身计划纲要》第二期工程的实施。本文由肖宗涛和张江林两位学者合作完成，他们利用文献资料法、调查法、逻辑分析法...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值