2017年04月_半个馒头

原创 VBA代码实例---个人所得税计算

¤工资计算原理¤根据最新的个人所得税计算方法，其计算方法如下：应纳个人所得税=应纳所得税额×使用税率-速算扣除数¤代码实现公式¤使用select case语句，根据金额匹配税率和速算扣除数；¤代码示例¤Option ExplicitSub 个人所得税() Dim Income As Double Dim taxRate As Doubl

2017-04-28 15:20:16 7436 1

原创 VBA代码实例---批量新建工作表模板升级版本

对上一篇博文进行补充：VBA代码实例---批量新建工作表模板¤升级内容¤新建了工作表之后，把新建的工作表，一个工作表新建到工作簿中，并以工作表的名称命名工作簿。¤新增知识点¤通过剪切的方式，新建工作簿。¤代码示例¤Option ExplicitSub 拆分到簿() Dim i As Integer Dim sh As Wor

2017-04-19 14:09:05 1555 1

原创 VBA代码实例---批量新建工作表模板

在工作中，经常需要用到一个操作：批量生成工作表，工作表名字指定。下面写一个VBA，希望能达成如下功能：1、转移性好，可以直接复制使用；2、不限制重复，并且以此排序；3、批量新建工作表；¤操作步骤¤第一步：打开工作表，并把需要新建的工作表名字放在第一列，并且A1单元格为标题；第二步：菜单—开发工具—VisualBasic--召唤VBE（Alt+F11/Fn+Alt+F11）

2017-04-19 09:59:41 12716

原创 VBA代码实例---多个工作表内容合并到一个工作表中

这是一个常用而且经典的例子：根据内容，把N个工作表中的内容，合并到一个工作表中；¤主要知识点¤1、工作表选取和内容的复制；2、IF分支语句和For循环语句的使用；¤代码实例¤Option ExplicitSub 合并工作表() Dim i As Integer Dim x As Integer, y As Integer Dim

2017-04-18 23:41:42 27495 4

原创 VBA代码实例---一个工作表拆分为N个工作表

这是一个常用而且经典的例子：根据内容，把一个工作表中的内容，拆分到N个工作表中，并根据内容命名新建的工作表。¤主要知识点¤1、影响代码执行闪屏以及提示框的处理：Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseApplication.DisplayAlerts = TrueApplication.

2017-04-18 22:53:29 32641 7

原创 VBA入门--分支结构判断（IfElse/SelectCase）

在工作中，分支判断是最常用的，尤其是IF语句，职场小白也都会使用，总结一下知识点。¤IF分支结构¤VBA的分支结构中，最常用的就是IF…Then…Else结构，这个结构在所有的编程语言中的逻辑都是一致的，哪怕是Excel的函数都一致，唯一需要注意的区别，就是在各种语言中的形式，其语法为If condition Then [statements] [Else elsestatements

2017-04-16 10:53:47 16096 1

原创 VBA入门--变量的基础内容和知识点

Excel的代码主要是针对Excel的各个对象进行操作的，因此最基础的就是VBA的基本语法，基本语法主要包含：VBA的变量、常用运算和循环或分支结构。我理解的这三部分是最主要的。所谓变量，顾名思义就是可以变化的量，变量在VBA中是程序为存放某个临时的值而开辟的内存空间，可以指定一个变量名来命名该内存空间，通过变量名，可以重复访问该内存空间，用以存放数据或者读取数据。 ¤变量声明¤在

2017-04-15 12:26:51 6538

原创 VBA入门--VBA基础知识和简单技能技巧

VBA（visual basic application）是visual basic的一种宏语言，是依附于Microsoft Office系列软件的自动化语言。Excel是作为Microsoft Office系列软件中最常用的程序，被广泛应用于数据存储和处理。宏是一系列可执行的VBA程序的集合，它可以帮助执行一项或者多项操作。录制宏的功能很强大，很多Excel功能都可以通过录制宏来进行，但

2017-04-15 10:19:58 38820 2

原创 VBA代码实例---Msgbox函数及应用实例

知识点：Msgbox的使用；for语句；实例：B列为正确答案，C列填写挑战者答案，对一个10分，C12填写最终得分，C13填等级。Sub 开心辞典() Dim DA As Integer, TM As Integer, FS As Integer Dim i As Integer For i = 2 To 11 DA = MsgBo

2017-04-12 18:50:21 26773

原创 VBA代码实例---根据分数判断等级

知识点：for语句；连续区域表示；if语句嵌套；表格示例：学号姓名性别成绩等级EP001欧阳欢男58不及格EP002陈春晓男47不及格EP003孙敏女69及格EP004田清风男84及格EP005欧阳玲女80及格

2017-04-12 18:12:37 4538 2

原创 VBA代码实例---单元格复制以及resize函数介绍

单元格的选取和赋值，都是有规则，后续肯定是要专门写一个赋值和区域选择的内容。简单的区域选择和赋值Sub 单元格复制() Range("H8").Resize(5, 3).Value = Range("A1").Resize(5, 3).ValueEnd SubResize函数，是用于调整指定区域的大小，返回代表调整后的区域，也就是原来有个区域，返回值是另外一个区域。具体语

2017-04-10 22:01:27 9284

原创 VBA代码实例---高级筛选

首先介绍Excel工作簿的内容进行说明：一个工作簿两个工作表，学生/高级筛选，七个字段；实现功能：在高级筛选中，做一个快速的条件筛选。Option ExplicitSub 高级筛选() '判断高级筛选条件区域有多少行 Dim x As Integer x = Sheets("高级筛选").Range("A1").CurrentRegion.Rows.

2017-04-10 21:06:33 18918 1

原创从头来过四月盛夏不忘初心

重新学习系统系统的学习VBA，从入门开始，一步一步，四月入夏，不忘初心。1.1软件准备03版本Excel都可以使用，系统自带的软件；WPS和Mac不可用。Xlsm是存宏的文件格式，存为其他格式就丢失了宏文件的代码数据。1.2如何进入VBA编程环境快捷键：Alt+F11（联想电脑Fn+Alt+F11）开发工具：开发工具—Visual Basic/宏如果没有

2017-04-10 20:34:32 692

原创 2017年愚人节思考

今天是愚人节，也是普通的一天，天气还是不错，所有的节日，我都喜欢安静的待着，虚伪的看点书，其实也不知道自己在干什么；今年的主题是迷茫，迷茫的有点仓促，可能是对自己无序的生活的一种讨厌，还是觉得自己的能力匹配不上自己梦想的恐惧，我不知道；我的迷茫源自于哪里，我也不知道，就像一个傻子，在繁华的大都市里，找不到自己的一餐美食；我曾经后悔过我读书，要是没有高中时那么努力，那么心高气傲，就不会上

2017-04-01 10:12:47 540

半个馒头