使用基于单元格值的工作表中的值创建用户表单列表框

Question

VB noob。我正在尝试为每个房间填写用户表单列表框，其中预订列不为空白。 （如果预订为空白，则不是提前预订。）

示例数据：

date        room    intime      outime      Reservations
3/20/2017   5       10:00 AM    12:00 PM    Group1
3/20/2017   5       1:00 PM     2:00 PM     Group2
3/20/2017   3       11:00 PM    2:00 PM     Group2
3/20/2017   3       1:00 PM     2:00 PM     Group2
3/20/2017   4       10:25 AM          

我有一个每个房间的列表框。这是我的伪代码：

Foreach row in range
If Reservations <>"" AND date = Date 'only want today's events
[write new statement combining intime and outtime values to display in the listbox in the userform]

看起来像这样：

因此，我希望在打开工作簿时填充用户表单，以显示从上午10:00到凌晨12:00和下午1:00到下午2:00预订了5号房间，并且该房间3预订时间为上午11:00至凌晨12:00和下午1:00至下午2:00。

所以，有几个问题： 我的代码会在Workbook_Open（）或UserForm_Initialize（）中结束吗？ 你如何将这两次合并为一个陈述？

由于