qq_42539251的博客

学代码，做出点东西特别有成就感，今天我们来完成一个抽奖系统，感受一下成就感带来的愉悦！come on!先给你们展现一下成果：此抽奖适合各场合抽奖，随时准备震惊四座！首先看一下我们的数据和页面来看一下代码吧：注意：'抽奖系统!A1单元格看起来是空白的，其实是抽取的人员名单表中员工的所在行号，只是白色看不见它。'A1单元格=RANDBETWEEN(2,COUNTA(人员名单!A:A))，这句话就是从2到员工总数，随机取 一个数。Private Decl...

Abs 函数返回将传递给指定数字的绝对值的相同类型的值。语法Abs(数字)必需的_number_ 参数可以是任何有效的数值表达式。 如果 number 包含 Null，则返回 Null；如果它是未初始化的变量，则返回 0。数字的绝对值是其无符号大小。 例如, ABS(-1)和ABS(1)都返回。 1示例此示例使用 Abs 函数计算数字的绝对值。Dim MyNumberMyNumber = Abs(50.3) ' Returns 50.3.MyNumber = Ab...

今天的文章真的厉害了，我们都知道excel有很多强大的函数。比如sum,count,if非常的好用。那我们能不能自己定义函数来使用呢！当然可以，下面我们就来定义函数并且使用它。案例一：提取身份证中的生日，如下图：用excel自带的函数也可以实现 方法1.MID(A1,7,4)&"/"&MID(A1,11,2)&"/"&MID(A1,13,2) 方法2.TEXT(MID(A1,7,8),"0000/00/00") 但是方法1，太长了，比较

在公众号“学会数据分析”中回复 wps ,获取下载链接

excel里面有很多强大的公式，可以快速实现我们想要的结果。如果在vba中可以使用公式，可以大大减少编码，提升工作效率！这么强悍的功能让我们一起学习一下吧！我们直接通过案例来学习公式在vba中的使用题目：实现多个工作表数据的查询，统计功能，如下图：分析： 在一个表里面的查询统计只需要用到count,vlookup函数即可完成，我们这里有多张表需要循环查找，所以要通过vba实现 上面查询和统计是两个按钮，所以要分成两个宏来写 vba调用工作表函数的方法：Ap.

看了本文标题，什么叫事件？excel将下面叫做“数据”的工作表根据分类条件拆分成多个sheet工作表，表名为分类条件。我的理解是发生了什么就执行一些相应的操作可能比较难理解。下面我们就通过三个案例随事件对象加以了解案例1题目：聚光灯事件，点击任意或多个单元格，单元格所在行自动出现背景色。结果如下图：分析：点击单元格就自动实现聚光灯效果，自动执行代码就要用到事件对象操作： 1.点击Visual Basic,需要双击对应的表选择对象为worksheet,...

前面我们已经掌握了单元格、工作表、按钮关联宏的使用今天我们就做一个综合案例做案例之前我们先补充一点新知识Cells(2,3) //表示两行三列的单元格 Range(“a1”).offset(1,2)// 下移一行，右移2行 Range(“a10”).end(xlup)//从a10往上数，有多少行已用 Range(“a10”).entirerow//选中a10的整行 Range(“a10”).resize(1,10)//重选区域 Range(“a10”).copy//复制 she...

工作表的基础操作上一章我们学习了工作表的一些操作，这一章就来学习一下对工作簿的操作 工作表和工作簿有什么区别呢？ 一个excel文件就是一个excel工作簿例如abc.xls，一个工作簿中包含1个到若干个工作表例如sheet1，也就是说工作簿是由工作表组成的。下面我们就来了解一下工作簿的操作 打开工作簿 Application.displayAlerts=false//点击保存会有弹...

Range的用法：下面是常见的比较基础的range的用法，想要学习更多用法可自行查资料或者私信我！1.选择A1单元格，不做任何操作SubrangeTest() Range("a1").SelectEndSub2.选择A1单元格，并且赋值“I am a1”SubrangeTest() Range("a1") ="i am a1"EndSub3.选择A1到C5单元格，不做任何操作选择A1到C5有两种写法，逗号分隔是一种，还有冒号...

表有哪些方法和属性？方法也可以理解为动作，表的方法有select，add, delete, copy，表的属性有count,name假设工作簿中按顺序新建3张表叫1月和2月和3 月。如何切换到第2张表？Sheet2.select //sheet2是表的默认名称。重命名只是给sheet2起一个别名Sheets(2).select //sheets(2)指工作簿的第2张表Sheets(“2月”).Select // Sheets(“2月”)指重命名为2月的表如何知道工作簿中有多少张表？