用excel处理数据的时候,无论是使用VBA还是函数,查找和引用都是两大主要的工作,VBA中的find系列的方法(find.findnext.Range.FindPrevious)返回range对象,可以同时实现查找和引用,因此非常有用,下面列举一些常见的find的用法: Sub Find1() '在某列查找 Dim k k = Range("A:A").Find("A").Row MsgBox k End Sub =========================

在VBA中做了一个比较体积,如果体积相似就显示隔壁单元格的内容 Function VC(a, b As Range) 'VolumeCompare体积比较 Dim arry() As Variant Dim i, c, d As Integer Dim kmin As Double Dim kmindex As Variant arry = b.Value c = UBound(arry, 1) '区域的行数 d = UBound(arry, 2) '区域的列数 kmin = 1 ‘初始化最小值

Sub 找出选定范围内不重复的值() On Error Resume Next Dim d As Object Set d = CreateObject("scripting.dictionary") For c_i = 1 To selection.Columns.Count For Each ce In selection.Columns(c_i).Cells 'd.Add ce.Value, 1 If ce <> "" Then 'D(ce.Val

Search your pc for MSCOMCTL.Ocx. If you find it then register it by clicking on Windows Start Button ~~> Run and then typing this text and pressing Enter regsvr32 C:\Windows\System32\MSCOMCTL.Ocx I am assuming that the ocx is in C:\Windows\System32 I

一直以来,ArcGIS10.1 的VBA安装后,菜单栏里也没相关菜单,听说是许可的问题,直到遇到这个问题才知道真正的原因. 由于项目需要使用了ArcGIS10.0, 不知道操作了什么,打开ArcMap就报这个错: 于是尝试去百度上搜索VBA安装包,居然没找到,然后又去桌面安装包里去找,找到了SDK VBA,安上就对了. 安装好这个VBA菜单也可以看得到了. 参考: http://blog.csdn.net/sydbc/article/details/17173833

Excel里使用VBA对已经合并的单元格添加注释,直接使用AddComment会报: 运行时错误 '1004':应用程序定义或者对象定义错误 找了很多文章都没找到怎么解决,最后发现在AddComment之前,先ClearComments一下,就好了 Excel using vba to add comment to a merged cell if occur runtime error 1004, before invoking addcomment, first  invoke ClearC

.Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 '指定数组的第一个下标为 1 .On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息 .On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 . '恢复正常的错误提示 .Applicat

VBA是一种强大的编程语言,可用于自定义Microsoft Office解决方案.通过使用VBA处理一个或多个Office应用程序对象模型,可以容易地修改Office应用程序的功能或者能够使两个或多个Office应用程序协同工作以完成单个应用程序无法完成的任务.然而,使用VBA仅能控制操作系统的一小部分.Windows API提供了控制操作系统绝大多数方面的功能.下面,介绍在VBA中使用Windows API的一些知识. 理解APIs API只是一组函数,可用于处理组件.应用程序或操作系统.通常

来吧!带你玩转 Excel VBA 从错失良机到艰辛的DOS征程,从坎坷购机自学路到转机起程,从爱好到事业,他从一个完全不懂电脑的人到VBA高级应用者,一切全是自学…… 我是罗刚君,来自四川的一个小县城——资中县. 我是个地道的三无人员——无高等学历(初中毕业).无突出特长.无显赫背景,所以1996年1月,当时才19岁的我就踏上了打工之路. 错失机遇 在打工生涯的前几年,一直在东莞市裕元鞋厂流水线上工作,无缘接触电脑,甚至曾有一段时间在心理上抵触电脑. 记得大概是1998 埗 年时,东莞市高 镇

---恢复内容开始--- 在说这个话题之前,我先解释一下为什么要加数字证书签名,它有什么作用,后面再解释如何添加.首先解释下证书添加的位置,如下图所示: 1.单击左上角的Office 按钮,选择右下角的Excel选项.

昨日同事有需求,想知道每个商品第一次销售的月份,以及最后一次销售的月份. 本想通过什么excel函数来解决,但是找了半天也没找到合适的,最后还是通过VBA来解决吧. 使用方法: Excel工具-宏-Visual Basic编辑器 在左侧栏中点右键, 插入-模块 然后输入: Function Last0(ByVal Int_Row As Integer) As Integer Last0 = Last0 = Last0 - Loop End Function '这里需要注意的是 函数的返回值貌似是

工作的需要,有时会对EXCEL数据进行处理,比如格式化,有数据的单元格画横线. 最初,傻傻的,直接用个循环从第1行,一直往后找,判断是否为空,真傻. Function FindLastCell() Dim i As Long For i = 1 To 65536 If Cells(i, 1).Value = "" Then Exit For End If i = i + 1 Next FindLastCell = i-1 End Function 后来用CTRL+END,然后录制宏,终

[vim之vba文件] Vimball 官方描述: The vimball plugin facilitates creating, extracting , and listing the contents of “vimball” archives (*.vba). 滇狐评价: 非常棒的一个插件, 专门用来安装其它插件的. Vimball 格式的插件安装方便, 只需用 Vim 打开, 执行一下 :so % 即可, 无须用户自己满世界找插件的安装路径, 更无须整天想着更新 helptags.

近来,越来越多的朋友被“找不到工程或库”的错误所烦恼,所以决定新开一帖来聊聊此问题! QUOTE: 一般情况下,出现此错误是因为找不到引用工程,或找不到与工程语言对应的引用的对象库 出现此类错误可以根据下面操作解决: QUOTE: 1.在VBE窗口中选择出错的VBA工程2.在“工具”-->“引用”,打开引用对话框3.查找带勾项中含“丢失...”.“找不到...”.“MISSING...”的条目,并取消勾选! 3.1一般情况下,用第3步即可解决,如问题依旧,请在“可用的引用”中查找并勾选与丢失的条

VBA取得EXCEL表格中的行数和列数 初学EXCEL宏的童鞋,总是很想知道表格中含有数据的行数和列数,尤其是行数和列数不确定的情况下.这样可以避免很多的错误,并且可以提高效率.但每次用到的时候到网上查找时,总是给了很多无用的答案,往往找不到想要的结果.笔者也是每次使用时,临时查找总是很头疼.偶然发现一篇博客,上面详细记录了不同的方法,笔者测试了几种发现真的很好用.本着分享万岁的精神,将博客内容共享出来.希望对大家有所帮助. 来源:http://www.okexcel.com.cn/bbs/vi

Excel中的函数无疑是强大的,但是再强大的战士也有他脆弱的脚后跟[1].这两天在使用Excel的时候遇到了一个需求,要在某一个单元格里面自动计算今天是星期几(如显示 Today is Tuesday).本来以为Excel会有相应的函数,但是找来找去也没有找到,只有WEEKDAY可以返回今天是本周的第几天,是个数字.于是写下了一个奇怪的公式 ="Today is "& WEEKDAY(TODAY(),2),计算结果是”Today is 2”. 这可真够2的! 遇到问题就要想办法

---恢复内容开始--- 转一个Excel VBA的小游戏,最近对excel有了更深入的了解,功能很强大,也刷新了我对待事情的态度. 一.准备界面 我们先来把游戏界面准备好,选中前4行,行高调成50,这时候单元格就近似一个正方形.然后给4*4的单元格加上全部框线,再加粗外框线.字体改成微软雅黑,加粗,居中.第6行A列写上SCORE,C列写上MOVES,都加粗. 一般2048这样的游戏需要用状态机来实现,就是程序无限运行直到游戏结束.在Excel中这种方法不太合适,使用工作表自带的Workshee

本文主要内容: Oracle环境配置 ODBC驱动设置.第三方驱动下载 VBA连接Oracle连接方法 Oracle10g官方免账号下载地址 系统环境: Windows 7 64bit Excel 2016 64bit Oracle_win64_11gR2_client完整客户端(64bit) 1. VBA连接Oracle前的环境配置 如果想连接本地数据库,必须先安装Oracle服务器端. 我这里使用的是内网其他电脑上的Oracle数据库,这里只安装Oracle客户端就可以. 1.1 安装Ora

本文参考[东围居士]的cnblog博文  Excel.VBA与MySQL交互  在自己机器上调试成功,把调试中遇到的问题一并写出了. 本文主要涉及: VBA中的MySQL环境配置 VBA连接MySQL数据库 VBA读写MySQL数据 在Excel中连接MySQL数据库及数据读写 系统环境: Windows 7 64bit Excel 2016 32bit WAMP(3.0.6 32bit)集成的MySQL版本为5.7.14 1. VBA连接MySQL前的环境配置 如果想连接本地数据库,必须先安装

写在前面: .编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结合常用窗口进行编写.调试. .部分对象有提示,如Dim a As,敲击空格后有提示. .所有宏要运行,必须启动宏.(2007版启动宏,点击表格左上角 “excel选项” “信任中心” “信任中心设置” “启用宏”) .“无法在未启用宏的工作簿中保存以下功能”提示,选是后,宏会整个丢失. 2007版,

为了控制Excel,学了些VBA,总结下语法,下文分为五部分: 一.代码组织 二.常用数据类型 三.运算符 四.控制流 五.常用内置函数 一.代码组织 1.能写代码的地方有{模块,类模块}. 2.代码中可以写的成员有{变量和常量,过程和函数}.对成员的访问修饰符有{public,private} 3.写注释的方法有{以单引号开头,以REM开头}. 4.变量和常量声明的格式如下 变量 Dim <variable> As <type> 可以不声明,直接赋值使用 常量 Const <