Function Desc(ProdNum) Desc = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 2, 0) End Function Function DAdded(ProdNum) DAdded = Application.WorksheetFunction.VLookup(ProdNum, Range("myTable"), 3, 0) End Function Fun…

MongoDB的内部构造<MongoDB The Definitive Guide> MongoDB的官方文档基本是how to do的介绍,而关于how it worked却少之又少,本人也刚买了<MongoDB TheDefinitive Guide>的影印版,还没来得及看,本文原作者将其书中一些关于MongoDB内部现实方面的一些知识介绍如下,值得一看. 今天下载了<MongoDB The Definitive Guide>电子版,浏览了里面的内容,还是挺丰富的.…

上篇博文中,小爬曾多次为VBA字典带货.鼓励多用字典,可以让我们的VBA脚本工具执行更快.今天小爬来细聊一下VBA字典的具体应用!如果你有一定VBA基础,那么看完你一定会对VBA字典有全新的认识:如果你还是这方面的新手,也不影响点赞收藏哈. 字典,其实就是一些"键-值"对.使用起来非常方便,有类似于微型数据库的作用,可用于临时保存一些数据信息.在很多其它编程语言里,我们也常称它为MAP. 我们先来简单看下字典如何创建,又具备哪些属性和方法. 一.字典的创建,用的是WSH引用 Dim m…

此贴原转自EH论坛,我自己有所修改 [编者按]速度是程序设计永恒的热门话题,虽然速度技巧在各种语言之间可以相互借鉴,但差别有时也会很大,比如VC中由于字符串的存储方式决定了判断空串使用len函数更快,同样,由于C内置了大多数API函数,使用API函数速度也会更快.此外,从不同的角度,往往也会产生或得出截然不同的效果和取向,凡此种种,要求程序人员在实际应用时要灵活对待,没有绝对的可以或不可以.这里收集了一些最为常用的提速技巧,谨供大家参考. 一.让代码“专注”运行 1．Application.Sc…

Excel VBA数组入门教程 1. 前言:不要把VBA数组想的太神秘,它其实就是一组数字而已. 2. 数组的维数: Sub 数组示例()  Dim x As Long, y As Long  Dim arr(1 To 10, 1 To 3)  '创建一个可以容下10行3列的数组空间  For x = 1 To 4    For y = 1 To 3       arr(x, y) = Cells(x, y)  '通过循环把单元格区域a1:c4的数据装进数组中    Next y  Next x…

VBA的确是个很不错的编程工具,寄生在OFFICE内,无需安装庞大的开发环境,即开即用,方便灵活,能实现的事情也很多,但毕竟VBA是微软停止更新维护将近20年的一种语言,计算机的世界发展速度有多快大家有目睹,今天抛砖引玉,拿几个加密类函数来讲说一下VSTO较VBA开发的一些优势所在. 文章出处说明 原文在简书上发表,再同步到Excel催化剂微信公众号或其他平台上,文章后续有修改和更新将在简书上操作, 其他平台不作同步修改更新,因此建议阅读其他出处的文章时,尽可能跳转回简书平台上查看. 题外话 本…

谈起Excel的函数,有一个函数生来自带明星光环,在表哥表姐群体中无人不知,介绍它的教程更是铺天盖地,此乃VLOOKUP函数也.今天Excel催化剂在这里冒着被火喷的风险,大胆地宣布一个比VLOOKUP更好用更易用的自定义函数诞生,有它之后,VLOOKUP可减少50%以上的使用频率,性能某些场景上较VLOOKUP更强悍,运算速度数倍于VLOOKUP. 文章出处说明 原文在简书上发表,再同步到Excel催化剂微信公众号或其他平台上,文章后续有修改和更新将在简书上操作, 其他平台不作同步修改更新,因…

在活动中,我们常会有抽奖,抽奖箱准备繁琐,现在多采用线上抽奖方式,下面用Excel VBA写了一个简单的抽奖小程序 简单测试效果如下,可实现: 多次抽奖,且每次抽奖都不重复 抽奖界面滚动人员信息,点击抽奖按钮锁定中奖人员 中奖人员信息在右侧公示区域展示,最新中奖人员展示在最上方 设置了一部分误点.误操作提示,以及抽奖完成提示等 做了一个抽奖简单演示,演示GIF如下: 实现代码如下,按需自取,转载请备注出处: '申明Flag.d.e三个模块变量,跨进程引用,实现滚动和抽奖数据传递 Dim Flag…

1. Range / Cells / Columns / Rows 2. 绝对引用 $F$13 / 相对引用 F13 公式所在单元格的被复制到其他位置时,绝对引用不变 3. VLookup / NLookup / LLookup 4. =if(ISNA(C1:C17); "There are #N/A's in one of the cells"; "") other similars: ISERROR(), ISERR(), ISBLANK(), ISEVEN()…

今天遇到一个任务,要把excel中的相同行合并:没有找到直接的办法(vlookup大概能做),试了试VBA挺好用 数据结构 第一.二列是描述字段,第二列元素唯一:第三到第八列是标志位 任务 合并描述字段相同的行,描述字段不变,标志位合并 方法: 1.录制空宏(命名为test1),查看宏进入VBA编辑器模式 2.代码 Sub test1() Dim i As Integer Dim j As Integer i = 2 '跳过标题行 ).Value <> "" ).Value…