sheet1 格式 Sub 统计人数() 'A为号码C姓名 D时间 Dim j As Integer j = 1 For i = 2 To 100000 Step 1 If Range("a" & i).Value <> Range("a" & i + 1).Value Then j = j + 1 Sheets("sheet3").Range("a" & j).Value = Range(…

Sub SubtotalPickFile() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Dim firstday As Date, lastday As Date Dim Wb As Workbook Dim Sht As Worksheet Dim oSht As Worksheet Dim Dic As Object Dim d As Object Set d = CreateObject("…

前言 上周末,XX给我抱怨:因为计算绩效奖金,把2个人的工资发错了,还被扣了500元.问的缘由得知,她每个月要处理十来个excel表格,每次都要手动修改里面的值,如果修改了一处,其他地方也要修改,然后还要多处地方核对.导致光这件事情就要消耗三四天,伤神费力. 我就问她,整个是不是都是机械性重复的工作,如果是的话,完全可以用电脑来代替.然后我就帮她找工具来优化她的工作,减少出错机会. 现状 目前他们公司总共有四五十人: 需要整理的excel有12份: excel间有很多重复数据,同样的数据存在在多…

VBA 格式化字符串 VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数 TEXT ,以下是本人归纳的几点用法,希望对学习VBA有所裨益.Format(值,格式(可选参数))一.数字格式:1.General Number:普通数字,可以用来去掉千位分隔号和无效 0 .如:Format("1,234,567.80", "General Number")="1…

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()…

打算花两三天学习VBA的基础,学习资料为<别怕,VBA其实很简单>,为了快速学习,先了解大致框架,后续再深入学习各种属性.方法和技巧. 1.VBA编程环境基本操作,手工操作,熟悉即可 2.了解过程:Sub(对应宏)和Function(对应函数) Sub过程对应手工录制的宏代码,是一堆操作的集合 Function过程是Excel的函数代码,我们可以自己编写,然后再窗口界面调用 要注意,Excel界面的函数和VBA的内置函数是不同的!Function编写的就相当于Excel的界面函数 3.VBA的…

VBA实际上就是操作Excel,把Excel进行拆解,划分多层对象,由顶至下为(也可以说是层层包裹): Application:代表Excel程序本性,之后我们操作对象都在它之下,因为是唯一且至高点,所以代码中可以忽略不写它,因为必定是它的. Workbook:代表一个工作薄,加个s后的Workbooks代表当前打开的所有的工作薄. Worksheet:代表一个工作表,加工s后的Worksheets代表当前工作薄的所用工作表. Range:可以理解为一个工作表中的工作范围.同等级的还有Rows和…

'================================ ' VBA采用Application.OnTime实现计时器 ' ' http://www.cnhup.com '================================ Public RunWhen As Double ' two minutes Public Const cRunWhat = "TheSub" ' the name of the procedure to run Sub StartTimer…

考勤系统主页的布局用的是easyui的Layout控件 Layout:布局容器有5个区域:北.南.东.西和中间.中间区域面板是必须的,边缘的面板都是可选的.每个边缘区域面板都可以通过拖拽其边框改变大小,也可以点击折叠按钮将面板折叠起来.布局可以进行嵌套,用户可以通过组合布局构建复杂的布局结构. <div id="cc" class="easyui-layout" style="width:600px;height:400px;"> &…

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

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

今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值,我想了想虽然Excel中自带查找重复值的功能,但是好像只能对同一列进行比较,所以就写了一个VBA进行处理,VBA非常简单,但效果不错. Sub FindDuplicatesInColumn() Dim lastRow As Long Dim matchFoundIndex As Long Dim iCntr As Long lastRow = ' 初始化临时列, 第7列用来存放结果,第8列将3 5两列的值拼接起…

数据类型 VBA提供了15种标准数据类型,具体见下表: 变量 Sub 变量学习() 'Dim 变量名 As 数据类型 Dim str1 As String '声明定长的String变量 '使用变量类型声明符 Dim str3$ '声明多个变量 Dim Str As String, nu As Integer '如果不指明变量类型,默认为Variant Dim Str End Sub 数据类型 类型声明符 Integer % Long & Single ! Double # Currency @…

开启VBA编程环境--VBE 方法一:按<Alt+F11>组合建 方法二:查看代码 宏设置 当然启用宏的设置方式不同,宏的启动方式也不一样. 首先打开"office 按钮",选择"excel选项"--"信任中心"--"信任中心设置". 进入"信任中心设置"界面后,选择"宏设置",在"宏设置 "中有启动宏的不同方式. 如果选择"禁止所有宏,并不通知…

在工作中,经常会碰到从一堆腐朽的source中按照一个列表去筛选出来现在还要用的source文件. 这个如果用vba来实现的话,会节省大量的时间,而且不会出错. 前提说明: 将想要复制的文件名列表放在第一sheet的第一列,然后执行程序 首先选择源目录和目标目录, 然后会从源目录中查找文件,将存在的文件自动复制的目标目录中, 不存在的文件,记录在第二列里. Sub fileFilter() Dim folderOld As String Dim folderNew As String Dim f…

Appears OK to me but the error message " Cant find project or library." suggests it could possibly be the references in VBA. In VBA select menu item Tools - References. Ensure that the following are checked:- Visual Basic for Applications Micros…

compared all possibilities with a long test sheet: 0,140625 sec for lastrow = calcws.Cells.Find("*", [A1], , , xlByColumns, xlPrevious).row 0 sec for iLastRow = calcws.Cells(rows.count, "a").End(xlUp).row and numofrows = calcws.Cells.S…

使用Excel VBA实现Outlook自动发送邮件 | 在工作上我们都会遇到批量发送邮件的情况,面对重复而规律性的工作,可以使用Excel的VBA实现自动批量化发送邮件.大大减小工作时间,提升工作效率. 工具/原料 Excel Outlook 方法/步骤 打开Excel,将Excel另存为.xlsm(启用宏的文档)格式,如图所示. 生成.xlsm格式的Excel后,在键盘上按Alt+F11,弹出VBA代码编辑器,在当前Excel的文件目录下点击鼠标左键,弹出选择框,选择插入,选取点击模块.如图…

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…

在VB中,属性是可以有参数的,而VBA中属性使用参数非常常见.比如最常用的:Worksheet.Range("A1:A10")  VB的语法,使用参数的不一定是方法,也有可能是属性!(虽然属性的本质是方法) 例一:参数当作"索引"使用 定义一个类模块,模块名称Ints.为简化模型,使用了只读属性. ) As Integer Public Property Get ArrValue(Index As Integer) As Integer ArrValue = arr…

员工准时.正常出勤是企业考勤制度的基本要求,然而目前签名式.卡钟式.IC卡考勤系统均存在代打卡.人情卡.不易统计等漏洞,而市面上的光学指纹考勤机存在识别能力差.识别速度慢.使用寿命短.不能完全杜绝指纹套等弊端,给企业管理增加了难度及成本,进而影响员工的工作效率及企业的经济效益. 如果您还在为如何真实.公平.公正的进行考勤而烦恼,您可以选择华本国际3D活体指纹考勤一体机,让考勤更可靠.便捷.智能. 华本国际企业办公3D指纹考勤系统特点 1. 采用3D活体指纹技术,杜绝一切假.套指模,防止员工之间代…

信息技术的高速发展加速了商业零售业连锁经营的信息化和全球化的进程,同时也推动了商业管理的变革.尽管人们对它的认识是被动与滞后的,但这种变革依然伴随着商业业态的转变和信息技术的发展或快或慢地在悄然进行着.如果没有管理的变革,它将影响商业企业经济效益的稳定与提高,最终制约着企业的生存与发展. 连锁企业发展进程中遇到的这一困惑,其根本点,就是要按照现代管理的发展和管理要求实现对连锁企业各个职能部门的人员考勤管理进行有效的控制,防止其中的漏洞,利用科学.先进的计算机信息管理系统,打造现代人事管理平台,确…

指纹考勤就餐管理系统利用3D活体指纹技术完成对正式员工就餐管理.就餐者只需办理完入职手续,并登记考勤指纹,就可通过考勤指纹在工厂食堂领餐. 大多数工厂食堂就餐是福利性的,只准员工就餐,不准员工带亲戚朋友就餐,这种情况只需在系统参数中设置员工每餐只能领餐一份,领第二份则发出警报声.软件还可按日期.时间段.分厂.部门.个人等不同查询条件,统计出明细表和汇总表,供管理层决策使用. 华本国际工厂食堂3D指纹考勤系统特点 1. 采用3D活体指纹技术,杜绝一切假.套指模,对非本公司员工用餐进行及时监督. 2…

员工准时.正常出勤是企业考勤制度的基本要求,然而目前签名式.卡钟式.IC卡考勤系统均存在代打卡.人情卡.不易统计等漏洞,而市面上的光学指纹考勤机存在识别能力差.识别速度慢.使用寿命短.不能完全杜绝指纹套等弊端,给企业管理增加了难度及成本,进而影响员工的工作效率及企业的经济效益. 如果您还在为如何真实.公平.公正的进行考勤而烦恼,您可以选择华本国际3D活体指纹考勤一体机,让考勤更可靠.便捷.智能. 华本国际3D指纹考勤系统特点 1. 采用3D活体指纹技术,杜绝一切假.套指模,防止员工之间代打卡以及…

什么是VBA?它有什么作用? A.实现Excel中没有实现的功能. B.提高运行速度. C.编写自定义函数. D.实现自动化功能. E.通过插入窗体做小型管理软件. VBA在哪里存放的?怎么运行? A.模块中 在Excel 2010中若没有"开发工具"项,通过"文件"--"选项"--"自定义功能区"--选中"开发工具"--"确定"(图1). (注:为了提高word2010中插入的图片的质…

傻瓜可以写出机器读懂得代码,但写出让人能读懂的代码的是优秀程序员 Sub 填充() Application.ScreenUpdating = False 'ScreenUpdating 是控制你的excel是否按步骤刷新显示宏执行过程,所有单元格同时执行 p = ThisWorkbook.Path & "/" '本文件所在的目录 F = p & "附件1贫困户信息采集表.doc" '本文件的路径 Dim myWS As Worksheet '定义一个…

用程序计算数据,得到不同公司.不同项目的数据结果,最终还要将每个公司的数据结果放在各自的单独文件中.这就需要在vba中新建.保存excel文件.掌握几个东西就能很熟练了:1.要想保存在当前目录下,需要调用thisworkbook.path得到当前文件的目录,得到的就是个string值,如“e:\download”.我通常是先定义一个string变量myPath,然后一上来就myPath=thisworkbook.path进行赋值.2.新建工作簿的代码就是workbooks.add,我通常也是先定…

以前不太会用VBA时,都是在excel中使用函数来计算一些数据.毕竟函数不如代码,效率比较低.所以,就学着怎么在VBA中引用Excel函数.平时我用得比较多的函数就是countif和sumif函数.1.调用不同的excel函数,貌似引用的代码会有差异.有些是直接用Application.min():有些又需要加入worksheetfunction.像countif和sumif都需要加入worksheetfunction来引用.2.引用countif函数就是count=application.wo…

--点坐标X VBA部分: Dim pGeo As IGeometry Set pGeo = [Shape] Dim pPoint As IPoint Set pPoint = pGeo 赋值部分: pPoint.X --点坐标Y VBA部分: 同上 赋值部分: pPoint.Y 坐标值为文件存储的固有值,和是否使用On the Fly坐标表示无关.返回当前显示的坐标值参看8, --多边形周长 VBA部分: Dim pGeo As IGeometry Set pGeo = [Shape] Dim…

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