VBA代码宝（列表框）20220402

今天又把界面优化了一下，界面还是挺好看的

本代码宝是用Listbox列表框做的，其中用到数组，模块代码插入、复制选中文本、导入数据，模糊搜索，双击事件显示数据，新增、保存、删除数据等功能，内含400多例子VBA代码，喜欢数据收藏的同样可以使用该窗体储存数据，在这分享给大家

sub VBA大表格()sheet1.range("K1").value="作者"msgbox sheet1.range("K1")sheet1.range("K1")="VX：Chen1198061299"msgbox sheet1.range("K1").valueend sub

Select方法Range对象的Select方法表示选择某个单元格或某单元格区域。例如，下面的代码：Range("A2").Select使单元格A2为当前单元格。下面的代码：Range("C2:C5").Select选取单元格区域C2:C5。下图显示了上述代码运行后的结果：同样地，下面的代码：Range("C5").SelectCells(5,3).Select[C5].SelectCells(65539).SelectCells(5,"C").Select均选取单元格C5为当前单元格。下面的代码：Range("C2:C5").SelectRange("C2","C5").Select[C2:C5].SelectRange(Range("C2"), Range("C5")).SelectRange(Cells(2, 2), Cells(5, 2)).Select均选取单元格区域C2:C5。下面的代码：Columns(2).SelectColumns("B").Select均选取B列。下面的代码：Columns("B:C").Select选取B列和C列。下面的代码：Rows(2).SelectRows("2:2").Select均选取第2行。

Sub 单元格地址()'Address(行是否绝对引用TRUE，列是否绝对引用,单元格表示样式，地址是否包含工作簿工作表名)'样式参数ReferenceStyle设置返回的地址的引用样式，可以设置为xlA1（A1样式）或xlR1C1（R1C1样式）。默认值为xlA1MsgBox ActiveCell.Address             '当前单元格地址MsgBox Selection.Address(0, 0)             '选中区域的地址MsgBox Range("A1").CurrentRegion.Address(0,0,,1)     'A1连续区域的地址MsgBox ActiveSheet.UsedRange.Address          '使用过单元格的地址End Sub

Private Sub 正则提取长宽高_Click()'百度搜索正则捕获分组[c:z] = ""Range("C1").Resize(1, 3) = Array("结果1", "结果2", "结果3")Dim regSet reg = CreateObject("vbscript.regexp")lastrow = Range("a65535").End(xlUp).Rowarr = Range("a2:a" & lastrow)For i = 1 To UBound(arr)With reg.Global = True '匹配多次.IgnoreCase = False '区分大小写.Pattern = "(长|宽|高)[0-9]+"                   '正则表达式,提取任意多数值  （）是分组  |是或的意思'.Pattern = "(长[0-9]+)|(宽[0-9]+)|(高[0-9]+)"  '正则表达式,提取任意多数值(一样的效果)Set 集合 = reg.Execute(arr(i, 1))For Each 子集 In 集合Range("C" & i + 1).Offset(0, k) = Replace(Replace(Replace(子集, "长", ""), "宽", ""), "高", "")k = k + 1Nextk = 0End WithNextEnd Sub

VBA代码宝（列表框）20220402相关推荐

简单代码大全_VBA爱好者请进：VBA代码宝概述
VBA 代码宝是 ExcelHome 出品的共享工具类软件之一. 虽然 Office 软件本身已经足够强大,但仍然有很多特色功能,需要使用 VBA 来进行定制开发.无论是VBA小白还是经验丰富资深开发 ...
VBA代码宝--免费下载路径（管理自己平时使用的代码，程序）-- ExcelHome
ExcelHome - VBA代码宝简介及免费下载 http://club.excelhome.net/thread-1440316-1-1.html 个人真心推荐,获益匪浅.在此感谢~(非商业 / ...
datetimepicker控件怎么改变hover颜色_VBA入门课程，ActiveX控件系列知识，复合框的属性与常见VBA代码...
前面的几篇图文,咱们讲了关于VBA二次开发的一些控件,这次咱们继续说一个控件.combobox控件,中文的翻译名叫做复合框.在这里咱们要与checkbox做一个区分,combobox是复合框,而che ...
VBA代码助手,代码库收藏管理工具,代码对齐，破解Excel工程密码，设置隐藏模块
历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...
易语言超级列表框的增删改查
易语言超级列表框的基本用法介绍首先新建一个超级列表框右键列表框,插入4列,分别为序号.姓名.分数.备注现在列表框的框架已经有了,接下来插入数据. 如何插入数据在列表项的最前面插入数据代码超 ...
用VBA向列表框(ComboBox或ListBox)中填加数据
用VBA向列表框(ComboBox或ListBox)中填加数据向列表框中填加数据的方法很多,下面根据实例介绍3种最常用到的方法: 图1 图2 如图1所示的下拉列表框(组合框),图2为其数据源,图2所 ...
Excel 2010 VBA 入门 131 移动不同列表框中的项目
目录题码 ListBox的AddItem方法和RemoveItem方法 ListBox控件的MuItiSeIect属性 ListBox控件的Value属性 ListBox控件的ListIndex属 ...
vba 判断文本框内容是否为空_校验数据一旦失败，VBA代码自动控制焦点返回的另一备选方案...
大家好,我们今日继续讲解VBA代码解决方案的第95讲内容:如果文本框的录入校验不能通过,光标仍返回文本框中的另一方案.在上一讲中我讲了利用EXIT事件中的Cancel 参数的设置来达到我们的目的(值是 ...
原生JS写仿淘宝搜索框（代码+效果），可实现3级搜索哦！
闲来无事,用原生JS写了一个淘宝搜索框,用的淘宝的接口,可直接进行商品搜索. 写在前面: 1.记得引用jquery啊! 2.有人私信我说css样式不能用,那是因为复制代码的时候,有空格,只需要自己把c ...
超级列表框排序mysql_易语言超级列表框点击表头进行排序的代码
超级列表框排序模块源码 .版本 2 .支持库 iext .程序集程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调 ...

VBA代码宝（列表框）20220402

VBA代码宝（列表框）20220402相关推荐

最新文章

热门文章