求代码vba区域随机生成数字不再改变

swanay

大神大神！
求代码vba区域随机生成数字不再改变！

详见附件！

swanay

神啊！大神啊！

大灰狼1976

附件打不开。

swanay

大灰狼1976 发表于 2019-11-6 11:14
附件打不开。

现在看看呢

swanay

大灰狼1976 发表于 2019-11-6 11:14
附件打不开。

大神，能加你qq吗？

larer

写个VBA代码生成随机数字就不会变了,没看懂你的生成规则.

swanay

larer 发表于 2019-11-6 11:52
写个VBA代码生成随机数字就不会变了,没看懂你的生成规则.

比如依据2850的个位数，按照0-9随机生成数字，就变成了2851、2852....这种的

swanay

larer 发表于 2019-11-6 11:52
写个VBA代码生成随机数字就不会变了,没看懂你的生成规则.

神啊！能加你qq吗？

larer

swanay 发表于 2019-11-6 12:07
神啊！能加你qq吗？

看我的签名

一把小刀闯天下

'这种问题得靠猜，，，

Option Explicit

Sub test()
  Dim arr, i, j, p, sht, pos(2)
  Randomize
  For Each sht In Sheets
    With sht
      arr = .Range("a8:l" & .[a8].End(xlDown).Row)
      For i = 1 To UBound(arr, 1)
        pos(0) = arr(i, 2)
        pos(1) = Val(Split(arr(i, 3), "/")(0))
        pos(2) = Val(Split(arr(i, 3), "/")(1))
        For j = 4 To UBound(arr, 2)
          If j <= 8 Then
            p = 0
          ElseIf j <= 10 Then
            p = 1
          Else
            p = 2
          End If
          arr(i, j) = Int(Rnd * 10) + pos(p)
        Next
      Next
      .[a8].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    End With
  Next
End Sub