- 初中三年级
- 2220985
- 396
- 0
- 522 朵
- 2506 个
- 334 个
- 480
- 2013-10-27
|
1#
t
T
发表于 2015-04-10 15:47
|
|只看楼主
自动化办公利器——懒人办公插件 本文由按键学院提供技术支持
按键学院交流群(1群已满):376122403 零基础学按键精灵群(2群):372671254
这几天有一些小白用户一直来问小编如何能够实现在表格里插入图片的功能,按键自带的办公插件能力实在有限,要怎样才能表格内容丰**呢? 按键精灵除了在游戏领域,其实在办公领域也能发挥很大的作用,特别是数据统计录入分析之类的。一些商业作者是专门接办公脚本的定制的,并且有可能会接到企业级别的定制需求,这样看来办公类脚本实在是 “钱”途无量啊 | 插件介绍懒人办公插件可以说是按键精灵办公领域里第三方插件的佼佼者。它包含了丰富的表格和文档以及Access 数据库处理的命令,基本上表格上需要的操作都能通过懒人插件来实现。比如:读取和写入单元格内容,根据条件筛选所需要的内容,在表格里插入图片、超链接,执行宏命令等等功能。 |
学院院刊之前也有对这个插件做了简单的介绍: 【院刊】-【201409期】表格处理能手(懒人办公插件)这次小编就通过编写一些函数来给大家了解下插件的具体应用↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓命令介绍 命令名称: | ExcelOpen | 命令功能: | 打开EXCEL文档,若EXCEL已经手动打开,则本命令仅返回操作所需的索引值而不影响表格 | 命令参数: | 【参数1】EXCEL完整路径 【参数2(可选)】打开方法,0不可见,1为可见。默认为0 【参数3(可选)】打开权限密码,无密码则不需填写 【参数4(可选)】修改权限密码,无密码则不需填写 【参数5(可选)】设为1以只读模式打开 | 返回值: | 索引值,本插件对多个EXCEL进行操作时需要。索引值为从1开始计数的正整数 |
命令名称: | ExcelColumns | 命令功能: | EXCEL列操作 | 命令参数: | 【参数1】整数型的标签索引号或者字符串型旧的标签名称 【参数2】操作范围 【参数3】操作对象,可填的项目包括 "水平对齐", "垂直对齐","自动换行","缩小字体填充","合并单元格", "拆分单元格","字体","字形","字号" ,"字体颜色", "背景颜色", "行高" , "列宽" , "删除线","清除", "删除", "插入","隐藏”,"精确查找" ,"模糊查找" ,"复制" ,"格式" 【参数4(可选)】操作内容,对应不同的操作对象,本处可填写的内容各不相同 【参数5(可选)】索引值 ,如果只用本插件打开了一个EXCEL,则可以留空
| 返回值: | 索引值,本插件对多个EXCEL进行操作时需要。索引值为从1开始计数的正整数 |
命令名称: | ExcelRead | 命令功能: | 读取单元格内容 | 命令参数: | 【参数1】工作表页,可用整数型数值表示是第几个工作表标签,也可用字符串型的标签名称 【参数2】行,整数型 【参数3】列,整数型数值表示是第几列,或者直接使用列名称 【参数4(可选)】索引值 ,如果只用本插件打开了一个EXCEL,则可以留空
| 返回值: | 索引值,本插件对多个EXCEL进行操作时需要。索引值为从1开始计数的正整数 |
命令名称: | ExcelCells | 命令功能: | EXCEL全表操作 | 命令参数: | 【参数1】整数型的标签索引号或者字符串型旧的标签名称 【参数2】操作对象,可填的项目包括 "水平对齐", "垂直对齐","自动换行","缩小字体填充","合并单元格", "拆分单元格","字体","字形","字号" ,"字体颜色", "背景颜色", "行高" , "列宽" , "删除线","清除", "删除", "插入","隐藏”,"精确查找" ,"模糊查找" ,"复制" ,"格式" 【参数3(可选)】操作内容,对应不同的操作对象,本处可填写的内容各不相同,详见下面参数说明中的对照表 【参数4(可选)】索引值 ,如果只用本插件打开了一个EXCEL,则可以留空
| 返回值: | 所有可以设置的操作对象,均可尝试将值设为空字符串("")以获取状态返回值 操作对象为"精确查找”或"模糊查找”时返回数组,第一个元素为找到的个数,其后为位置
|
命令名称: | ExcelPicInsertEX | 命令功能: | 选定区域插入图片(自动调节图片大小) | 命令参数: | 【参数1】工作表页,可用整数型数值表示是第几个工作表标签,也可用字符串型的标签名称 【参数2】图片左上角单元格,格式如"A1" 【参数3】图片右下角单元格,格式如"A1" 【参数4】图片路径 【参数5(可选)】索引值 ,如果只用本插件打开了一个EXCEL,则可以留空
| 返回值: | 返回插入图片的索引值 用此命令插入的图片,位置大小跟随设定的单元格变化
| 实例应用范例1这个函数功能是自动把相应的图片插入到表格中,并且可以对图片进行一些备注信息 参数说明: 行, 列:表示需要在第几行插入图片。 图片路径:表示需要插入的图片的路径 附带信息:表示要给图片备注什么信息 文档路径:表示需要编辑的文档的路径 范例:Call 插入图片(3, 3, "c:\11.jpg","这是截图","C:\测试.xlsx") 表示在 测试.xlsx 文档中的第3行第3列的位置插入11.jpg图片 |
- Function 插入图片(行, 列, 图片路径,附带信息,文档路径)
- index = Plugin.LazyOffice.ExcelOpen(文档路径, 0)
- If 列 = 1 Then //如果列数为1,则会在从第二列开始插入图片,给左边留出一列填入附带信息
- aa = Plugin.LazyOffice.LocToAdd(行, 列 + 1)
- //设置全表格居中对齐
- Call Plugin.LazyOffice.ExcelCells (1,"水平对齐", "居中", index)
- Call Plugin.LazyOffice.ExcelCells(1, "垂直对齐", "居中", index)
- // 下面的行高和列宽的数值可以根据自己的图片的大小进行设置
- Call Plugin.LazyOffice.ExcelRange(1, aa, "列宽", 50, index)
- Call Plugin.LazyOffice.ExcelRange(1, aa, "行高", 170, index)
- //在指定的单元格内插入图片
- Call Plugin.LazyOffice.ExcelPicInsertEX(1, aa, aa, 图片路径)
- //在图片的左侧单元格内写入附带的信息
- call Plugin.LazyOffice.ExcelWrite (1,行,列-1,附带信息,index)
- Else
- aa = Plugin.LazyOffice.LocToAdd(行, 列)
- Call Plugin.LazyOffice.ExcelCells (1,"水平对齐", "居中", index)
- Call Plugin.LazyOffice.ExcelCells (1,"垂直对齐", "居中", index)
- Call Plugin.LazyOffice.ExcelRange(1, aa, "列宽", 50, index)
- Call Plugin.LazyOffice.ExcelRange(1, aa, "行高", 170, index)
- Call Plugin.LazyOffice.ExcelPicInsertEX(1, aa, aa, 图片路径)
- call Plugin.LazyOffice.ExcelWrite (1,行,列-1,附带信息,index)
- End If
- Call Plugin.LazyOffice.ExcelClose(index)
- End Function
复制代码 范例2这里是已下面图中所示的图表为例子,咱们来做一个通过搜索指定的装备名称,从而获取到指定的装备信息的函数。 - 您所在的用户组无法下载或查看附件
这个函数支持精确查找和模糊查找装备名称,最后的结果会返回数组,数组里存放的是指定的装备信息。 参数说明: 装备名称:输入想要查询的装备名称 装备信息:表示想要查询装备的哪些信息,可以同时查找多条信息,不同信息之间用“|”竖线隔开 。 查找方式:0表示使用精确查找,需要输入装备的精确名称;1表示模糊查找,可以只输入装备部分名称来查找所有符合条件的装备 范例:Call 搜索("暗影剑", "属性|获得途径",0)
|
- Function 搜索(装备名称, 装备信息,查找方式)
- patch = "C:\Users\Administrator\Desktop\世界RPG装备大全_v1.5.xls" //需要读取的文档的路径
- index = Plugin.LazyOffice.ExcelOpen(patch, 1)
- //设置查找的方式,精确查找和模糊查找
- If 查找方式 = 0 Then
- 查找方式 = "精确查找"
- ElseIf 查找方式 = 1 Then
- 查找方式 = "模糊查找"
- End If
- myarry = Plugin.LazyOffice.ExcelColumns(1, 1,查找方式, 装备名称) //按照条件查找列,返回的是数组
- //循环遍历查找到的符合条件的每一行内容
- For j = 1 To UBound(myarry)
- 行 = myarry(j)
- 装备名称 = Plugin.LazyOffice.ExcelRead(1, 行, 1)//读取查找到的符合要求的装备名称
- // 查找符合要求的装备信息
- If instr(装备信息, "|") 为了方便童鞋们测试这个函数的效果,可以点击下载这个表格:
- 您所在的用户组无法下载或查看附件
谢谢大家阅读,记得给小编送支花花 ! 顺手点个赞
[tr=rgb(143, 188, 143)] | 按键精灵安卓班(第一期)大肆招生啦~ | 回实战班:回合制通用教学火热报名 | 招生对象:零基础用户,快速学会按键精灵安卓版 招生人数:70人 【报名时间】:3/18——4/6 【学费】:128RMB 【学习日期】:1个月(2015.4.6-2015.4.27) 【上课时间】:周1、周3、周5 19:30--21:30 【上课导师】:梦幻小飞侠 【实战游戏】:[天天富翁]、[三国之刃]、[梦幻西游]、[天 龙 八 部]
| 本期重点:回合制游戏--神武 学习时效:终生有效 上课时间:周2、周4、周6的 20:00--22:00 导师:工程师07 技术支持:果儿(院刊编辑) | 点我进入按键学院报名啦 招生细节进群咨询招生办主任:2群-372671254(优先加入) 1群-376122403 |
|