excel密码破解代码代码问题，姓名筛查

来源：蜘蛛抓取(WebSpider) 时间：2012-12-25 07:53 标签： excel密码破解代码
怎样用excel随机抽取人名？_百度知道
怎样用excel随机抽取人名？
将人名存放于1个数组（例如20个人名），然后随机产生一个1~20的随机数，根据数组取得这个人名就完成了。接下来举例来做一个实例说明。第一步：创建一个20个人名的清单，存于A1~B21。如图：第二步：编写一个宏。代码如下：Sub 随机人名()Dim mYname(1 To 20, 1 To 2)Dim I, J, K As Integer'读取人名I = 2Do While Cells(I, 1) & 0mYname(I - 1, 1) = Cells(I, 1)mYname(I - 1, 2) = Cells(I, 2)I = I + 1LoopRandomizeJ = Int((Rnd * 20) + 1)For K = 1 To 20If J = mYname(K, 1) Then& Exit ForEnd IfNext K& &MsgBox mYname(K, 2)End Sub第三步：插入一个按钮，将上述宏附加给按钮。第四步：修改按钮名称为“随机人名”。这样只要点击按钮，就会显示一个随机的人名。如图：
其他类似问题
2人觉得有用
为您推荐：
提问者采纳
这是随机函数)下拉填充或双击B1右侧的填充柄选中B列任一非空单元格 单击或多次单击常用工具栏上的升序排序或降序排序图标在C1中输入或复制粘贴此公式=INDIRECT(&A&quot,在B1中输入或复制粘贴此公式=RAND() (说明全部名字放在一列(假设是A列)在B列加一个辅助列:E1:A)-1)*68+ROW($A1))右拉填充到E列选中C1;&(COLUMN(A
提问者评价
来自团队：
其他1条回答
&ROUND(RAND()*(50-1)+1=INDIRECT(&quot！试试;a&quot,0)) A列1-50人名
您可能关注的推广
随机抽取的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 excel密码破解代码 的文章

 

随机推荐