随机文字如何生成？

yh21cn

我想在B2：F100范围内的表格中自动生成文字，文字内容有：优、良、中、差，四个字随机显示其中一个，谢谢~


该贴已经同步到 yh21cn的微博

百度不到去谷歌

选中B2：F100，输入公式=CHOOSE(RANDBETWEEN(1,4),"优","良","中","差") 按下ctrl+enter 然后就看到结果了 每按一次F9就会重新计算
要固定住 就复制区域后右键选择性粘贴为数值

yh21cn

百度不到去谷歌 发表于 2014-6-9 08:31
选中B2：F100，输入公式=CHOOSE(RANDBETWEEN(1,4),"优","良","中","差") 按下ctrl+enter 然后就看到结果了  ...

谢谢，我去试试看效果怎样，呵呵

yh21cn

百度不到去谷歌 发表于 2014-6-9 08:31
选中B2：F100，输入公式=CHOOSE(RANDBETWEEN(1,4),"优","良","中","差") 按下ctrl+enter 然后就看到结果了  ...

结果是：#NAME?~~~~~~

百度不到去谷歌

yh21cn 发表于 2014-6-9 08:35
谢谢，我去试试看效果怎样，呵呵

这个是07以后的 03的用INT(RAND()*4+1)代替randbetween（1,4）

yh21cn

百度不到去谷歌 发表于 2014-6-9 08:41
这个是07以后的 03的用INT(RAND()*4+1)代替randbetween（1,4）

的确如此，2003不支持Randbetween的，谢谢了

Zamyi

=MID("优良中差",INT(RAND()*4+1),1)

快乐的悲哀

Zamyi 发表于 2014-6-9 09:22
=MID("优良中差",INT(RAND()*4+1),1)

也很适用

考试加油站

Sub 随机生成文字()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim j As Integer
    Dim arr(1 To 4) As String

    arr(1) = "优"
    arr(2) = "良"
    arr(3) = "中"
    arr(4) = "差"

    Set rng = Range("B2:F100")

    For Each cell In rng
        i = Int((4 - 1 + 1) * Rnd + 1)
        cell.Value = arr(i)
    Next cell
End Sub