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

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

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

 

相关知识点

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()

Dim a(4) as string

  &nb

最低0.47元/天 解锁文章

200万优质内容无限畅学
textbox多行文本框_Excel vba 动态添加文本框 TextBox 控件
weixin_39834788的博客
12-10 3202
文/江觅Excel文本框使用率很高，如何动态添加呢？方法其实很简单，下面做一个例子来解释一下，相对比较容易理解，没有什么难度。(文章结尾附代码，可下载学习)动态效果图新建两个文本框来做示例，设置不同背景颜色，默认情况下是白色背景，也可以设置没有背景色，就是透明色，不过一般不设置透明色，如果喜欢也可以设置。人机接口文本框的用处就是可以建立一下人机对话的输入窗口，给定一个值，然后电脑会根据这个值进行计...
通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选
lordyoung的专栏
05-12 4645
第一步：在相应表格中添加一个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 7376
一、允许多项选择 代码如下 Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion With ListBox1 '设置列表框属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
VBA：输入框inputbox()，要求只能输入几个数字，如果输入不符合要求，会继续要求输入
奔跑的犀牛先生
12-23 6643
1输入框inputbox，要求只能输入几个数字 1.1代码1：可以运行 实现效果 必须输入 指定数字的数字 如果超过了指定的 字符数，会报错，且要求重新输入 如果输入的字符不是数字，或数字字符串 （input输入的一定是string）,会报错，且要求重新输入 以后可以考虑加个多次错误，跳出，结束。 Sub ponyma_in1() input101: str1 = Input...
多个输入框同步输入
sd6022的博客
01-14 720
<!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提高篇 专题1 第一回 变体能容 高矮胖瘦皆适用，数据细分 大小黑白各不同
06-11 646
相关知识点 数据类型 类型不一样，数据大小不一样，运算规则和处理方式不一样 As 定义数据类型 Integer 整数类型（只存放-326768~+32767之间的整数） String 字符串类型 Variant 变体类型，没有指定数据类型，默认为此种类型， 缺点：1. 效率低下，内存开销大，执行速度慢 2. 总是猜数据类型，会猜错 声明变量时，...
全民一起VBA提高篇 第二十四回 文本框方便输入数据，Unload彻底清空内存
05-31 972
相关知识点 文本框控件：“ab”光标控件 文本框命名易记，不重复 Lable：标签控件 Caption就是标签 当按钮被按下时写入，Click，按照状语写入程序，双击按钮控件用Click方法 Text属性:文本框的内容 Form.Hide:窗体隐藏，在内存里 Unload:窗体彻底消失或者点击窗体的“X”，效果一样 fmInput.txtname.txt：窗体名.控件名.属性...
全民一起VBA提高篇 第十五回 传递Range提升自定义函数，巧用属性分辨公式型内容
05-28 696
相关知识点 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 463
调试 设置断点 单击语句左侧，得到一个红色的点 单步调试 按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 1132
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 1152
文件打印 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 560
相关知识点 基础篇快速上手，速成法，基础不牢，注意数据类型 更多的实用技术，处理技巧 完善编程技巧 例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 1875
相关知识点： 区别于循环在于，把大问题转换成小问题，总结递进的推导公式；知道最小问题的答案（递归的停止条件）。 例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 789
学习VBA的一些准备工作 调出开发工具 1.打开EXCEL，点击文件->选项 2.点击自定义功能区->开发工具 3.开发工具->宏安全性->启用所有宏 4.初步了解VBE （1）模块里面放标准代码，在工作表中用按钮激活的 （2）事件编程代码放在对象栏中，用于当事件触发时，自动运行的程序。 （3）类模块代码放内代码 （4）窗体里面放窗体程序代码 如果没有，则在工程模块中...
全民一起VBA实战篇 专题2 第二回 选择法轻松上手，双循环巧妙排序
06-19 802
相关知识点： 选择排序法：在剩余数字中找出一个最大的数字，填入第一个空白方格里，如此反复，直到没有剩余数字。缺点是运行效率太低 其他方法：堆排序，基数排序，快速排序，希尔排序，桶排序，归并排序，二叉树排序 application.ScreenUpdating=False：关闭屏幕刷新提高运行效率，恢复刷新=True Range.Sort: 内置的排序方法 例1按照GDP对国家进行排...
全民一起VBA实战篇 专题2 第四回 排序规则能由自己决定 数组赋值可用Array化简
06-24 698
相关知识点： Range.Sort: VBA 内置的排序方法，15个参数。（缺点只有3个关键字排序） （Key1，Order1，Type，Key2，Order2，Key3，Order3，Header，OrderCustom，MatchCase，Orientation，SortMethod，DataOption1，DataOption2，DataOption3） OrderCustom ...
全民一起VBA提高篇 第二十六回 选项按钮轻松上手，附件控件琳琅满目
05-31 1172
相关知识点 OptionButton：单选按钮Caption属性就是提示文字，Value属性True或False CheckBox：复选框Caption属性就是提示文字，Value属性True或False Frame:框架控件，带有“xyz”符号的控件 Image:图像控件，主要属性Picture：显示图片的对象，可在属性窗口中设置，也可用代码LoadPicture(“文件路径”)设...
全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环，独特功能还需独自开发
06-26 396
相关知识点： 多关键字排序原理：现对次要的列排序，再排序优先的倒序（从最次要开始）进行依次排序，就能实现 Worksheets.Sort 工作表排序，自学 例1 足球赛积分表排序，四个排序列 本来的优先级是总积分、获胜次数、净胜球、进球数 实现排序就得倒序进球数、净胜球、获胜次数、总积分按照这个顺序排序，最关键的最后排 Sub demo2() ...
全民一起VBA
最新发布
07-22
### VBA编程学习与实践 学习VBA（Visual Basic for Applications）编程可以极大地提升办公自动化效率，特别是在Excel中进行数据处理和报表生成时。以下是一些关键的学习和实践方向： #### 1. **理解VBA基础语法** 在开始编写VBA代码之前，必须掌握其基础语法。VBA中的关键字和标识符是构建代码的基本元素。关键字是VBA语言本身保留的单词，例如 `Sub`、`Function`、`If`、`Then` 等，这些单词不能用作变量名。标识符则是用户定义的名称，用于标识变量、函数、过程等，命名时需遵循一定的规则，例如不能以数字开头，不能包含特殊字符等[^1]。 #### 2. **掌握数据类型与变量** VBA支持多种数据类型，包括整型（`Integer`）、长整型（`Long`）、浮点型（`Single`、`Double`）、字符串型（`String`）、布尔型（`Boolean`）等。正确选择数据类型不仅可以提高程序的执行效率，还能避免潜在的错误。变量在使用前应明确声明，通常使用 `Dim` 语句来声明变量，例如 `Dim i As Integer`。 #### 3. **控制结构** VBA提供了多种控制结构来实现程序的逻辑控制，主要包括条件控制和循环控制。条件控制使用 `If...Then...Else` 或 `Select Case` 语句来实现，根据不同的条件执行不同的代码块。循环控制则包括 `For...Next`、`Do...Loop` 和 `While...Wend` 等结构，用于重复执行某段代码直到满足特定条件为止。 #### 4. **错误处理** 在编写VBA代码时，不可避免地会遇到运行时错误。为了提高程序的健壮性，应使用错误处理机制。VBA中使用 `On Error GoTo` 语句来指定错误发生时的跳转位置，通常在过程的末尾添加错误处理代码，使用 `Err` 对象来获取错误信息，并通过 `Resume` 语句决定程序的后续执行路径。 #### 5. **实践示例** 以下是一个简单的VBA宏示例，用于计算工作表中某一列的总和并将其显示在一个消息框中： ```vba Sub CalculateSum() Dim sum As Double Dim i As Integer sum = 0 For i = 1 To 10 sum = sum + Cells(i, 1).Value Next i MsgBox "The sum is " & sum End Sub ``` 此代码遍历第一列的前10个单元格，将它们的值相加，并通过消息框显示结果。 #### 6. **学习资源与社区支持** 除了书籍和在线教程外，还可以利用各种在线社区和论坛获取帮助。Stack Overflow、Microsoft开发者社区以及各类VBA博客都是获取知识和解决问题的好地方。此外，实践是学习VBA的最佳方式，尝试为日常工作中的任务编写宏，逐步提升编程技能。 #### 7. **进阶技巧** 随着对VBA的熟悉，可以探索更高级的功能，如用户窗体（UserForms）的创建、类模块的使用、与外部数据库的交互等。这些功能可以进一步扩展VBA的应用范围，使其成为强大的自动化工具。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值