请各位高手帮忙写一个VBA

fnjpn · 发表于 2024-1-1 16:03

fnjpn 发表于 2024-1-1 13:56
InStr(fbsj(i)(j, 1), k) >= 1在这个公式中fbsj(i)(j, 1)的内容是1,3,35,17,K的值是7时,我想让InStr(fbsj(i ...

InStr("," & fbsj(i)(j, 1) & ",", "," & k & ",") >= 1
这个写出来了

fnjpn · 发表于 2024-1-1 16:34

过客fppt 发表于 2024-1-1 15:48
GPT:
在 VBA 中，你可以使用 Split 函数将 fbsj(i)(j, 1) 的内容按逗号分隔为一个数组，并检查数组中是否 ...

非常谢谢你!!!!!

fnjpn · 发表于 2024-1-1 21:50

随机取班级号会，要求不能出现最后有些班级人数超出40,而无法安排班级,程序一直停不下来.

fnjpn · 发表于 2024-1-1 21:51

再次拜请高手相助！

fnjpn · 发表于 2024-1-2 12:25

再次求助，请大佬帮忙

YKL_VBA · 发表于 2024-1-2 15:32

Sub test()
Dim targetValue
arr = Sheets("Sheet1").UsedRange.Value
For i = 2 To UBound(arr)
If arr(i, 1) <> "" Then
brr = VBA.Split(arr(i, 1), ",")
label1:
Randomize
upperBound = UBound(brr) + 1
randomIndex = Int((upperBound - 1) * Rnd)
If WorksheetFunction.CountIf(Range("D:D"), targetValue) < 40 Then
targetValue = brr(randomIndex)
Sheets("Sheet1").Range("D" & i).Value = targetValue
Else
GoTo label1
End If
End If
Next i
End Sub

YKL_VBA · 发表于 2024-1-2 15:37

经测试可以满足你的需求

fnjpn · 发表于 2024-1-2 21:00

YKL_VBA 发表于 2024-1-2 15:37
经测试可以满足你的需求

非常谢谢你！！！

fnjpn · 发表于 2024-1-2 22:26

试了一下,程序运行不了

fnjpn · 发表于 2024-1-2 22:28

本帖最后由 fnjpn 于 2024-1-2 22:29 编辑

YKL_VBA 发表于 2024-1-2 15:37
经测试可以满足你的需求

我的数据比较多,程序运行不了,麻烦老师再看一下我下附件《班级安排2》

		自动登录	找回密码
密码			免费注册

[求助] 请各位高手帮忙写一个VBA