如何解决VBA将值从1到30随机化,从而跳过手动输入的值
对于前15个等级,我想手动输入B2:P11中的值。对于等级16至30,我想使用Excel VBA按钮将这些值随机化,并使用以下代码:
Sub rand_group()
Dim i As Long
Dim j As Long
Dim myFlag(1 To num_man)
Dim s_group As Worksheet
Set s_group = Worksheets("group")
'óêêîånóÒÇèâä˙âª
Randomize
s_group.Cells.Clear
s_group.Range("A1") = "group_id"
For i = 1 To num_group
s_group.Cells(i + 1,1) = i
Next i
For i = 1 To num_man
s_group.Cells(1,i + 1) = "m_rank" & i
Next i
For i = 1 To num_group
For j = 16 To num_man
myFlag(j) = False
Next j
For j = 16 To num_man
Do
'óêêî=Int((ç≈ëÂíl - ç≈è¨íl +1 ) * Rnd + ç≈è¨íl)
myNum = Int((num_man - 1 + 1) * Rnd + 1)
Loop Until myFlag(myNum) = False
s_group.Cells(i + 1,j + 1).Value = myNum
myFlag(myNum) = True
Next j
Next i
End Sub
但是,这些随机值应忽略B2:P11中手动输入的值
如何更改代码以解决此问题?
excel文件的屏幕截图如下所示: I want to manually fill values from B2 to P11
提前感谢您的回复!
米歇尔
解决方法
要填充网格的随机部分,不需要myFlag
数组。只需使用单元格坐标来设置随机值即可。还要删除Clear
调用,因为这会清除整个工作表。
要防止连续出现重复的数字,请循环使用excel CountIf
函数,直到找到唯一的随机数为止。
这是更新的代码。它可以多次运行,而不会影响手册数据。
Sub DoRand()
Dim i As Long
Dim j As Long
Dim s_group As Worksheet
Set s_group = Worksheets("group")
num_group = 10
num_man = 30
Randomize
's_group.Cells.Clear ' clear sheet
' build table
For i = 1 To num_group ' group id
s_group.Cells(i + 1,1) = i
Next i
For i = 1 To num_man ' column names
s_group.Cells(1,i + 1) = "m_rank" & i
Next i
' fill in random numbers
For i = 1 To num_group 'row
For j = 16 To num_man 'column
Do While True
n = Int((num_man) * Rnd + 1) ' get random number
cnt = Application.WorksheetFunction.CountIf(Range(s_group.Cells(i + 1,2),s_group.Cells(i + 1,j)),"=" & n) ' check if number in row
s_group.Cells(i + 1,j + 1).Value = n ' set cell value
If cnt = 0 Then Exit Do ' if unique in row,go to next cell
Loop ' not unique,try new random value
Next
Next
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。