[已解决]如何根据窗口的输入的数据生成随机数据到写入范围内

qinhuan66

求助：如何根据窗口的输入的数据生成随机数据到写入范围内。如图所示：在前面固定输入2013，随机数字是指生成2位随机数，写入范围是指现在写入到本表D3至D6区域。红框内就是写入后的效果。2例如：D3的201369的2013是前面固定；69是随机生成的。谢谢！
如何生成随机数字.rar (7.91 KB, 下载次数: 10)

2013-6-12 09:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-12 10:02

如何生成随机数字.rar (17.27 KB, 下载次数: 42)

2013-6-12 10:02 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

如何生成随机数字.rar (17.27 KB, 下载次数: 42)

2013-6-12 10:02 上传

点击文件名下载附件

hwc2ycy

你再试试跨工作表和手工输入地址。

刚有个情况没注意，当你只选一个单元格的时候就会出问题。

hwc2ycy

这样，即使只选一个单元格，也能写入数据。

1. Private Sub CommandButton1_Click()
   
2.     Dim bCount As Byte
   
3.     Dim arr
   
4.     Dim i As Long, j As Long
   
5.     On Error Resume Next
   
6.     bCount = Me.TextBox2.Value
   
7.     If bCount < 1 Then
   
8.         MsgBox "随机数位数不合符要求，必须是大于0的整数"
   
9.         Exit Sub
   
10.     End If
    
11. 
    
12.     If Me.TextBox2.Text Like "*[.-]*" Then
    
13.         MsgBox "随机数位数不合符要求，必须是大于0的整数"
    
14.         Exit Sub
    
15.     End If
    
16. 
    
17.     On Error GoTo ErrorHandler
    
18.     If Not CheckRange(Me.RefEdit1.Text) Then Exit Sub
    
19. 
    
20.     arr = rg.Value
    
21.     If IsArray(arr) Then
    
22.         For i = LBound(arr) To UBound(arr)
    
23.             For j = LBound(arr, 2) To UBound(arr, 2)
    
24.                 arr(i, j) = "'" & Me.TextBox1.Text & GeneRandom(bCount)
    
25.             Next
    
26.         Next
    
27.         rg.Value = arr
    
28.     Else
    
29.         rg.Value = "'" & Me.TextBox1.Text & GeneRandom(bCount)
    
30.     End If
    
31. 
    
32.     MsgBox "ok"
    
33.     Exit Sub
    
34. 
    
35. ErrorHandler:
    
36.     MsgBox Err.Number & vbCrLf & _
    
37.            Err.Description
    
38.     Err.Clear
    
39. End Sub

复制代码

zjdh

其实这样可以简单一点：
Private Sub CommandButton1_Click()
    If TextBox1 = "" Or TextBox2 = "" Or RefEdit1 = "" Then
        MsgBox "请填写完整数据！"
        Exit Sub
    End If
    AD = Split(RefEdit1.Value, "!")(1)
    For Each R In Range(AD)
        R.Value = TextBox1 & Round(Rnd() * 10 ^ TextBox2.Value, 0)
        If (Len(TextBox1) + TextBox2.Value) > Len(R.Value) Then R.Value = R.Value & "0"
    Next
End Sub

hwc2ycy

呵呵，我忘了判断前缀了，