设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2500|回复: 4
打印 上一主题 下一主题

[其它] 能不能用函数自动生成多个不相等的整数。

[复制链接]
跳转到指定楼层
1#
发表于 2007-11-3 10:20:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式


[ 本帖最后由 zhqizh2008 于 2007-11-3 10:54 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-11-3 22:11:15 | 只看该作者
rnd()是生成随机数,

点击这里给我发消息

3#
发表于 2007-11-6 16:37:30 | 只看该作者
RAND会重复的,要不重复得用代码了。
4#
发表于 2007-11-7 12:42:09 | 只看该作者
Sub 不重复随机值()
    Dim iMin As Integer, iMax As Integer, iCount As Integer
    Dim j As Integer
    j = 1
    Application.ScreenUpdating = False
    On Error GoTo 100
    Columns("A:A").ClearContents
    iMin = Int(InputBox("请输入最小值"))
    iMax = Int(InputBox("请输入最大值"))
    iCount = Int(InputBox("请输入要取的个数"))
    If iMax <= iMin Then
        MsgBox "最大值必须比最小值大!"
        Exit Sub
    End If
    If iCount > iMax - iMin + 1 Then
        MsgBox "要取出的个数,不能超过大小值之差!"
        Exit Sub
    End If
    For i = iMin To iMax
        Range("A" & j) = i
        Range("B" & j) = Rnd
        j = j + 1
    Next i
    Range("A1:B" & iMax - iMin + 1).Sort Key1:=Range("B1")
    Columns("B:B").ClearContents
    If iCount < iMax - iMin + 1 Then
        Range(Cells(iCount + 1, 1), Cells(iMax - iMin + 1, 1)).ClearContents
    End If
100
End Sub
5#
发表于 2007-11-7 12:43:44 | 只看该作者
思路是这样的
一个A列形成比如1-100的序列
另一B列形成100个RAND()随机数
然后将100个随机数排序,则A列为100个不重复的整数。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 01:35 , Processed in 0.086545 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表