前两天有两位朋友留言想收集一些VBA的常用代码，今天开始会陆续分享一些！

记得收藏好哦，因为今后你应用到稍大型Excel VBA程序时，这其中某些代码肯定会用到。

来看看都是哪些常用代码：

下面先举一个简单的例子：

场景再现：在当前的工作表中插入一张e盘中名为1.jpg的图片（长350、高300，距离Excel左侧90、上边框230）

操作方法：

第一步，打开vba代码区，输入通用格式【输入 sub 统计()回车即可】，并将名称改为“统计”；

第二步，输入控制语句（ActiveSheet.Shapes.AddPicture "e:.jpg", True, True, 90, 230, 350, 300）；

第三步，看看结果。

后面会分享更多关于Excel VBA的知识，欢迎大家留言、讨论！

春光明媚，连带着小心情也开始发芽了~变成了彩色的~

马上要到踏春的日子了，这不，连Excel也开始色彩斑斓了起来~

本期话题，来自@悠悠静漪 小伙伴，目标是制作出网易上，这样的多彩条形图。

特别鸣谢小伙伴，发现美，并且整理了基础数据源，也就有了本番的教程。

关键知识点：条件格式

数据源整理

对照网易数据的数据源@悠悠静漪小伙伴将网页中的内容，整理成以下Excel表格：

很舒爽，有木有~~完美的数据源格式：

1.标题行字段清晰

2.数据源没有合并单元格，数据格式正确

3.数据源还有ID（序号）列

是的，这就是表姐一直强调的，数据源“二清合二白”的完美体现。

Excel的数据源和真正的做图数据源，还是有区别的。比如，图表展示的位置，需要用合并单元格的方式，将标题内容，进行纵向排列：

在标题单元格，我们设置了：

合并单元格的效果

文字的方向为纵向

设置了自动换行的效果

单元格内用【ALT+回车】设置强制换行

背景色设置

根据网易数读中图示的情况，用取色器，将各类颜色拾取出来：

取色器：

在PPT2013和2016中，已经自带了取色神器。然而，不得不吐槽一下微软爸爸，这么好用的功能，居然没有放到Excel当中。好在咱们有一款，取色神器：color Pix，超级好用的轻量级取色器。

使用方法：

1.在上图软件窗口中，我们可基本看到软件中的所有功能，就如工具栏中的“+”、“-”、“X”分别代表着总在最前面、最小化、关闭。

2.用户在运行软件后，当鼠标在桌面任意位置移动时，软件窗口中的数值是随着自动变化的，这也就是说，当我们运行软件后，即可立即提取桌面颜色；所需要提取的颜色数值，我们在软件窗口左侧即可看到。

3.取色点确定之后，敲击任意键（如：空格）可以锁定该点色彩，便于将光标移动到信息区也用于复制代码。前提是，ColorPix 的程序主窗口处于激活状态，而不仅仅是显示在最前。

4.ColorPix 放大镜模式：单击主窗口左下方的放大镜按钮或提示激活放大镜视图，以便精准的定位复杂颜色区域的某一像素。放大倍率可在 100% 、200%、 300% 、400% 、500% 、600% 、1200% 、2800% 中调节。（说明：高倍放大对于鼠标操作没有实际意义，因为放大镜视图中的抖动会很严重。）

通过ColorPix工具的使用，我们能够快速参考并读取到任意颜色的色值，并将它们用于我们的商务图片配色中。

应用配色方案：

Excel中图表元素颜色的更改方法是：选中目标后，单击【开始】选项卡下填充颜色中的【自定义填充】，选择【其他颜色】:

在弹出的【颜色】对话框中选择【自定义】选项卡，【颜色模式】选择【RGB】，将【红色】、【绿色】、【蓝色】的色值更改为【取色器】所读取的数值，然后单击【确定】按钮即可。

通过取色神器和单元格填充颜色的设置，我们可以完成基础图表的准备工作。注意，在单元格边框的位置，我们可以设置，下边框为：深色、加粗、虚线的效果：

数据条美化

做好基础数据表格的填充颜色与美化后，选中每个色块的数据内容，如：C2：C6（每段数据，都要分别点击，单独设置）

通过点击【开始】选项卡--【条件格式】--【数据条】--【其他规则】：

打开【新建格式规则】对话框--将条形图的外观--设置为之前用取色器取到的目标颜色，如：深蓝色。设置完成后，点击确定。

注意：

1.条件格式--数据条的设置，是根据单元格内数值的大小，在单元格内嵌一个数据条的效果。所以它能够随着单元格数值的大小，实时变化。

2.为了统筹各个模块的数据条呈现在同一标准之下，需要为每组纵向的数据（即满意程度）构建一个统一的恒定标准，也就是最大值是多少。

3.为了美观，每个横向系列中，都要分批次使用条件格式，来设置数据条效果。

来源：E维课堂，作者：表姐凌祯

提高桌面生产力

如果您期待系统学习Excel技能，系统化提高个人财务工作效率，不妨让表姐凌祯一对一来教你！

EXCEL财务技巧初级到高级实战密训班：

看实例听干货学做表（第七期）

案例式教学，定制化服务，实战型技能

8节直播课，就能把你从EXCEL菜鸟培养成大师！

并赠合并多工作表及图表

五一拼团价仅需128元

如此优惠仅剩最后一天，赶紧来~

▼如何购买？戳原文吧！

导语：工作中常常需要用 EXCEL 绘制各种统计分析图，在有多组数据时，如何快速的甄别优劣好坏，采用矩阵图无疑是最好的选择。

仅需六步就能完成

1.选择数据，这里要主要的是仅选择数据，不要将表头、标签、平均值选定：

2.选择插入散点图并将坐标线删除：

3.点击横纵标签数据，选择坐标轴格式中的坐标轴交叉，将交叉坐标值填入平均值的数据：

4.删除坐标轴上的数值（可选）：

5.使用XY Chart Labels工具将标签填入到对应的点上，没有该工具的小伙伴也可以使用插入文字的方式完成：

6.插入箭头，制作新的横纵坐标轴：

7.插入文字，将表头的文字及高低手工插入表格

结束语：

制图作为Excel的核心功能之一，在往后的几期会对经常使用到的方法做一个简单的说明，下一期我们要说的制图方法是 --- 漏斗图！

技巧一：同时对多个单元格执行相同运算

在使用Excel表格的制作过程的时候，常常需要添加公式进行一些数据的运算，在运算的过程中相同公式添加到多个单元格中怎么才能做到了？

.

.

.

操作步骤如下

要对多个单元格执行相同公式入将单元格执行全部加"2"的操作，首先在空白单元格中输入你要执行运算操作数"2"，单击开始选项卡中，剪贴板下复制命令。

.选择你要进行运算的单元格，开始选项卡中"剪贴板下的粘贴然后选中选择性粘贴"命令。

.在选择性命令中点击"运算"在区域中勾选上"加"，点击确定。

.

.

.

.

.

技巧二：在Excel函数中快速引用单元格

.

问题描述

.

在Excel文档编辑的时候，函数的运用是必不可少的，今天笔者为大家介绍一下，在Excel函数中快速引用单元格，那怎么操作了？

操作步骤

.笔者以SUM函数为例子，在公式编辑栏中输入"=SUM（）"，然后将光标放在在小括号内，这时候按住【Ctrl】键，在工作表中选择要参与运算的单元格，输入完成之后点击【Enter】键。

.操作图片如下

.

步骤阅读

技巧三：自定义单元格的移动方向

.

操作步骤

.在文件下方，进入"Excel选项"按钮，打开"Excel选项"选择高级选项卡，在"按【Enter】键后移动所选内容"选项卡的"方向"，可以更具自己的需要进行选择，选择好了直接点击确定。

.

.

导语：工作中常常需要用 EXCEL 绘制各种统计分析图，可是在对比一组数据是否完成时，传统的柱形图很难直观的体现数据之间的关系与是否达成了目标，下面，我们就来使用完成率图将所有数据在一张图上全部展现出来！

仅需六步就能完成

1.选择需要的数据，插入柱形图：

2.选择目标值的柱形将填充色修改为空白、边框选择任意非透明色：

3.选择完成值，在数据系列格式中修改为次坐标轴：

4.选择目标值的柱形，在数据系列格式中将分类间距 调整到小于100%：

5.使用XY Chart Labels工具选择展示的标签，没有工具的小伙伴也可以使用直接插入文字，手动调整数据的展现实现：

6.调整参数，如：插入标题、设置坐标轴字体大小等：

制图作为Excel的核心功能之一，在往后的几期会对经常使用到的方法做一个简单的说明，下一期我们要说的制图方法是 --- 雷达图！

首先我们把抽奖的人输入到表格中的单元格里

然后在中奖名单下面单元格中输入“=INDIRECT("A"&RANDBETWEEN(4,12))”

INDIRECT：对引用括号里的数据，并显示其内容。

RANDBETWEEN：随机抽取选的区域的内容，在这里是4到12.

A：在这里代表A列

（4,12）：我们的抽奖名单在A列的4到12行。

输入完成后按回车键就可以看到名单中的名字

接下来我们按住“F9”刷新数据，我们就可以开始抽奖啦（要一直按着才刷新哦），松开F9中奖名单就出来啦。

学到的朋友点个赞、收个藏、留个言和关个注。

小鱼有了这些会一直努力下去哒。来~吧唧一口。

现在的我们确实比以往幸福了很多，因为工具越来越发达。

目前最强大的工具是——互联网。

就我们办公工具来说，按照用途来分，可以分为下面一些类别。

1.用于统计分析

2.用于效果和结果呈现

3.用于整理和加工运算

4.用于监督和跟踪服务

5.用于档案资料的分类保管

……

今天就重点谈一下EXCEL在绩效管理过程中的运用。

以之前供职过的一家企业为例，说一说，如何用EXCEL表格做出绩效管理软件的效果来。

总的来说一共三大特点：

特点一：自动匹配计算

（一）自动匹配筛选人员考核资格

1.根据公司的绩效游戏规则，只有“入职超过1个月”的才能资格参加考核，还有就是职等为“一等一级”的人不能参加考核，那么此处就设定了两个条件：

A.入职时间＞30天

B.非“一等一级：

凡是符合其中一种的，都会出现基本信息为红色带下划线字样，视为排除考核资格。系统自动判定不进行数据匹配和计算。

分值显示为“1”。实际就是代表不参与计算。

划红线——是通过设置条件格式实现的。

显示为“1”是通过简单的IF函数实现的。公式如下：

=IF(OR($G13="/",$H13="/",$I13="/",$F13="/"),"",IF(OR($G13="",$H13="",$I13="",$F13=""),1,IF($O13="",SUMIF('1.员工级'!$AA$5:$AA$1110,$G13,'1.员工级'!AB$5:AB$1110),1)))

通过这三项的判断，用公式得出了下图的判定结果中数据为“1”。

2.除了时间和职等限制以外，还有部门岗位等的匹配和计算规则。

表一（基础资料表）

表二（积分表）此表一般是隐藏起来的

表二的公式为：

=IFERROR(IF($AA5="/","",U6+U39+U72+U105+U138),"")

表三（绩效考核表）

这三个表里的名单，必须确保绝对一致，连字体，格式都要设置一致。才能保证可以互相匹配，数据互通。

数据关联的规则是：表三的计算数值——表二——表一。

当然还有一些关于人员资格的匹配计算，这里就不一一罗列的。（有兴趣的伙伴，可以与我联系，领取文章中整套的绩效考核表，公式都在里面。）

（二）自动匹配人员考核时间

整个表单，分为四种：

第一种是：基础资料汇总表

第二种是：绩效考核表

第三种是：绩效奖金结果汇总表

第四种是：奖金标准表

如下图。

在这三种表单中，都需要设置好对应的考核时间。设置好公式以后，EXCEL可以自动防呆。出错了，就显示不出来数据，提醒操作人员，哪里有问题，便于修改。

（三）自动匹配计算人员考核分值

此处才是重头戏，这里就牵涉到绩效考核的积分规则了。话不多说，上图上公式。

一般来说有四类公式：

第一类是根据百分比递增递减的函数计算，并且是正比关系的递增递减。比如效率的百分比，达成的越高，分值就越高；还可以设置上下限。

计算公式如下：

=IF(INDEX($I$39:$T$70,(ROW()-38),($X$4-$AA$1))="","",IF($G39="/","",IF(INDEX($I$39:$T$70,(ROW()-38),($X$4-$AA$1))<$AB$63,0,IF(((INDEX($I$39:$T$70,(ROW()-38),($X$4-$AA$1)))-$U$38)*$AB$62*100>$AB$60,($AB$60+$F$38),IF(INDEX($I$39:$T$70,(ROW()-38),($X$4-$AA$1))>($U$38-0.1%),($F$38+(INDEX($I$39:$T$70,(ROW()-38),($X$4-$AA$1))-$U$38)*$AB$59*100),($F$38+$AB$61+(INDEX($I$39:$T$70,(ROW()-38),($X$4-$AA$1))-$U$38)*$AB$62*100))))))

第二类是根据百分比递增递减的函数计算，但是反比关系的递增递减。比如报废率的数值，数字越小，分值就越高；也可以设置上下限。（公式和上面很像）

第三类是根据数字递增递减的函数计算，成正比。比如存货周转次数。

=IF(INDEX($I$52:$T$55,(ROW()-51),($X$4-$AA$1))="","",IF($G52="/","",IF(INDEX($I$52:$T$55,(ROW()-51),($X$4-$AA$1))<$AB$57,0,IF(((INDEX($I$52:$T$55,(ROW()-51),($X$4-$AA$1)))-$U$51)*$AB$56*100>$AB$54,($AB$54+$F$51),IF(INDEX($I$52:$T$55,(ROW()-51),($X$4-$AA$1))>($U$51-0.1%),($F$51+(INDEX($I$52:$T$55,(ROW()-51),($X$4-$AA$1))-$U$51)*$AB$56*100),($F$51+$AB$55+(INDEX($I$52:$T$55,(ROW()-51),($X$4-$AA$1))-$U$51)*$AB$56*100))))))

第四类是根据数字递增递减的函数计算，成反比。比如报废的PPM值。

=IF(INDEX($I$72:$T$103,(ROW()-71),($X$4-$AA$1))="","",IF($G72="/","",IF(INDEX($I$72:$T$103,(ROW()-71),($X$4-$AA$1))>$AB$110,0,IF(INDEX($I$72:$T$103,(ROW()-71),($X$4-$AA$1))<($U$71+1),($F$71+($U$71-INDEX($I$72:$T$103,(ROW()-71),($X$4-$AA$1)))/1000*$AB$106),($F$71+$AB$108+($U$71-INDEX($I$72:$T$103,(ROW()-71),($X$4-$AA$1)))/1000*$AB$109)))))

第五类是根据整数个数来递增递减，此处仅举一个成反比关系的。比如缺勤天数。

=IF(INDEX($I$6:$T$37,(ROW()-5),($X$4-$AA$1))="","",IF($G6="/","",IF(INDEX($I$6:$T$37,(ROW()-5),($X$4-$AA$1))=0,$F$5,IF(($AB$47-INDEX($I$6:$T$37,(ROW()-5),($X$4-$AA$1))*($AB$48))<-$F$5,0,($F$5+$AB$47-INDEX($I$6:$T$37,(ROW()-5),($X$4-$AA$1))*$AB$48)))))

第六类是一个最粗暴的判定性函数。一般用于否决性指标，用于简单的判定0和1的。

=IF($G138="/","",IF(INDEX($I$138:$T$169,(ROW()-137),($X$4-$AA$1))=0,0,-100))

总之，此处充分运用IF函数的强大之处！

（四）自动匹配计算人员奖金

设置一个 IF函数即可，在基础资料里，将奖金标准关联过去。

=IF(OR(I8="/",I8=""),"",SUMIF(奖金标准!$A$4:$A$41,I8,奖金标准!$F$4:$F$41))

特点二：自动整理汇总输出结果

（一）自动整理出奖励人员名单

此处7月积分里的红色的“97”，“96”等数字就是根据绩效规则，只选取小单位的前30%来自动筛选出，用红色标注的。

这里主要是用到了条件格式。

（二）自动整理出奖金明细和汇总

这里是根据EXCEL的最基本的筛选功能，选择出上图中红色字体的即为奖励人员明细。自动排列好，复制到《绩效报告汇总表》里即可。

此处复制，需要使用，仅“粘贴数值”功能，否则会出现乱码。

特点三：自动罗列分析

此处主要是用到了透视表，便于数据的各种排列组合，用以分析不同情况下的不同状况。

需要了解的伙伴可以百度下，本文就不一一讲解了。

特点四：防呆放错

比如，为了防止绩效的原始考核数据输入错误，我们做了一些数据有效性防呆设置。

具体设置如下：

总之，EXCEL的功能真的是强大无匹。希望各位HR伙伴可以继续使用出更多的功能，用于优化日常的工作。（有兴趣的伙伴，可以与我联系，领取文章中整套的绩效考核表，公式都在里面。）

既然微软都已经把这么强大的工具送给我们了，当我们需要的时候，就要把它用到极致哦哦。

最后说下SAAS平台的人事管理软件。由于本人之前也是从事HR管理软件开发的，不过公司的产品定位是一款针对绩效的，因此更多强调的是企业管理和各个部门之间的联动的功能。

当时，我们站在一个潜在竞争对手的角度去重点研究过2号人事部的功能和定位，发现它的用户体验对于处理人事日常事务来说，非常便捷，非常高效。仅一个员工花名册的导入动作，就很人性化，充分站在广大HR用户角度实际操作中的痛点去考虑，可以省去很多重复和繁杂的动作，也便于资料的管理，存档，归类，分析。当然还有需要优点，具体怎么个方便法，说的再多，不如自己去体验一下，即可感受。

文/瓮春春

来源：三茅人力资源网

欢迎你在下方「评论区」留言评论，也欢迎你分享转发~，期待你的互动！

HR新知派，和你一起探索人力资源管理新知识，分享人力资源管理新智慧。欢迎大家评论交流，关注订阅我们，可第一时间获取『HR新知派』最新资讯。

office办公应用三大件：Word、Excel、PowerPoint，几乎每台电脑都会装这三个办公软件，而Excel在办公场景中更是必不可少。

办公族都要用Excel来处理数据，例如记录各种数据，客户订单、产品资料、人事档案等。

实际上很多单位要求熟悉Excel的程度，也就仅止于会用Excel录数据、做表单罢了。

最熟悉的快捷键就是Ctrl+c/Ctrl+v，最常用的Excel操作就是合并单元格、求和，更多的工作就是用公司原有的表单模板干活。

比如一个跟单文员，每天的工作就是录入订单数据到总表，用文件夹里的制造工单模板、送货单模板、送货标签模板填入总表的数据，复制粘贴，再修改一下边框等，就是一天。

数据多的时候，那就别想准时下班了。

同样都是会用Excel的人，却有人用Excel技巧做出了办公自动化的管理软件，轻松完成每天的工作。

为什么能想到做这么一个软件呢？因为都是重复性的工作啊，制造工单、送货单、送货标签的数据都是取自于总表，让软件自动传送呗。

为什么用Excel技巧就搭建办公自动化软件？不需要学编程？是的，无需编程、用Excel技巧也能做办公软件。

别人正是利用了这样一款类似于Excel的表格软件，完成了办公管理软件的搭建。

它就是云表，类似于Excel的操作界面，通过中文的业务逻辑就能实现自动化办公。

像用Excel一样设定表单的填写规范，还可以设置自动生成一定格式的编号，如按日期自动编号。

用最基础的Excel技巧，加以办公管理经验，用中文描述业务逻辑，无需编程就可以用云表做出一套好用的办公管理软件了。

还在等什么呢？还想继续加班吗，别人都用Excel技巧搭建办公管理软件，而你还在用它做表格！

云表能做的功能还有更多，像自动更新操作记录、库存最低预警、工资考勤自动计算等，甚至可以做出完整的ERP管理软件、仓库管理软件、财务出纳软件.....

虽然云表功能如此强大，但它仍然提供了免费版，还有详细教程和技术客服助你快速入门！！！

转载自百家号作者：优品资源

每个EXCEL、WPS达人和管理者，虽然不一定会编程，却都有一个编程梦，总希望把工作和管理进行批量化、智能化、协同处理，以提高效率，然而EXCEL功能是有限的，无论对EXCEL玩的多精通，软件的功能也很难实现。今天就给普通的你，分享一个类EXCEL平台的工具，可以像用EXCEL那样去搭建你想要的软件和APP。你也可以变成IT达人！

你想不想用excel做一个，功能强大又好用的管理软件？

用EXCEL的方式，搭建真正的软件系统，可行吗？

我们说的真正的软件，必须得具备智能录入、数据校验、工作流程、多用户协同、数据共享、用户权限控制，三方软件对接、手机APP应用、拍照上传、统计查询、附件上传、组织架构管理……。等等，传统代码编程开发软件具有的功能，它都得有。

那用EXCEL的方式可以做到么？肯定可以！但绝不是EXCEL和WPS，而是一款类EXCEL平台，云表！

可以兼容EXCEL用法，比如自定义表单样式，拖拉拽的操作方式、导入导出EXCEL……等等，也就是说你只要会用EXCEL或WPS就能用云表。

看一下上图：能不能发现，云表设计器界面与EXCEL界面有哪些差别？而且云表设计界面和EXCEL长得还挺像的，不过他们可没有血缘，顶多和WPS有点亲戚关系，云表开发团队源自金山系创业者，就是WPS团队出来的。而且，云表完全独立，不用安装WPS或EXCEL就能使用。

会画表格就能快速搭建管理软件，请看有多方便！

只需要用EXCEL的操作方式，把软件需要用的表单或界面样式画出来（只要你愿意，就能画得很漂亮），比如采购单、销售单、库存表、报表等基本表格样式，然后用中文公式（纯中文，会认字就能看懂）把表间关联配置好，设置好组织架构和用户并分配不同权限，还有设置好相应的业务流程和审批流程，再加上导航（也可以不要），那这个软件就完成，如果需要和已有软件比如财务软件等对接，也是可以的。

一键自动生成APP，手机上随时随地使用！

上面把软件功能搭建完成后，只需要在手机端安装云表APP并简单配置一下，另外在云表设计界面勾选适用手机APP，那这个功就可以在手机上使用了。是不是超级简单，整个过程，完全不用编程。

云表做的手机APP

说的可能比较笼统，可以到官网安装个软件做一遍就明白了。

勤学小编不定期为大家分享一些技巧及干活知识，希望大家喜欢及支持。

用excel做电子公章？真的可以！先看效果：

制作方法：

1、插入 - 按shift不松插入一个圆，然后去掉背景色

2、插入艺术字，并修改它的字体大小和颜色

3、选取艺术字，设置字体样式为拱形。

4、把拱形字的外框调整为正方形，然后四个顶点恰好落在圆上。这样才可以保证文字能完美环绕显示。

5、按shift键不松，插入一个五角星，设置红色填充。

6、公司名比较长时，可以拖动黄点调整环绕范围。

7、选取全部的图形、艺术字（选取一个按ctrl+a可全选），在键菜单中点 - 组合。这样公章就可以放置在excel的任意位置了。

提醒：此技巧仅仅供学习使用，希望大家喜欢。