Excel 2010 VBA 入门 045 随机筛选指定个数的记录

最新推荐文章于 2024-07-17 16:05:21 发布
最新推荐文章于 2024-07-17 16:05:21 发布
阅读量1.1k 收藏 3
点赞数 1
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/115701037
版权
本文介绍了如何使用Excel VBA中的Rnd函数和Randomize语句，从数据列表中不重复地随机选取指定数量的记录。通过VBA代码示例，解释了如何生成介于特定范围内的随机行号，并利用Countif函数确保选取的记录是唯一的。
摘要由CSDN通过智能技术生成

示例

    在实际工作中，经常需要从指定的记录中抽取选定数量的样本。如图所示，本例希望能够从员工列表中随机抽取5名员工的记录，该如何用VBA实现？
 

员工编号 姓名 部门   员工编号 姓名 部门
0006 程建华 管理部   0314 张宏 销售部
0009 李国敏 管理部   0215 林革壮 管理部
0016 袁志刚 财务部   0247 申玲 管理部
0017 周汉林 管理部   0052 于健惠 管理部
0018 骈永富 管理部   0060 王文群 销售部
0020 孙玉梅 管理部        
最低0.47元/天 解锁文章
ngbshzhn
关注
专栏目录
java 实现 excel 去重,excel实现筛选去重操作
weixin_42356978的博客
03-20 1950
前情提要：做图表时，希望更新数据后能自动化更新图表，需要各种公式之间相互配合。此时的需求是，将A表中的不同用户登录的地点做一个图表统计。1、创建透视表以用户id和地点当做行标签制作透视表，透视表选择区域要远大于实际区域，这样可以避免更新后数据量过多出现溢出的情况。2、构造辅助列对同一用户进行排序，即统计该用户从A5开始出现的总次数(G列)=COUNTIFS(A$5:A5,A5)然后构造行号辅助列，...
Excel VBA教程–如何使用Visual Basic在电子表格中编写代码
08-21 5521
介绍 (Introduction) This is a tutorial about writing code in Excel spreadsheets using Visual Basic for Applications (VBA). 这是一个有关使用Visual Basic for Applications(VBA)在Excel电子表格中编写代码的教程。 Excel is one of...
随机抽签器（VBA宏）
10-16
用VBA宏代码制作的表格抽签器，日常用于点外卖。可改VBA代码改变抽取区域
VBA代码片之获取某列中随机一个数字
迪迦 • 奥特曼
04-17 485
Function getRandNum(r As Range) Dim i As Integer Randomize i = Int(Rnd * r.Rows.Count + 1) getRandNum = r.Cells(i, 1).Value End Function
sql随机抽取数据50条_Excel VBA 之 随机抽取数据
weixin_39710561的博客
12-06 1102
有时候我们在做统计的时候，可能会遇到提取样本的需求，提取样本最重要的当然是随机性，今天我就来讲一下该如何用VBA实现随机提取一些数据。例子：从Sheet1随机抽取5名人员，名单填入Sheet2例子想到随机，那么我们一般就要用到Rnd函数，首先我们看一下官网上Rnd函数的介绍官网Rnd函数介绍一般来说，我们不用参数，那么Rnd返回值就是 [0,1)那么我们要返回一个A到B之间的整数的话，就可以这样写...
查询某一时间段内数据_神奇的VBA：指定数据段内选择随机数
weixin_39717367的博客
01-26 857
案例说明：在1至30中1到10选2个，11到20选3个，21到30选1个，用Excel如何编程？案例的意图实际上就是在指定数据段中随机选择2个数字的意思。从1~10； 11~20；20~30选择随机数。 可以使用VBA函数Rnd函数进行， 这是一个随机数函数,返回一个小于1但是大于等于0的随机数。 有关Rnd函数的详细说明和示例，请参考《神奇的VBA》插件（自行头条、百度或者知乎搜索该插件）进行学...
他山之石——VBA随机抽取
预见未来to50的专栏
06-26 2041
Sub Ëæ»úÌôÑ¡ÑÝʾ³ÌÐò1() Dim arr Dim x As Integer, num As Integer, k As Integer Range("c1:c10") = "" Range("a1:a10") = Application.Transpose(Array("A", "B", "C", "D", "E&quot
《excel应用大全》（excel home 编著）--学习摘抄笔记2
Jacky is back
11-27 4262
第14章  数学计算1.  Mod()两数相除取余，该函数的限制是被除数与除数的商不能超过2的27次方 2.  数值取舍函数：Int() ---- 取整函数，将数字向下舍为最接近的整数TrunC()----将数字截尾取整Rounddown() -----将数字朝零的方向舍入Roundup()-----将数字朝远离零的方向舍入Ceiling()-----将数字严绝对值增大
个人永久性免费-Excel催化剂功能第83波-遍历文件夹内文件信息特别是图像、音视频等特有信息...
weixin_30432007的博客
07-22 2513
在过往的功能中，有体现出在Excel上管理文件的极大优势，在文件的信息元数据中，有图片和音视频这两类特有的属性数据，此篇对过往功能的一个补充，特别增加了图片和音视频信息的遍历功能。 使用场景 在文件管理过程中，需要对其文件的属性数据如文件大小、创建时间、修改时间等信息进行管理，在现有的一些工具软件中，暂没有发现有对文件信息元数据进行管理导出的功能，特别是在一些图片、视频这样的...
vba 判断进行下次循环_神奇的VBA：指定数据段内选择随机数
weixin_39924329的博客
12-14 305
案例说明：在1至30中1到10选2个，11到20选3个，21到30选1个，用Excel如何编程？案例的意图实际上就是在指定数据段中随机选择2个数字的意思。从1~10； 11~20；20~30选择随机数。 可以使用VBA函数Rnd函数进行， 这是一个随机数函数,返回一个小于1但是大于等于0的随机数。 有关Rnd函数的详细说明和示例，请参考《神奇的VBA》插件（自行头条、百度或者知乎搜索该插件）进行学...
VBA 生成不重复的随机数
最新发布
记录
07-17 754
VBA 生成不重复的随机数
Excel 2010 VBA 入门 061 按模板快速生成指定数量的工作表
复行数十步
04-19 2132
目录 示例 实现代码 工作表对象(Worksheet)及其表示方法 1．序号表示法 2．工作表名称表示法 3．对象名称表示法 工作表集合和工作表 工作表常用的基本属性 工作表的添加与复制 工作表对象(Worksheet)与单元格对象(Range)的关系 工作表的删除 Application. DisplayAlerts属性 示例 如图所示，该表为某公司在银行的余额汇总。现希望按照模板的格式生成若干张工作表，各工作表以银行名称作为表格名称，并将该银行信息填入表内。如何用V...
VBA使用的Randomize和DoEvents
weixin_30914981的博客
12-21 472
Randomize private function getInt() 　　dim n,m as integer 　　Randomize 　　n=1 m=3 　　getInt=Int((m+1-n)*rnd + n) end function DoEvents dim c as Boolean private sub gameMain() 　　while c...
VBA的随机数生成：整数范围内随机（更好些），小数范围内随机
热门推荐
奔跑的犀牛先生
09-18 2万+
用EXCEL生成随机数 用VNA生成随机数 生成1-10的随机数 p1 = Int(1 + 10* Rnd()) ---这里正确，刚好10=10-1+1 p1 = Int(1 + (10-1+1) * Rnd()) --总是正确 如果生成 2-9之间的随机数 p2 = Int( 2 + 9* Rnd() ) --错误的 p2 = Int(2 + (9-2+1) * Rnd()) ----正确 ...
随机函数Randomize
12-14 998
Technorati 标签: Randomize,vba,随机数The Randomize statement initializes the random number generator. The instruction Int((maxNum – minNum + 1) * Rnd + minNum) uses the Rnd function to generate a random
016集——随机打乱并重新排序数组——vba实现
yongshiqq的博客
04-01 697
已知一个数组，将数组内容打乱并重新排序，可采用以下算法： 由此可见，本案例排序10万个数，耗时不到0.02秒。
VB中randomize函数的用法
weixin_40704392的博客
08-04 1174
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。以下事例将随机产生0到100的数字，如果不使用Randomize函数，得到的结果将有规律性。
Excel函数应用（3）--筛选&随机数
萝卜丝儿皮尔
09-05 2174
1.rand() 返回一个0~1之间的随机数 可由此改编成10~100之间的随机数函数INT( 90*rand()+10)。 如上图，利用随机函数生成一批随机数，这时，它们的共同属于一个数组。因此，无法更改其中个别数据，而且经常会发生一些意想不到的变化（每次更新其他单元格都会引起随机数整体的变化）。所以，考虑固定随机数。方法：选中之后【复制】—按值【粘贴】。 2.RANDBETWEEN(bott...
VBA批量取随机数（行号）
weixin_43250893的博客
01-30 1083
sub test() '批量随机数（行号） dim arr arr= get_rand(20, 19) Sheets("sheet1").Cells(1, 1).Resize(UBound(arr), UBound(arr, 2)) = arr end sub '取随机数 '参数: 最大行号,随机行号数量 Function get_rand(maxno, rndnum) Dim i, x, dict, arr If rndnum >= maxno Then MsgBox "随机数超过最大数量了"..
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值