最近公司HR和Finance想算员工的工作天数,想让我帮忙写些VBA,自己从网上找了下代码,自己再改改,以下来自网络. 计算两个日期之间的工作日,用VBA,因量大,最好用数组做 Sub kk() Dim arr, i&, j&, m& arr = Sheet2.Range("b3:f4") To UBound(arr) m = ) ) Next arr(i, ) = m Next Sheet2.Range() = arr End Sub 根据他提供的方法,其实就

(Visual Basic Application) VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言,其语法结构与Visual Basic编程语言互相兼容,采用的是面向对象的编程机制和可视化的编程环境. 第一节 标识符 一．定义 标识符是一种标识变量.常量.过程.函数.类等语言构成单位的符号,利用它可以完成对变量.常量.过程.函数.类等的引用. 二．命名规则 1)  字母打头,由字母.数字和下划线组成,如 A987b_2

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

DATE 用途:返回代表特定日期的序列号. 语法:DATE(year,month,day) 参数:year 为一到四位,根据使用的日期系统解释该参 数.默认情况下,Excel for Windows 使用 1900 日期系统, 而 Excel for Macintosh 使用 1904 日期系统.Month 代表每 年中月份的数字.如果所输入的月份大于 12,将从指定年份 的一月份执行加法运算.Day 代表在该月份中第几天的数字. 如果 day 大于该月份的最大天数时,将从指定月份的第一天 开始

Excel VBA语句集 引子 最近批阅学生成绩,用Excel 处理学生成绩,用到VBA 提高办公效率.需要经常查阅VBA的一些用法 正文 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Nex

帮朋友来写个Excel VBA 以前写过ASP,所以对vb略微熟悉,但VBA 没有仔细研究过. 以前只研究过 vba 写一个 计算个人所得税的程序. 这次写的功能也算是简单,但也耗费了两天的功夫. 需求: 1 从[操作]表中,查找最后一行的数据,每一列 都为关键字 2 遍历这些关键字,从[总表]中查询这个关键字,把这一行后面的内容复制到 [预算]表中去 3 把[操作]中制定内容复制到[信息统计]中 Function Get操作NullLine() ' '从 操作表 获取最后一个有数据下面的空行

与其它的编程语言一样,VBA也有它自己的数据类型.讲到数据类型,就离不开"变量"与"常量"这两个概念,变量与常量,都是用于保存数据的.顾名思义,"变量"是会变的,即它的值是可以改变的:而常量,则它的值通常是固定不变的. 定义数据类型的优点有2个: 便于内存管理 便于程序进行计算(数值型)和其它使用(非数值型) VBA中的基本数据类型有多种,但常用到的只有其中一半左右. 0. 变量的定义 VBA中用 Dim 变量名 As 数据类型 的格式来定义基本

VBA 中的用户窗体就是指带 UI 的用户界面,在运行的时候会单独弹出一个窗口,类似于在 windows 系统中运行的一个可执行程序一样(这个说法不太严谨,因为可执行程序也可能是只有命令窗口而没有 UI 的).再具体一点,就是一个窗口界面当中,有可能会包含有文本框.复选框.单选按钮.下拉列表,就如在网页中填写的表单一样.再具体一点,就是如下图这样的: 1. 用户界面设计 如上图,UI 设计的部分其实是很简单的,微软的特色,直接拖拉拽就可以实现了.而每一个控件(或者称为元素,也即放进窗体中的各种按

Java处理Excel中的日期格式 2011-12-23 17:34:03|  分类: java |举报 |字号 订阅 下载LOFTER 我的照片书  |   在Excel中的日期格式,其数值为距离1900年1月1日的天数,比如2009-12-24将其转化为数字格式时变成了40171,在用java处理的时候,读取的也将是40171.在POI处理Excel中的日期类型的单元格时,如果仅仅是判断它是否为日期类型的话,最终会以NUMERIC类型来处理.正确的处理方法是先判断单元格的类型是否则NUMER

/**  *  计算上次日期距离现在多久  *  *  @param lastTime    上次日期(需要和格式对应)  *  @param format1     上次日期格式  *  @param currentTime 最近日期(需要和格式对应)  *  @param format2     最近日期格式  *  *  @return xx分钟前.xx小时前.xx天前  */ + (NSString *)timeIntervalFromLastTime:(NSString *)lastT

近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有Excel中写VBA的,也有直接C#做的工具.有时需要在C#中执行Excel VBA宏,甚至有时还需要在执行了VBA宏之后,获取返回值再进行相应的处理.为了使用方便,我写了一个执行Excel VBA宏的帮助类 .放在博客里做个备份也希望对有类似需求的朋友有所帮助.帮助类仅提供了一个方法:RunExcelMacro 参数说明:         string         excelFilePath  Excel文件路径        

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

在POI处理Excel中的日期类型的单元格时,如果仅仅是判断它是否为日期类型的话,最终会以NUMERIC类型来处理. 正确的处理方法是先判断单元格 的类型是否则NUMERIC类型, 然后再判断单元格是否为日期格式,如果是的话,创建一个日期格式,再将单元格的内容以这个日期格式显示出来. 如果单元格 不是日期格式,那么则直接得到NUMERIC的值就行了.具体代码如下: if (HSSFCell.CELL_TYPE_NUMERIC == cell.getCellType()&&HSSFDateU

在Excel中的日期格式,比如2009-12-24将其转化为数字格式时变成了40171,在用java处理的时候,读取的也将是40171.如果使用POI处理Excel中的日期类型的单元格时,如果仅仅是判断它是否为日期类型的话,最终会以NUMERIC类型来处理.正确的处理方法是先判断单元格的类型是否则NUMERIC类型,然后再判断单元格是否为日期格式,如果是的话, 创建一个日期格式,再将单元格的内容以这个日期格式显示出来.如果单元格不是日期格式,那么则直接得到NUMERIC的值就行了.具体代码如下:

公司网点表存储的坐标是百度坐标,现需要将网点位置标注到高德地图上,研究了一下高德地图的云图数据模版 http://lbs.amap.com/yuntu/reference/cloudstorage和坐标转换服务http://lbsbbs.amap.com/forum.php?mod=viewthread&tid=724,云数据管理平台http://yuntu.amap.com/datamanager/   ,实现了excel文件的导入,现将实现步骤及使用的一些技巧总结一下: 本地数据导出为高德云

这是6,7年前做的一个excel vba自动计算附合导线平差的表格. 对于做测绘的朋友来说,附合导线平差是最基础的技能,目前来说,能平差的软件和工具也很多,像南方的平差易,科傻平差.清华三维平差等,但这些软件操作较复杂,且界面不友好,于是很多人用excel强大的公式函数功能,做了很多自动计算的表格,但这些表格很死板,未知点的个数不能自定义,操作起来也并不简单,于是本人改进了表格,能够实现按自定义未知点个数进行平差计算,所有步骤都是自动化的,只需要输入起算点和观测数据即可,计算结果准确,使用方便.

本文主要内容: 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

Excel vba 操作 批量生成sheet目录并添加超链接 Sub Add_Sheets_Link() 'Worksheets(5)为清单目录页 '在sheet页上生成sheet页名字并超链接 To ThisWorkbook.Worksheets.Count Worksheets().Cells(i + , ).Value = Worksheets(i).Name Worksheets().Hyperlinks.Add Anchor:=Worksheets().Cells(i + , ), A

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

Public Function pizhu(i As Range) pizhu = i.Cells.Comment.Text End Function EXcel VBA获取批注信息

https://www.w3cschool.cn/excelvba/  Excel VBA 编程教程 https://www.yiibai.com/vba   VBA教程 http://www.accessoft.com/article-show.asp?id=16502   关于VBA的0.""(空字符串).Null.Empty.与 Nothing 的区别