我觉得还有一个更简单的方法，那么什么我想到的是，现在要做到这一点..
所以，我要在这里打下一些基础：
- 我有具有存储为一个List部门的组织（系）
- 该部具有被存储为列表人（人的）
- 每个人都有在这一个日历是（词典（字符串，字符串））的列表
短的原因是人们不希望升级到数据库中，我不得不凑合着用从Excel表格把数据和处理数据，以使曼宁的图表。
现在我遇到的问题是，我需要冲刷所有部门的组织只选择谁的日历说，他们应该被分配到该部当天人。
我可以选择如下他们的日历状态：
If (person.Cal(dateOffset).Item("status") = Right(departmentName, 1) & ".") Then
因此，为了使这更清楚..日历的工作原理如下：他们在GUI中选择日期范围。 该程序发现列出的第一个日期（以Excel表格恒定的位置），然后再执行日期差异来获得dateOffset。 这成为了Excel跳转到号码来查找日期。 我存储单元格颜色，单元格文本（“状态”）和单元格批注的字典。
如果他们被分配到不同的部门当天（其中部门可能是DA，DB，DC，DD等），他们把A.，B.，C，D和我要解析的差异。 请记住这个功能完美的作品。 我重新编写代码，使这个充满活力的少了很多硬编码的东西，我现在所拥有的，少一些代码，并在内存中运行更少的东西。
现在的窘境，在我需要从列表访问这些信息，我希望有一种方法，我没有为循环去做做，因为这是目前我做的方式。 有没有一种方法，使从人员的完整列表子列表，只有返回的人谁的日历状态等于值。 我认为长期是Λ但无论是哪个词是我希望的那样的解决方案。 提前致谢。
注：对不起，我没有产生多大的代码，但有很多在那里怎么回事，代码不释放。
