全民一起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元/天 解锁文章
textbox多行文本框_Excel vba 动态添加文本框 TextBox 控件
weixin_39834788的博客
12-10 3001
文/江觅Excel文本框使用率很高，如何动态添加呢？方法其实很简单，下面做一个例子来解释一下，相对比较容易理解，没有什么难度。(文章结尾附代码，可下载学习)动态效果图新建两个文本框来做示例，设置不同背景颜色，默认情况下是白色背景，也可以设置没有背景色，就是透明色，不过一般不设置透明色，如果喜欢也可以设置。人机接口文本框的用处就是可以建立一下人机对话的输入窗口，给定一个值，然后电脑会根据这个值进行计...
通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选
lordyoung的专栏
05-12 4239
第一步：在相应表格中添加一个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 6784
一、允许多项选择 代码如下 Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion With ListBox1 '设置列表框属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
VBA：输入框inputbox()，要求只能输入几个数字，如果输入不符合要求，会继续要求输入
奔跑的犀牛先生
12-23 6222
1输入框inputbox，要求只能输入几个数字 1.1代码1：可以运行 实现效果 必须输入 指定数字的数字 如果超过了指定的 字符数，会报错，且要求重新输入 如果输入的字符不是数字，或数字字符串 （input输入的一定是string）,会报错，且要求重新输入 以后可以考虑加个多次错误，跳出，结束。 Sub ponyma_in1() input101: str1 = Input...
多个输入框同步输入
sd6022的博客
01-14 592
<!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 923
相关知识点 文本框控件：“ab”光标控件 文本框命名易记，不重复 Lable：标签控件 Caption就是标签 当按钮被按下时写入，Click，按照状语写入程序，双击按钮控件用Click方法 Text属性:文本框的内容 Form.Hide:窗体隐藏，在内存里 Unload:窗体彻底消失或者点击窗体的“X”，效果一样 fmInput.txtname.txt：窗体名.控件名.属性...
全民一起VBA提高篇 专题1 第一回 变体能容 高矮胖瘦皆适用，数据细分 大小黑白各不同
06-11 613
相关知识点 数据类型 类型不一样，数据大小不一样，运算规则和处理方式不一样 As 定义数据类型 Integer 整数类型（只存放-326768~+32767之间的整数） String 字符串类型 Variant 变体类型，没有指定数据类型，默认为此种类型， 缺点：1. 效率低下，内存开销大，执行速度慢 2. 总是猜数据类型，会猜错 声明变量时，...
全民一起VBA提高篇 第十五回 传递Range提升自定义函数，巧用属性分辨公式型内容
05-28 674
相关知识点 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基础篇第五课：字符串，逻辑运算，调试
qq_43568982的博客
01-15 438
调试 设置断点 单击语句左侧，得到一个红色的点 单步调试 按F8进入调试 添加监视 调试->添加监视 调试完后去掉所有断点 调试->清除所有断点 字符串 与或非的表示是 And Or Not 注意区分 没有括号，先not, and 后or if age<30 and field = “数学” or field=“物理” then 左右两边都要完整 if cells(1,1)...
全民一起VBA实战篇第六课：VBA编程技巧及Word调用
qq_43568982的博客
02-09 1096
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 1104
文件打印 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 526
相关知识点 基础篇快速上手，速成法，基础不牢，注意数据类型 更多的实用技术，处理技巧 完善编程技巧 例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 1738
相关知识点： 区别于循环在于，把大问题转换成小问题，总结递进的推导公式；知道最小问题的答案（递归的停止条件）。 例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 745
学习VBA的一些准备工作 调出开发工具 1.打开EXCEL，点击文件->选项 2.点击自定义功能区->开发工具 3.开发工具->宏安全性->启用所有宏 4.初步了解VBE （1）模块里面放标准代码，在工作表中用按钮激活的 （2）事件编程代码放在对象栏中，用于当事件触发时，自动运行的程序。 （3）类模块代码放内代码 （4）窗体里面放窗体程序代码 如果没有，则在工程模块中...
全民一起VBA实战篇 专题2 第二回 选择法轻松上手，双循环巧妙排序
06-19 768
相关知识点： 选择排序法：在剩余数字中找出一个最大的数字，填入第一个空白方格里，如此反复，直到没有剩余数字。缺点是运行效率太低 其他方法：堆排序，基数排序，快速排序，希尔排序，桶排序，归并排序，二叉树排序 application.ScreenUpdating=False：关闭屏幕刷新提高运行效率，恢复刷新=True Range.Sort: 内置的排序方法 例1按照GDP对国家进行排...
全民一起VBA实战篇 专题2 第四回 排序规则能由自己决定 数组赋值可用Array化简
06-24 639
相关知识点： Range.Sort: VBA 内置的排序方法，15个参数。（缺点只有3个关键字排序） （Key1，Order1，Type，Key2，Order2，Key3，Order3，Header，OrderCustom，MatchCase，Orientation，SortMethod，DataOption1，DataOption2，DataOption3） OrderCustom ...
全民一起VBA提高篇 第二十六回 选项按钮轻松上手，附件控件琳琅满目
05-31 1121
相关知识点 OptionButton：单选按钮Caption属性就是提示文字，Value属性True或False CheckBox：复选框Caption属性就是提示文字，Value属性True或False Frame:框架控件，带有“xyz”符号的控件 Image:图像控件，主要属性Picture：显示图片的对象，可在属性窗口中设置，也可用代码LoadPicture(“文件路径”)设...
全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环，独特功能还需独自开发
06-26 367
相关知识点： 多关键字排序原理：现对次要的列排序，再排序优先的倒序（从最次要开始）进行依次排序，就能实现 Worksheets.Sort 工作表排序，自学 例1 足球赛积分表排序，四个排序列 本来的优先级是总积分、获胜次数、净胜球、进球数 实现排序就得倒序进球数、净胜球、获胜次数、总积分按照这个顺序排序，最关键的最后排 Sub demo2() ...
米哆全民软文推广5.3.8版：视频商城综合体验升级
由于提供的文件名称列表仅包含一项内容，即"米哆全民软文推广5.3.8 视频商城综合版"，可以推断该压缩包内可能包含了系统的所有安装文件、数据库脚本、配置文件、用户手册及可能的视频教程等。 6. 系统实施和部署： ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值