起因 几个月前，我在寻找一款时间管理软件，类似番茄时钟的工具，但是希望可以自定义时间。 需要自定义的场景 做雅思阅读，3篇文件需要严格控制时间分配，需要一个灵活的计时器 定期提醒，每30分钟需要喝水或者上个厕所或者摸一下鱼... 总结起来就是：专注一段时间，比如30分钟，然后休息10分...[2024/6/5]

       继续上次的代码整理，此应用主要是一个VB6开发的颜色取色器，简单的界面，能够直接将屏幕上的颜色进行获取，该应用是笔者以前编写的代码，这次开源出来了。   　　1、 项目目录；  　　  ...[2024/3/29]

在学习或者日常工作中，有时我们需要把幻灯片的东西整理成文字，而从 PowerPoint 演示文稿中一张一张的整理手动复制粘贴，整个过程会非常费精力且耗时。那么怎么样才能比较轻松且快速地提取PowerPoint中的文字呢?今天这篇文章就将为你介绍如何通过编程方式提取PowerPoint中的文字，文...[2023/5/29]

在日常工作中，我们有时会需要修改字体的颜色来突出文本重点，让读者更容易抓住文章要点。在今天这篇文章中，我将为大家介绍如何以编程方式，在Word更改字体颜色。本文将分为两部分分别介绍如何实现此操作。以下是我整理的步骤及方法，并附上C#/VB.NET代码供大家参考。 更改段落字体颜色 更改特定文...[2023/2/17]

目录引入dll嵌入多媒体文件主要代码步骤解析嵌入效果后的文档效果注意事项 引入dll 1.通过NuGet安装dll（2种方法） 1.1可以在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理NuGet包”，然后搜索Free Spire.Doc安装。 1....[2021/12/8]

概要 VBA 的应用场景基本都还是在单机应用, 随着 Web 应用的风靡, 以及浏览器越来越强大, 单机类的应用逐渐没落. 虽然 Web 应用越来越多, 功能和体验也越来越好, 但是 Excel 依然有很强的生命力, 毕竟 Web 页面上的表格再强大, 也没有 Excel 那么方便易用...[2019/10/10]

概要 对于一般的 VBA 程序来说, 可能一个或几个函数就行了. 毕竟, VBA 只是作为 excel 的辅助工具来用的. 但是, 随着 VBA 写的越来越多, 用个工程来管理就有必要了, 而一个代码工程的基础, 就是 函数 和 模块. 函数 VBA 的中的函数有 2 种, 一种是 ...[2019/10/8]

https: www.proce on.com/view/link/5d974da6e4b07a0a4d4a098a 原文链接：http: www.cnblogs.com/qq417902579/p/11632600.html[2019/10/8]

将多个工作表中的内容合并到一个工作表的B列之后，并且A列为表名 完整程序 Sub HeBing() Dim CProw Dim Endrow Dim i Dim n Application.ScreenUpdating = False For i = 1 To Sheets.C...[2019/9/26]

For Append As： Open "1.txt" For Append As #1Open "1.txt"就是打开名为1.txt的文件For Append就是追加的意思，也就是在原有文件内容的后面增加新的内容As #1是把打开的文件标识为一个句柄#1，用于后面的代码对这个文件进读写行操作...[2019/3/6]

 在很多工作中，经常需要写一些类似的报告，使用同一个模板，只是里面的数据不同，人工操作工程量大且容易出错，如果能用程序直接实现可以省去不少麻烦。  本文使用ExcelVBA实现，主要思路是使用word邮件合并功能，将word文字报告与Excel数据链接，不太了解邮件合并功能的...[2019/1/31]

返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。 语法 Dir[(pathname、 [属性])]   Dir 函数语法具有以下部分： 部分说明 pathname 可选。 字符串表达式，指定一...[2019/1/10]

删除磁盘上的文件。 语法 Kill 路径名 所需的_路径名_参数是一个字符串表达式，指定要删除的一个或多个文件名。 _Pathname_可能包括驱动器和目录或文件夹。 例子删除当前路径下的TXT文档 Sub Killtest() Kill ThisWorkbo...[2019/1/10]

重命名磁盘文件、目录或文件夹。 语法 Name 旧路径名称 As 新路径名称   “Name”**** 语句语法包含以下部分： 部分说明 旧路径名称 必需。 字符串表达式，指定现有的文件名和位置;可能包含目录或文件夹，和驱动器。 ...[2019/1/10]

一、检验函数 =IF(LEN(A1)=18,MID("10X98765432",MOD(SUMPRODUCT(MID(A1,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1)=RIGHT(A1))----18位校验 二...[2019/1/9]