VBA 代码段汇集[不断的更新中]

民扬

' 产生20个1-100之间的不重复随机数
Public Sub RndNumberNoRepeat1()

    Dim RndNumber, temp(20), i, k, Maxrec As Integer
    Dim a1a
    Randomize (Timer)           '初始化随机数生成器
    Maxrec = 100
   
   Do While a1a < 50  '区域列数
   
    k = 1 ' 从A2开始输出随机数
    Do While k < 20 ' 最大行数20行
        RndNumber = Int(Maxrec * Rnd) + 1
        temp(k) = RndNumber
        Cells(k + 1, a1a + 1) = RndNumber
        For i = 0 To k - 1
            If temp(i) = RndNumber Then Exit For
        Next i
        If i = k Then k = i + 1
      
    Loop
    a1a = a1a + 1
    Loop
  
End Sub

民扬

是要指定使用期限，超过某个日期之后就不能使用是吗？
Dim datee As Date
datee = #2/14/2012# '这里设置受限制的日期
If Date > datee Then
exit sub
End If
'你的正常VBA代码

自由自在的费

向大神们  学习一下，

zhangdi20011

支持一下，谢谢分享

V伟伟V

辛苦了，谢谢楼主

y1983y

棒棒哒，这么多干货，谢谢！

朔方

OK，好极了，顶一下。

barlz

非常及时、非常需要、学习收藏！谢谢

lima

收藏学习，谢谢分享

踏破拖鞋

感谢分享 谢谢