在Excel 2007中操作和管理数据实例操作

时间:2011-08-04 关注公众号 来源:网络

  创建一个动态菜单控件不是一项简单的工作,但在使用VBA动态修改Ribbon方面,该控件可能提供最大的灵活性。

  这里,创建了一个简单的动态菜单控件演示,为excel2007工作簿中的三个工作表中的每一个显示不同的菜单。图1展示了激活工作表sheet1时出现的菜单。当激活一个工作表时,VBA过程发送为工作表指定的XML代码。在本示例中,直接存储XML代码在工作表里,使之更易阅读。此外,XML标志可以作为字符串变量存储在代码中。

  

如何在Excel 2007中制作动态菜单

  图1:动态菜单近件使得可以取决于内容来创建变化的菜单

  创建新选项卡、新组和动态菜单控件的RibbonX代码如下:

<customUI xmlns=”http://schemas.microsoft.com/office/2006/01/customui“
onLoad=”ribbonLoaded”>
 <ribbon>
 <tabs>
  <tab id=”CustomTab” label=”Dynamic”>
    <group id=”group1″ label=”Dynamic Menu Demo”>
     <dynamicMenu id=”DynamicMenu”
       getContent=”dynamicMenuContent”
       imageMso=”RegionLayoutMenu”
       size = “large”
       label=”Sheet-Specific Menu”/>
     </group>
   </tab>
  </tabs>
  </ribbon>
</customUI>
本示例需要无论何时用户激活新工作表时,都使Ribbon无效的一种方式。这里使用了先前显示分页符的示例相同的方法。声明了一个IRibbonUI类型的Public变量MyRibbon,无论何时激活一个新工作表,都将在Workbook_SheetActivate过程中调用UpdateDynamicRibbon过程:

Sub UpdateDynamicRibbon()
‘  Invalidate the Ribbon to force a call to dynamicMenuContent
  On Error Resume Next
  MyRibbon.Invalidate
  If Err.Number <> 0 Then
    MsgBox “Lost the Ribbon object. Save and reload.”
  End If
End Sub

  UpdateDynamicRibbon过程使MyRibbon对象无效,强制对名为dynamicMenuContent(一个通过RibbonX代码里getContent参数引用的过程)的VBA回调过程的调用。注意错误处理代码。一些对VBA代码的编辑销毁了MyRibbon对象,而该对象是在打开工作簿时创建的。试图使不存在的对象无效将会导致错误,消息框将通知用户必须保存工作簿后再重新打开。而重新打开该工作簿是重新创建MyRibbon对象的唯一方式。

  dynamicMenuContent过程的代码如下。该过程遍历活动工作表A列中的单元格,读取XML代码,将其保存在名为XMLcode的变量中。当附加了所有的XML后,传递给returnedVal参数,使动态菜单控件有新的代码,因此显示一组不同的菜单选项。

Sub dynamicMenuContent(Control As IRibbonControl, _
  ByRef returnedVal)
  Dim r As Long
  Dim XMLcode As String
‘  Read the XML markup from the active sheet
  For r = 1 To Application.CountA(Range(”A:A”))
    XMLcode = XMLcode & ActiveSheet.Cells(r, 1) & ” “
  Next r
  returnedVal = XMLcode
End Sub

阅读全文
扫码关注“ 多特资源库
更多更全的软件资源下载
文章内容来源于网络,不代表本站立场,若侵犯到您的权益,可联系我们删除。(本站为非盈利性质网站)
玩家热搜
实现建军一百年奋斗目标,开创国防和军队现代化新局面,我们要
巨量百应登录入口官网
ce修改器搜不到数值
好分数官网登录入口
he什么意思
wikipedia官网入口
《会计信息化发展巩(2021—2025年)》提出,要加强政策指导和扶持力度,以做优做特、()为导向,培育一批优质会计师事务所。
《办公厅关于进一步规范财务审计秩序促进注册会计师行业健康发展的意见》(〔2021〕30号)提到要探索建立审计报告数据单一来源制度,推动实现全国范围“通”,是为了从源头治理()问题。
《会计信息化发展巩(2021—2025年)》提出,到“十四五”时期末,初步实现各监管部门在财务报表数据层面和()层面上的数据共享和互认。
《会计信息化发展巩(2021—2025年)》提出,会计信息化要落实《中华人民共和国会计法》等国家相关法律法规的新要求,顺应会计工作应用新技术的需要,完善会计信息化工作规范、软件功能规范等配套制度规范,健全会计信息化安全管理制度和()。
《会计行业人才发展巩(2021—2025年)》提出,完善继续教育管理体制机制,()应主动适应岗位需要和职业发展要求完成继续教育,不断完善知识结构,增强创新能力,提高专业水平。
根据《会计信息化发展巩(2021—2025年)》,在加快建立会计数据标准体系方面,“十四五”时期,将在数据处理环节,探索制定财务会计软件底层会计数据标准,规范会计()的业务规则和技术标准。

相关攻略

正在加载中
版权
版权说明

文章内容来源于网络,不代表本站立场,若侵犯到您的权益,可联系我们删除。(本站为非盈利性质网站)

电话:13918309914

QQ:1967830372

邮箱:[email protected]

toast