2024年10月26日

mctrlgrid用法

摘要：摘抄自己以前写的一段代码展示如何在visualfreebasic里使用mctrlgrid. Sub Form1_Shown(hWndForm As hWnd,UserData As Integer) Dim hdr(3) As String={"中","日","俄","欧"} Dim arr(1,3 阅读全文

posted @ 2024-10-26 13:51 fan2006 阅读(6) 评论(0) 推荐(0) 编辑

2022年9月15日

wps js宏进行数据匹配

摘要：其实就是对数据源进行vlookup数据查询。下图A-E列为详细数据，H列为需要进行vlookup查询的数据。匹配不到保留下来并保持空项。代码如下,数组arr是需要进行查询的数据，brr则是查询来源的数组。结果写进了sheet2. function 匹配数据(){ let sht=Sheets.It 阅读全文

posted @ 2022-09-15 12:05 fan2006 阅读(1674) 评论(0) 推荐(0) 编辑

2022年9月10日

wps js宏制作工作表目录

摘要：制作目录是通过Hyperlinks.Add添加超链接。主要思路是构造工作表索引的连续数字通过map获得表名。效果如下图：代码： function 制作工作表目录(){ var arr=Array.from(new Array(Sheets.Count+1).keys()).slice(2).map 阅读全文

posted @ 2022-09-10 15:09 fan2006 阅读(583) 评论(0) 推荐(0) 编辑

2022年9月7日

vfb导出excel里的图表为本地图片

摘要：主要是为了做个记录。 #include Once "Afx/AfxWin.inc" Dim As CObject xl = CreateObject("Excel.Application") Dim As CObject wkb = xl.Get("Workbooks") Dim As String 阅读全文

posted @ 2022-09-07 14:03 fan2006 阅读(150) 评论(1) 推荐(0) 编辑

2022年9月5日

扩展wps js宏对com对象的操作

摘要：用exceldna封装了一个Eval函数，调用的是ms的jscript,没有什么ribbon界面,就一个函数.主要用于在wps的js宏里面在com对象操作上做一个补充吧。在网络和本地操作方面束手无策的时候可以换条路试试。下面展示一下运用。 function comobject(){ var s=`v 阅读全文

posted @ 2022-09-05 11:34 fan2006 阅读(2565) 评论(1) 推荐(0) 编辑

2022年8月29日

jsa整理数据

摘要： wps对数据进行连接合并整理。如下图：代码1： function zip(...args){ let res=[], idx = 0, len = Math.max(...args.map(x => x.length)); while (idx < len){ res[idx] = args.ma 阅读全文

posted @ 2022-08-29 17:11 fan2006 阅读(194) 评论(0) 推荐(0) 编辑

2022年8月12日

初试twinbasic

摘要：以前玩了蛮久的vba,最近关注了一下twinbasic这门语言。今天来尝试一下。虽然目前还有很多不完善的地方，但作者更新很频繁。而且用用还能做点东西出来。作者是用webview2来开发ide的,说实话,反应不是那么快，但是看起来还是比较炫。首先我们来看一下整个界面：整个窗口布局比较现代化。我们可阅读全文

posted @ 2022-08-12 21:46 fan2006 阅读(2192) 评论(2) 推荐(1) 编辑

2021年4月12日

freepascal获取进程列表

摘要： program ProcessesList; uses Comobj; var Wmi,Obj,Objs: OleVariant; i,ProcessTotal:Byte; begin Wmi:= CreateOleObject('WbemScripting.SWbemLocator'); Objs 阅读全文

posted @ 2021-04-12 10:31 fan2006 阅读(103) 评论(0) 推荐(0) 编辑

2021年3月10日

vba给图片添加logo

摘要： vba调用windows image acquisition（wia)库实现给图片添加logo.除了调用vba里面专属的Application.PathSeparator和ThisWorkbook.path,去掉就能给vb6和vbs用了。代码： Sub addlogo() Dim logo As 阅读全文

posted @ 2021-03-10 22:01 fan2006 阅读(459) 评论(0) 推荐(0) 编辑

2021年3月2日

wps中开始支持javascript了

摘要：在wps最新的测试版中支持开始撸javascript了。今天测试了一下，结果还行。目前主要问题是不知道怎么调用第三方js库。也没看到什么相关的官方文档。如果不做设置的话，wps每次启动时候会默认进入到vb宏模式. 这时候你需要点击开发工具选项卡上的“切换到js宏”选项才能进入js宏模式。如果你想阅读全文

posted @ 2021-03-02 10:44 fan2006 阅读(15296) 评论(2) 推荐(1) 编辑