'以下代码都可以直接复制使用
Private Sub Workbook_Open()
'部门数据的初始化
With Sheets("录入")
.部门.Clear
.部门.AddItem "销售部"
.部门.AddItem "人事部"
.部门.AddItem "财务部"
.部门.AddItem "生产部"
.部门.AddItem "后勤部"
End With
'精通语言数据的初始化
With Sheets("录入")
.语言.Clear
.语言.AddItem "汉语"
.语言.AddItem "英语"
.语言.AddItem "法语"
.语言.AddItem "德语"
.语言.AddItem "日语"
End With
End Sub
这样部门跟语言的就会自动添加进去了。
另外，由于精通语言是多选的，所以需要在属性中进行设置。
