根据b列不为空，优先任务分配

二年级班长

附表中任务分配A可以自动在H列进行随机任务分配，（现在需要增加B列中急发货=是，优先进行任务分配），没有急发货，或者急发货全部分配后在分配B字段中为空的，请大神帮忙看看如何实现，谢谢！

不知道为什么

好像楼主没有把场景说完整把，如果已经分配过或者已完成的的任务还要参与分配么？再有每次分配的任务数量是多少？

二年级班长

不知道为什么 发表于 2019-3-23 14:09
好像楼主没有把场景说完整把，如果已经分配过或者已完成的的任务还要参与分配么？再有每次分配的任务数量是 ...

重新更新了下附件，这样会好理解些，
1、已经分配的就不能在重复分配，每次只提取一个任务（现在表格中可以实现随机提取一个任务）；
2、现在想增加一个条件，就是B列中=是的，优先自动任务分配(B列中可能有=是，也可能=空，两者并存时，优先分配=是的，急发货=是全部分配完后在提取=空的)
3、任务完成情况 这里是个人完成分配后自己填写已完成

不知道为什么

二年级班长 发表于 2019-3-23 14:29
重新更新了下附件，这样会好理解些，
1、已经分配的就不能在重复分配，每次只提取一个任务（现在表格中 ...

如图：

不知道为什么

二年级班长 发表于 2019-3-23 14:29
重新更新了下附件，这样会好理解些，
1、已经分配的就不能在重复分配，每次只提取一个任务（现在表格中 ...

不知道是不是楼上图片的意思
我的逻辑：
1、 如果 H I J 三列有不为空的值，那该行任务不参与分配

2、 有限分配 急发货的任务，分配完急发货的任务后，分配其它任务

3、如果分配任务量大于 有效可以分配任务量，程序返回。

二年级班长

不知道为什么 发表于 2019-3-23 15:17
不知道是不是楼上图片的意思
我的逻辑：
1、 如果 H I J 三列有不为空的值，那该行任务不参与分配

您做的比我想的要多，我想的比较简单，可否分享下代码学习下，谢谢！

不知道为什么

二年级班长 发表于 2019-3-23 15:33
您做的比我想的要多，我想的比较简单，可否分享下代码学习下，谢谢！

供参考，有用请评分哦

二年级班长

不知道为什么 发表于 2019-3-23 15:35
供参考，有用请评分哦

大神，您好，您提供的代码是可以使用的，我在您给的代码中增加如下项
            Cells(brr(i), 8) = " 优先分配" & Now()
            Cells(brr(i), 8).Select

            Cells(crr(k), 8) = "正常分配" & Now()
            Cells(crr(k), 8).Select

           Cells(brr(k), 8) = "优先分配" & Now()
            Cells(brr(k), 8).Select
在每个分配任务后边增加了select选定单元格，这样可以每次分配的任务可以直接定位到相应的单元格，但是现在有这样一个问题，增加的select可以选定单元格，但是任务行数较多（不在能在一页显示的时候），并不能跑到选定的单元格中，烦请帮忙看看这是怎么回事，谢谢

不知道为什么

二年级班长 发表于 2019-5-30 19:43
大神，您好，您提供的代码是可以使用的，我在您给的代码中增加如下项
            Cells(brr(i), 8) = " ...

最近有点忙，来论坛会少。您最好把附件上传，阐述下需求。我会抽空处理。

二年级班长

不知道为什么 发表于 2019-5-30 23:29
最近有点忙，来论坛会少。您最好把附件上传，阐述下需求。我会抽空处理。

比如：我的电脑页面只能看到34行数据，那么任务分配到36行或者36行以下的行数时，单元格不能激活到对应的位置，这样不方便看，增加了select，正常来讲应该可以直接定位到任务分配的单元格（代码中增加了定位）您打开附件试试就明白了，谢谢！