excel怎样添加的选项卡中含有下拉列表

 <customUI
   xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon startFromScratch="false">
     <tabs>
       <tab id="myxxk"
         insertBeforeMso="TabHome"
         label="我的选项卡">
         <group id="cxgroup"
           label="查询">
           <box id="rxbox1"
             boxStyle="vertical">
             <box id="rxbox11"
               boxStyle="horizontal">
               <comboBox
                 id="ks_n"
                 label="开始日期："
                 onChange="ksn_Click"
                 getItemCount="nCount"
                 getItemID="nID"
                 getItemLabel="nLabel"
                 getText="nMoren">
               </comboBox>
               <comboBox
                 id="ks_y"
                 sizeString=""
                 onChange="ksy_Click"
                 getItemCount="yCount"
                 getItemID="yID"
                 getItemLabel="yLabel"
                 getText="yMoren">
               </comboBox>
             </box>
             <box id="rxbox21"
               boxStyle="horizontal">
               <comboBox
                 id="js_n"
                 label="结束日期："
                 onChange="jsn_Click"
                 getItemCount="nCount"
                 getItemID="nID"
                 getItemLabel="nLabel"
                 getText="nMoren">
               </comboBox>
               <comboBox
                 id="js_y"
                 sizeString=""
                 onChange="jsy_Click"
                 getItemCount="yCount"
                 getItemID="yID"
                 getItemLabel="yLabel"
                 getText="yMoren">
               </comboBox>
             </box>
           </box>
           <button id="chaxun"
             image="chaxun"
             label="　开始查询　
"
             size="large"
             onAction="chaxun_click"/>
         </group>
       </tab>
     </tabs>
   </ribbon>
 </customUI>

custom ui editor for microsoft office 打开excel中写入的代码

 '生成年份下拉框选项文本
 Public ksrq As Date, jsrq As Date
 Sub nCount(control As IRibbonControl, ByRef returnedVal)
     returnedVal =
 End Sub
 Sub nID(control As IRibbonControl, index As Integer, ByRef id)
     id = control.id & index
 End Sub
 Sub nLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
     returnedVal =  + index & "年"
 End Sub

 '生成月份下拉框选项文本
 Sub yCount(control As IRibbonControl, ByRef returnedVal)
     returnedVal =
 End Sub
 Sub yID(control As IRibbonControl, index As Integer, ByRef id)
     id = control.id & index
 End Sub
 Sub yLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
     returnedVal = index +  & "月"
 End Sub

 '设置默认值
 Sub nMoren(control As IRibbonControl, ByRef returnedVal)
     returnedVal = IIf(Left(control.id, ) = "k", "2010年", "2015年")
 End Sub
 Sub yMoren(control As IRibbonControl, ByRef returnedVal)
     returnedVal = IIf(Left(control.id, ) = "k", "1月", "12月")
 End Sub

 '选择年月，保存到变量
 Sub ksn_Click(control As IRibbonControl, text As String)
     ksrq = DateSerial(Val(Left(text, )), Month(ksrq), )
 End Sub
 Sub ksy_Click(control As IRibbonControl, text As String)
     ksrq = DateSerial(Year(ksrq), Val(LeftB(text, )), )
 End Sub
 Sub jsn_Click(control As IRibbonControl, text As String)
     jsrq = DateSerial(Val(Left(text, )), Month(jsrq) + , )
 End Sub
 Sub jsy_Click(control As IRibbonControl, text As String)
     jsrq = DateSerial(Year(jsrq), Val(LeftB(text, )) + , )
 End Sub

 '点击查询按钮
 Sub chaxun_click(control As IRibbonControl)
     MsgBox "开始日期：" & Format(ksrq, "yyyy-mm-dd") & Chr() _
     & "结束日期：" & Format(jsrq, "yyyy-mm-dd")
 End Sub

vba中需要配合的代码

http://club.excelhome.net/forum.php?mod=viewthread&tid=709306&extra=page%3D1