请各位高手帮忙写一个VBA

fnjpn

请各位高手帮忙写一个VBA，要求：
1、A列为空，则D列为空
2、A列不为空，则D列对应处，确定一个班级填入
（如A28中为1,5,7则D28中可填1，也可填5，也可填7）
3、D列中相同班级安排的人数不超过40人

fnjpn

fnjpn

求助

山菊花

供参考。

gwjkkkkk

请参考。。。

fnjpn

山菊花 发表于 2023-12-16 18:19
供参考。

先谢谢啦！

fnjpn

山菊花 发表于 2023-12-16 18:19
供参考。

先谢谢老师啦

fnjpn

gwjkkkkk 发表于 2023-12-16 18:25
请参考。。。

老师你好,我使用中出现一个问题,就是随机取班级号会出现最后有些班级人数超出40,而无法安排班级,程序一直停不下来.麻烦你帮助一下

fnjpn

InStr(fbsj(i)(j, 1), k) >= 1在这个公式中fbsj(i)(j, 1)的内容是1,3,35,17,K的值是7时,我想让InStr(fbsj(i)(j, 1), k) >= 1返回flase,如果K的值是17时,InStr(fbsj(i)(j, 1), k) >= 1返回true,怎么办呢

过客fppt

GPT:
在 VBA 中，你可以使用 Split 函数将 fbsj(i)(j, 1) 的内容按逗号分隔为一个数组，并检查数组中是否存在 k 的值。以下是一个示例代码：

```vba
Dim fbsjValue As String
Dim kValue As String
Dim fbsjArray() As String

fbsjValue = "1,3,35,17,K"
kValue = "7"

fbsjArray = Split(fbsjValue, ",")

If Not IsNumeric(Application.Match(kValue, fbsjArray, 0)) Then
    ' k 的值不在 fbsj(i)(j, 1) 中
    MsgBox "False"
Else
    ' k 的值在 fbsj(i)(j, 1) 中
    MsgBox "True"
End If
```

在上述示例中，fbsjValue 变量存储了 fbsj(i)(j, 1) 的内容，kValue 变量存储了 k 的值。然后，使用 Split 函数将 fbsjValue 按逗号分隔为一个字符串数组 fbsjArray。最后，使用 Application.Match 函数在 fbsjArray 中查找 kValue 的值，如果找到则返回其在数组中的位置，否则返回错误值。根据返回结果判断 k 是否存在于 fbsj(i)(j, 1) 中。

请注意，上述示例中使用了消息框 (MsgBox) 来显示结果，你可以根据实际需求将其替换为你希望的操作。另外，如果 fbsj(i)(j, 1) 的内容包含其他非数字字符，你可能需要进一步处理数据类型的问题。