OFFICE2007之后使用了OpenXml标准(伟大的改变),定制文本级的Ribbon可以通过修改压缩包内的xml文件来实现. 先学习一下VBA中操作XML的方法 先引用Microsoft XML V6.0,对应的文件是msxml6.dll.前期绑定,方便使用智能提示. 一.DOM方式创建一个XML文件:内容是自定义Ribbon的一个简单框架.文件保存在桌面. Sub CreateXmlFile() '创建文档对象模型 Dim xmldoc As New DOMDocument '创建根节点,
Sub test() ' Dim s As Collection '定义s变量为集合对象 ' Set s = New Collection '初始化集合对象s (否则无法使用) Dim s As New Collection '推荐这句代码,直接初始化,可以不用再Set了 '集合s中添加元素的方法 s.Add i '对于集合s,用Add方法可以加入集合元素 '当然事实上你可以添加任意内容来代替本例中的i Next '读取集合中元素的方法 To s.Count '可以用Count属性返回集合中元素
Visual Basic for Applications 宏语言 打开VB编辑器 首先打开Excel,组合键Alt+F11 加载宏 找到相应的宏,点击"执行" 举例 Sub 评分() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(i, 2).Value '取得成绩 If t >= 90 Then j = "A" ElseIf t >= 80 Then j = "B" Els
multiple. select列表多选 触发事件后调用有参数的函数要先创建一个函数,然后在函数内调用执行函数 Array.from(伪数组):伪数组变为真数组 indexOf():查询字符的索引 a) indexOf(‘abcde’) i. indexOf(‘a’)的索引是0 ii. indexOf(‘abc’)的索引是0,按照第一个字符的索引 iii. indexOf(‘ac’)的索引是-1,查找不到ac连续的字符 iv. indexOf(‘f’)的
1.正则表达式失灵(excel2016) 案列:提取一段字符串中数字并求和 Function sumnum(x) Dim regexp As Object Set reg = CreateObject("VBAScript.RegExp") 'Dim reg As New regexp Dim s, n, m With reg .Global = True .Pattern = "\d*\.?\d*" Set n = .Execute(x) For Each m I