常见字典用法集锦及代码详解

xl_stone

谢谢版主分享！！！

prowl

感谢楼主的无私分享

350977106

先下载学习，谢谢楼主分享。不知这些知识能否帮我把这段代码优化一下。该代码是用于小区田间试验，随机区组设计。要求每个重复内含有所有小区编码，行列内数字不能重复，也不能出现数字连锁，即要完全随机。
代码如下：
Sub 小区设计()
  m = Range("b1") 'b1为重复数，3或4
    n = Range("b2") 'b2为小区数，一般4-16之间
   

Range("3:" & Rows.Count).Clear
   Range("c3:f18").Font.Size = 14
        For i = 1 To n
iii:
         Randomize
        x = Int(Rnd * n) + 1
      
        If Application.CountIf(Range("C:C"), x) = 0 Then
        Cells(i + 2, 3) = x
        Else
GoTo iii
        End If
        Next i
        
        For j = 1 To n
jjj:
         Randomize
        y = Int(Rnd * n) + 1
        
        If Application.CountIf(Range("D:D"), y) = 0 And Application.CountIf(Rows(j + 2), y) = 0 Then
        Cells(j + 2, 4) = y
        Else
GoTo jjj
      
        End If
        Next j
      
      For k = 1 To n
kkk:
         Randomize
        Z = Int(Rnd * n) + 1
      
        If Application.CountIf(Range("E:E"), Z) = 0 And Application.CountIf(Rows(k + 2), Z) = 0 Then
        Cells(k + 2, 5) = Z
        Else
GoTo kkk
      
        End If
     
        Next k
           
      
    If m = 4 Then
       For q = 1 To n
qqq:
         Randomize
        p = Int(Rnd * n) + 1
      
        If Application.CountIf(Range("F:F"), p) = 0 And Application.CountIf(Rows(q + 2), p) = 0 Then
        Cells(q + 2, 6) = p
        Else
GoTo qqq
      
        End If
     
        Next q
      
    End If
  
End Sub
各位老师帮看一下，谢谢！！！

pattonzhai

认真学习，收益匪浅

wggx4

初次看到标题集锦就觉得应该是代码集合而已，看后才发现还有这么详尽的解释。而且是循序渐进的，感谢蓝版主，这几天正好在家中看看，谢谢。

aoni303

学习的好东西，顶起

老细系花哥

肝完十二个案例了，十分感谢版主

思雪遥遥

蓝桥玄霜 发表于 2010-10-18 12:50
实例3  A列中显示1 ~ 1000中被6除余1和余5 的数字
一、问题的提出：
有1、2、3…1000一千个数字，要求编 ...

山版这个拆分太厉害了：耗时0.01，原代码0.04！

phoenix5b

谢楼主，相当优秀，赶紧备学。

linwanglian

感谢分享，解决了我这种新手的部分疑惑。