如何根据某单元格内的数值，生成偏差正负100的一组随机数（ 附经典VBA，请大师修改）

idliyi

目标：生成10个随机数，在AA10单元格中的数值33897 基础上正负100；
注：因为经典VBA代码“生成固定的随机数”中是指定了上下限为数值，而不能采用单元格运算，所以，
目前，我采用的是 在经典VBA代码“生成固定的随机数”的基础上，先在表中（黄色标出来的行-- 纵筋长度(mm)，J17:S17 ）生成-100到100的数；另建一个辅助行（AA17：AJ17），然后，将之与AA10中的数值相加；最后，在VBA模块中用 Range("J17:S17") = Range("AA17:AJ17").Value，完成的。

请修改后，点击附件表格中的 “自动填写 一般项目”按钮时，可以随机生成。

请大师帮助。

Sub 生成随机数()

  Sheets("3、钢筋笼检验批").Activate           '激活工作表，自己命名的工作表名称为“Sheet1”的工作表

  For i = 15 To 19

     rng = GenerateRandNumbers("", 995, 1005, Range(Cells(i, 10), Cells(i, 19)))
      rng = GenerateRandNumbers("", 95, 105, Range(Cells(i + 1, 10), Cells(i + 1, 19)))
      rng = GenerateRandNumbers("", -20, 20, Range(Cells(i + 2, 10), Cells(i + 2, 19)))
      Range("J17:S17") = Range("AA17:AJ17").Value  '自己加的
      rng = GenerateRandNumbers("", 95, 105, Range(Cells(i + 3, 10), Cells(i + 3, 19)))
      rng = GenerateRandNumbers("", 1990, 2010, Range(Cells(i + 4, 10), Cells(i + 4, 19)))

      i = i + 25  '向下间隔25行,比一个模板表格所占行数少1行

  Next i

End Sub

Function GenerateRandNumbers(strPreString As String, intLBound As Integer, _
                                     intUBound As Integer, rngTarget As Range) As Boolean
'******************************************************************************************
'作用：根据用户设置的几个参数自动产生一系列的随机数，并填充到工作表的指定位置

'参数：
'           strPreString：这个作为最后产生的字符串的前缀
'           intLBound：这个是随机数的最小可能值
'           intUBound：这个是随机数的最大可能值
'           rngTarget：你可以选择一个目的位置，存放这些随机数

'******************************************************************************************
    On Error GoTo Errhandler
    Dim rng As Range
    For Each rng In rngTarget
        rng.Value = CStr(strPreString & Format(Int((intUBound - intLBound) * Rnd() + intLBound), String(Len(CStr(intUBound)), "0")))
    Next
    GenerateRandNumbers = True
    Exit Function

Errhandler:
    GenerateRandNumbers = False
    MsgBox Err.Description, vbCritical, "错误"
    Err.Clear
    Exit Function

End Function

microyip

没看懂你原来要计算什么，提供一个计算误差范围的数值给你参考

1. Sub 计算误差范围数值()
   
2.     Dim nVal As Double
   
3.     nVal = [AA10] + 误差范围的随机数(100)
   
4.     MsgBox [AA10] & "在±100范围内的随机数值：" & nVal
   
5. End Sub
   
6. 
   
7. Function 误差范围的随机数(nWuCha As Double) As Double  'nWuCha是误差范围的数值部分，不理正负
   
8.     误差范围的随机数 = Int(2 * nWuCha * Rnd()) - nWuCha
   
9. End Function

复制代码

idliyi

microyip 发表于 2017-3-13 14:31
没看懂你原来要计算什么，提供一个计算误差范围的数值给你参考

你好老师，不是计算。是生成随机数。

microyip

idliyi 发表于 2017-3-14 08:08
你好老师，不是计算。是生成随机数。

那么给你的代码，不是生成了随机数了咩？

idliyi

microyip 发表于 2017-3-14 11:12
那么给你的代码，不是生成了随机数了咩？

老师，我是想生成一组随机数，并填到 J17：S17 ，这10个单元格中。怎么办？

microyip

逐个单元格填一次就是啦

zyhui1961

microyip 发表于 2017-3-14 11:12
那么给你的代码，不是生成了随机数了咩？

老师您好！
能给一个双击Sheet(您好)工作表的K8单元格,触发事件的代码吗？谢谢！