在excel随机生成六位数数字，但不要带3和4的

Question

在excel随机生成六位数数字，但不要带3和4的

Answer 1

我发现有一位用VB做的,没有排除出现第一位为0的情况于是就出现了5位数的情况,所以我觉得用公式方便些.

在任一单元格输入如下公式即可:
=VALUE(CHOOSE(1+INT(7*RAND()),1,2,5,6,7,8,9)&CHOOSE(1+INT(8*RAND()),0,1,2,5,6,7,8,9)&CHOOSE(1+INT(8*RAND()),0,1,2,5,6,7,8,9)&CHOOSE(1+INT(8*RAND()),0,1,2,5,6,7,8,9)&CHOOSE(1+INT(8*RAND()),0,1,2,5,6,7,8,9)&CHOOSE(1+INT(8*RAND()),0,1,2,5,6,7,8,9))

说明:第一位,不能出现0,3,4,所以用公式:
CHOOSE(1+INT(7*RAND()),1,2,5,6,7,8,9)
产生除0,3,4的数,其它5位不能出现3,4,于是用公式:
CHOOSE(1+INT(8*RAND()),0,1,2,5,6,7,8,9)
产生除3,4的数.最后合并.为了使合并出的随机6位文本型的数转化成数值型,用了一个VALUE函数.

Answer 2

若要生成
a
与
b
之间的随机实数，请使用：
rand()*(b-a)+a如果要使用函数
rand
生成一随机数，并且使之不随单元格计算而改变，可以在编辑栏中输入“=rand()”，保持编辑状态，然后按
f9，将公式永久性地改为随机数。
=int(rand()*50+100)
要将随机数字转到a6-e6，就在a6-e6都输入：
=int(rand()*50+100)

Answer 3

这个是不可能的，random函数只能控制生成随机数的位数。

Answer 4

呵呵，还是有办法滴。

视图－工具栏－控件和窗体那东西调出来。建立一个命令按钮。右键－查看代码－编辑以下内容进去之后，退出设计模式，然后点点看。

Private Sub CommandButton1_Click()
Dim a, b, c
For a = 1 To 6
10 b = Int(Rnd() * 10)
If b = 3 Or b = 4 Then
GoTo 10
End If
c = c * 10 + b
Next a
ActiveCell.Value = c
End Sub

Answer 5

什么？