请教，Excel VBA中，有五个按钮，每次产生1～5的不重复的随机数。 只有五个奖励值了。不好意_百度知道
请教，Excel VBA中，有五个按钮，每次产生1～5的不重复的随机数。 只有五个奖励值了。不好意
请教，Excel VBA中，有五个按钮，每次产生1～5的不重复的随机数。只有五个奖励值了。不好意思了。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
先用非VBA方式做一下。选择A1:A5，输入RAND()
，按Ctrl+Enter组合键结束；选择B1:B5，输入RANK(A1,A$1:A$5)
按Ctrl+Enter组合键结束。隐藏A列，每按一下F9，B1:B5单元格自动生成不重复的1－5的随机数。
采纳率：79%
来自团队：
用randbetween函数就可以了
为您推荐：
其他类似问题
恋爱的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。excel中使用RANDBETWEEN 函数返回随机数,但随着每一步操作已得的随机数都会改变,如何固定已经得出的数.
问题描述：
excel中使用RANDBETWEEN 函数返回随机数,但随着每一步操作已得的随机数都会改变,如何固定已经得出的数.
问题解答：
公式输入以后（即得到随机数后）,复制得到的内容,原处选择性粘贴（勾选数值）.祝你成功解决问题!
我来回答：
剩余:2000字
公式输入以后（即得到随机数后）,复制得到的内容,原处选择性粘贴（勾选数值）.祝你成功解决问题!
有很多种方法,需要根据你的逻辑来的,比如用IF嵌套：=IF(条件1,结果1,IF(条件2,结果2,IF(条件3,结果3,结果4))) 再问： 麻烦你能写个完整公式吗，我写了一个，但只显示函数，不显示数位 再答： 一个例子，把等号加上：=IF(A1&90,&优秀&,IF(A1&80,&qu
要求中有两个问题,1个函数产生一个结果,第2次用函数产生另一结果,但不能保证多组结果的合格率不相同.除非一次性返回多个组结果.1个函数返回的结果一定是在你输入的单元格或者连续区域,不能由你选择.例如你在A1输入函数,要在C3返回结果,那是不可能的. 再问： 1.A1输入函数 产生的结果位于B1的右侧；A2输入函数 产生
请在C2中输入如下公式,下拉即可=IF(AND(b2>=2000,b2
姓名 性别 代码 要查代码 姓名A1 男
A4A2 女 1002 A5 男 1003 A6 女 1004 A4 男 1005 A8 女 1006 假设姓名、性别、代码的数据（包含3个字段）位于工作表的B1：D7区域,现在想在F2输入要查的代码,并立即在G2单元格显示对应姓名,则G2的公式是：=IND
2007以上版本：=IFERROR(IF(B1>=VLOOKUP(A1,Sheet2!A:C,2,0),VLOOKUP(A1,Sheet2!A:C,3,0),0),0)2003以下版本：=IF(ISERROR(IF(B1>=VLOOKUP(A1,Sheet2!A:C,2,0),VLOOKUP(A1,Sheet2!A:C
1.如果是wps表格或者是ms office2007及更高版本可以用=randbetween(600,699)/1000来实现.2.用=int(rand()*100)+600,这个在office2003及更高版本和wps表格都可以. 再问： 不行啊，我的是office2003的，这个公式不可用的 再答： 2003用第二
语法ROUND(number,num_digits)Number 需要进行四舍五入的数字.Num_digits 指定的位数,按此位数进行四舍五入.说明如果 num_digits 大于 0,则四舍五入到指定的小数位.如果 num_digits 等于 0,则四舍五入到最接近的整数.如果 num_digits 小于 0,则在
标准MIN和MAX函数返回参数列表中的最小值和最大值,但它们仅考虑数字值,即MIN和MAX函数忽略文本和逻辑值.MAXA语法如下:函数语法语法形式MAXA(value I,value2,...) 其中,valuel,value2,...表示需要从中查找最大数值的1-30个参数.MINA语法如下:函数语法
建议多按F1查看帮助.ROUND 返回某个数字按指定位数取整后的数字.语法ROUND(number,num_digits)number 需要进行四舍五入的数字.num_digits 指定的位数,按此位数进行四舍五入.说明如果 num_digits 大于 0,则四舍五入到指定的小数位.如果 num_digits 等于 0
=countif(B1:B10,">=80")-countif(B1:B10,">90")假设B1:B10为你的数据区域.语法COUNTIF(range,criteria)Range 为需要计算其中满足条件的单元格数目的单元格区域.Criteria 为确定哪些单元格将被计算在内的条件,其形式可以为数字、表达式、单元格引
因为AND函数仅能返回单值,不能用作数组的中间步骤,改为=MEDIAN(IF((A1:A11>1)*(A1:A11 再问： 成功了！请教*是怎么用的？ 再答： A1:A11>1 或 A1:A111，(A1:A11>1)*(A1:A11
=TEXT(INT(RAND()*401-200),"+0;-0")其中INT(RAND()*401-200)是用来取-200到200的,rand取的是0-1之间值,但永远达不到0和10*401-200=-=200产生的最小和最大值即为无限接近-200和200,但永远达不到,配合int函数,不四
Data_array 是一个数组或对一组数值的引用,您要为它计算频率.如果 data_array 中不包含任何数值,函数 FREQUENCY 将返回一个零数组.Bins_array 是一
一句话说不明白,看这个函数使用的详解常工作中,我们经常要用到多条件求和,方法有多种,第一类：使用基本功能来实现.主要有：筛选、分类汇总、数据透视表、多条件求和向导；第二类：使用公式来实现方法.主要有：使用SUM函数编写的数组公式、联用SUMIF和辅助列（将多条件变为单条件）、使用SUMPRODUCT函数、使用SUMIF
把公式贴出来看看有两种可能,一是参数4没有绝对引用；二是真空计算的结果没有进行四舍五入,和显示精度有差异 再问： 一、绝对引用也解决不了。如果是相对引用的缘故，为什么当真空度大于等于31.325时，就显示正确结果呢？二、如果说没有四舍五入的缘故，还是那样，为什么当真空度大于等于31.325时，就显示正确结果呢？ 再答：
=IF(A1-B1>8,"",A1-B1) 公式的含义是:当A1减B1大于8时,得出的值为空值,反之则运算A1-B1公式中如果是直接的数字不用加双引号,要运算用的公式和引用的单元格也不用加双引号,如果公式中引用的是非数值的内容就要加双引号了,比如=IF(A1="A","是我需要的内容","不是我要的内容")还有一个用双
C1输入某部门,D1求和,输入=if(countif(A:A, C1)>0, sumif(A:A, C1, B:B), 0)) 先统计A列中与C1相同的值的个数,如果大于0,即表示存在相同值,返回B列相加结果,如果=0,则A列没有C1显示的部门,返回0
其实你可以多点使用表格 多点看看表格里自带的帮助,使用公式你可以输入“=”等于号后就可以输入公式了,另外你也可以点击插入公式,要详细说明不是几千字就可说完的,举例要在F1里计算A1+B1+D1+E1,那么就在F1输入=SUM(A1:E1) SUM是合计公式,可以计算一个区域的,那么区域就是A1到E1了 如果你要计算A1
粘贴时右键－选择性粘贴－数值.
也许感兴趣的知识VBA产生任意范围内的随机数(包括产生任意范围内的小数!!!)_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VBA产生任意范围内的随机数(包括产生任意范围内的小数!!!)
你可能喜欢vba随机函数怎么得abcd_百度知道
vba随机函数怎么得abcd
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
格式：rnd(&数值表达式)功能：求(0,1)之间的一个随机数　　语法：　　rnd[(number)]如果 number 的值是 randomize 生成小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。大于 0 ，以上一个随机数为种子产生下一个随机数。等于 0 ，产生与最近生成的随机数相同的随机数。省略， 以上一个随机数为种子产生下一个随机数。说明　　rnd 函数返回小于 1 但大于或等于 0 的值。 Sub test() For i = 1 To 4 rndnum = Int((4 * Rnd) + 1) If rndnum = 1 Then MsgBox &a& ElseIf rndnum = 2 Then MsgBox &b&ElseIf rndnum = 3 Then MsgBox &c&ElseIf rndnum = 4 ThenMsgBox &d&End IfNextEnd Sub
采纳率：94%
来自团队：
rnd,取0-4，0对应a，2对应bch就是你要的jieguodim X,chX=int(rnd(4))select xcase 0ch=&a&case 1ch=&b&case 2ch=&c&case 3ch=&d&end select
本回答被提问者采纳
msgbox Chr(Asc(&a&) + Rnd(4))
可以随机产生ACII码的，用chr可以得到对应的字母
将产生的随机数从小到大排列，再转为abcd.
其他2条回答
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何用VBA产生一组区间内不重复随机数_百度知道
如何用VBA产生一组区间内不重复随机数
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Public Function 不重复随机数(小数 As Integer, 大数 As Integer, 个数 As Integer)
If 个数 & 大数 - 小数 + 1 Then Exit Function
ReDim arr(个数 - 1)
Dim b() As Boolean
ReDim b(大数 - 小数)
'取数标志
Dim x As Integer, y As Integer
For I = 0 To 个数 - 1
'找到x的位置，y表示x在取数标志数组的位置
x = Int(Rnd * (大数 - 小数 + 1)) + 小数
y = x - 小数
Loop While b(y)
b(y) = True
arr(I) = x
'找到未取的数，并放入数组，设置标志位
不重复随机数 = Application.Transpose(arr)End Function
Sub test()Dim i As IntegerFor i = 1 To InputBox(&How many random numbers do you want?&, &Hi&)Cells(i, 1) = Format(Rnd * (35 - 30) + 30, &0.0&)Next iEnd Sub
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。