日记首页
|
列表
|
添加日记
|
管理登陆
标题：vba中下拉菜单
<div style=""><font face="Arial"><span style="font-size: 14px;">vba中下拉菜单</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">设置好窗体里的</span></font></div><table cellspacing="0" cellpadding="0" style="overflow-wrap: break-word; empty-cells: show; border-collapse: collapse; table-layout: fixed; width: 757px; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 12px;"><tbody style="overflow-wrap: break-word;"><tr style="overflow-wrap: break-word;"><td class="t_f" id="postmessage_1987244" style="overflow-wrap: break-word; font-size: 14px;"><p style="overflow-wrap: break-word; margin: 0px; padding: 0px;">ComboBox（复合框），添加代码：</p></td></tr></tbody></table><div style=""><font face="Arial"><span style="font-size: 14px;">都可以，但</span></font><span style="font-family: Arial; font-size: 14px;">Private Sub UserForm_Initialize()不能变。</span></div><div style=""><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style=""><hr></div><div style=""><font face="Arial"><span style="font-size: 14px;">Private Sub UserForm_Initialize()</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> ComboBox1.List() = Array("稿件名称", "工作做类型", "页码", "日期")</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">End Sub</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style=""></div><div style=""><hr></div><div style=""><font face="Arial"><span style="font-size: 14px;">Private Sub UserForm_Initialize()</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">ComboBox1.AddItem "男"</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">ComboBox1.AddItem "女"</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">End Sub</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style=""><hr><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 14px;">Private Sub UserForm_Initialize()</span><br style="overflow-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 14px;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 14px;"> ComboBox1.AddItem "你添加的内容"</span><br style="overflow-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 14px;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 14px;">End Sub</span><br></div><div style=""><br></div>
