Excel 基于单元格值使用工作表中的值创建文件userform列表框

vbnoob。我正在尝试为每个房间的用户表单列表框填充预订栏不为空的所有时间。（如果预订为空，则不是提前预订）

样本数据：

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]

范围内的每一行的

如果“预订”和“日期=日期”只想要今天的活动
[编写结合intime和outtime值的新语句，以显示在userform的列表框中]

看起来是这样的：

因此，我希望在打开工作簿时填充一个用户表单，以显示5号房间的预订时间为上午10:00到中午12:00，下午1:00到下午2:00，3号房间的预订时间为上午11:00到中午12:00，下午1:00到下午2:00

所以，有几个问题： 我的代码最终会出现在工作簿\ u Open（）还是用户表单\ u Initialize（）中？ 如何将这两次合并到一个语句中

---

谢谢

1:

UserForm\u初始化

。2：使用字符串连接运算符：

&

，例如

范围（“C2”）.Text&“-”&Range（“D2”）.Text

显示类似以下内容：

“上午10:00-下午12:00”

，感谢您的响应和提供的信息。