平时工作中，我们经常用到的函数可能就是：如果“IF”，根据字面意思理解，基本上就是如果什么什么，那么什么什么，否则什么什么。但是，有是我们需要对IF增加条件的情况，就难免会遇到And和Or了，字面意思上也就是什么和什么，什么或什么的情况。下面就给大家简单介绍下二者与IF函数的组合使用。

函数简析

1、IF函数

=IF(条件,条件为真返回值,条件为假返回值)，如：=IF（A2>=60，"及格"，"不及格"）

2、AND函数

=AND（条件1，条件2），同时满足

3、=OR（条件1，条件2），满足其一

实例演示

利用AND函数或OR函数与IF函数组合，判断不同条件下，某同志项目工作完成量是否达标

条件一：项目之一完成率超60%达标

公式：=IF(OR(C3>=60%,D3>=60%),"达标","不达标")

条件二：2个项目均超过60%达标

公式：=IF(AND(C3>=60%,D3>=60%),"达标","不达标")

小结

本文以Excel2007为例，理论上支持所有Excel版本。文中紧给大家做了AND和OR与IF函数简单的嵌套使用，可以根据自身使用情况，做多层嵌套效果，或三者混合嵌套效果，利用IF函数的输出结果可实现多层嵌套哟！

如果对您有所帮助，感谢点赞！关注获取更多电脑或Office经验分享！

每个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 Tracker，没想到大家还挺感兴趣的。应大家要求，今天就给大家详细介绍一下。

在介绍前，还要多BB几句。

不论CRA还是PM，Excel都是一个 应该还好掌握的生产力工具。但大多数情况下，我们只发挥了它效率的1%，大多数人只是把它当成一个数据记录工具，而它的真正魅力是在数据计算。

造成这种情况的原因有两点：一是我们的技术；二是想象力。

不过，，，

对于我们大多数人来说，一开始我们并不需要去追求什么技术和想象力。就像今天要介绍的这个文件，对大家并不会有什么实际的用处。除了炫技，我只是想让大家了解下，Excel原来还可以这样帮助我们管理临床试验~

周末的时候看到很多同学在朋友圈里报名Excel课程。但以我的经验，对于Excel，大家首先要养成的是数据录入的良好习惯。这是用好Excel的前提。因为它对数据格式，有着近似强迫症的要求。怎么理解呢？举个栗子:

下面两行，看上去都是计算1+2，但是由于A4这个单元格是全角字符，导致计算计算结果错误。

所以，我们在使用Excel时一定要非常注意数据的格式。每当看到发过来的Excel，格式都一塌糊涂，我的心仿佛就在滴血~

好了，下面进入正题，可能有些枯燥，受不了了，可以直接去文末下载源文件。

试验背景 和 挑战

这是7年前的一个狂犬疫苗试验。那时候没有EDC，CRF是纸质的。不过，即使现在用上了EDC也没啥帮助。为啥？听我慢慢讲:

试验要在5个月里入组约800名受试者。分两组：成人组和青少年组。有1个主中心（site 01）和12个分中心（Site 2~13）。 狂犬疫苗接种的最大难度是接种周期不一致，分别是第0天、第3天、第7天、第14天和第42天。如果这次访视推迟，那后续访视也要相应推迟。 所以几乎每天每个site都有大量受试者访视，而且不同受试者的访视内容还不一致。你可以想象下如果三组不同的受试者要都要在同一天访视，那场面是多么热闹！！

这个试验还有一个很大的挑战，就是所有文件（包括原始记录、CRF等等）和药品都集中保存在site 01。每一天研究者都需要提前整理好明天有哪些受试者要回来访视？是第几次访视？是在哪个分中心访视？然后准备好相应的文档、物品，第二天一早运往各个分中心。

所以，大家可以看到，如果不能实时清楚每一个受试者的访视情况和药品的出入库情况，整个项目就一锅粥了，非常容易出错。而且，一旦出错，影响的不是一个受试者，而是一大批受试者。正是这个原因，我才做了这个自动化的Tracker。

这里我还要吐槽一句：有人认为只有肿瘤试验才牛B，才是最复杂的。我想说，那只是因为你做的试验太少而已。很多试验都有自己的特殊性，难度不比肿瘤试验小！

Excel 结构

Excel共四个页面：

成人组 和 青少年组 是源数据页面：需要手动更新实际访视日期；、疫苗数目：根据成人组和青少年组页，自动汇总药品的总接收数、毁损数、剩余数，以及每个访视的受试者退出数（Drop-Out）；访视查询：根据成人组和青少年组页，自动列出每一天到每个分中心访视的受试者名单，及访视信息。

页面分析

成人组和 青少年组

这两页的结构是一样的。

受试者编号、中心编号、CRA、访视V1、血样、是否按时访视、这几页需要手动填写；从访视V2开始，后面的访视都可以根据前次访视日期自动计算出来；如果前次受试者脱落（Drop-out），则后面日期自动不在显示；如果前次访视日期推迟，那么是否按时访视录入实际日期，则后续访视日期也会根据实际访视日期自动进行推算。如，M4单元格的函数为：=IF(K4="","",IF(L4="Drop Out","",IF(OR(L4="Y", L4="Delay", L4=""),K4+4,L4+4)))；

疫苗数目

下图红色区域：根据 成人组 和 青少年组 自动统计每个访视中的退出数（Drop-out）。如，G4的函数为：=COUNTIF(成人组!J4:J400, "Drop Out")；

下图没有用的函数而是用到VB编程;Recieved 表示从Depot一共运来了5批药品；Mistake Used 表示打错了疫苗。2011-06-15本来应该接种一支B疫苗，结果错误接种成了A疫苗；Unusable 表示有疫苗损毁；在浅蓝色单元格（G17）输入日期，然后点击“计算疫苗数”按钮，Remainded 则会根据当天情况自动显示库存数；这里复杂地方在于，不仅要考虑受试者实际访视用药的情况，还要考虑5批药物的接收日期，以及药物错用、损毁的情况。

访视查询

这一页能够知道当天受试者访视的详细信息，以及预估明天有哪些受试者？要到哪里去访视？每种药品要准备多少？CRA是谁？

这一页也没有用到函数，而是直接后台VB编写的宏程序。在浅蓝色单元格（D3）输入日期，然后点击“显示受试者”按钮，下面会自动生产表格并显示详细信息。

宏 - VB编程

前面说到，这个Tracker用到了一些简单的VB编程。要使Tracker能够运行起来，必须先启用宏。步骤为：Excel的选项 —— 信任中心 —— 宏设置 —— 勾选“启用所有宏”和“信任对VBA工程对象的访问”。

除了启用宏，如果你想看看VB编写的宏代码，这需要打开“开发工具”页。步骤：Excel的选项 —— 自定义功能区 —— 主选项卡中，勾选“开发者工具”。

源文件分享

源文件下载地址：

GCPbk/download/tracker.xlsm

问卷继续哦，持续到月底~

默克、默沙东、默克雪兰诺傻傻分不清楚

I C F的那些坑

国家局划的重点，大家都记住了吗？

梦想还是值得期待的，万一实现了呢？

知识

别人走过的路，是最轻松的路

CRA的简历怎么写？

CRA的﹁底线﹂

我见过的最好的项目经理

职场

请珍惜你的项目经理

恕我直言：只会催入组的公司，都是XX

欺负我的人那么多，你算老几

临床煎茶·入行十年

吐槽

﹃过往文章﹄

统计偶数单元格合计数值

解答：统计F4到F62的偶数单元格合计数值 。公式一｛=SUM(IF(MOD(ROW(F4:F62),2)=0,F4:F62))｝

公式二 (要有安装'分析工具箱')｛=SUM(IF(ISEVEN(ROW(F4:F62)),F4:F62))｝

用EXCEL做统计

如：A1，B1单元格是时间类型，C1是数字类型，我要计算费用用（B1-A1）*C1得到的数据还是时间类型、怎么办 ？我希望把时间类型变为整数类型，如0：50（50分钟）*3（元/H）=2.5元

解答：设A1为3：30，B1为4：30，C1为3，D1为下列输入的函数： =HOUR(B1)*60+MINUTE(B1)-(HOUR(A1)*60+MINUTE(A1)) 。D1结果等于60（分钟）

根据A1的内容,决定A2的数值是来自sheet1,sheet2还是sheet3.

解答：if(a1=1,sheet1!a1,if(a1=2,sheet2!a1,if(a1=3,sheet3!a1)))

直接输入一组数如“20020213101235”后，自动转换成日期格式

解答：A1中输入，B1中转换。。B1=Left(A1,4)&"—"&MID(A1,5,2)&"—"&MID(A1,7,2)&" "&MID(A1,9,2)&":"&MID(A1,11,2)&":"&MID(A1,13,2)

把sheet1到sheet200的a19这一格，依序贴到sheet0的a1到a200

解答：方法一：公式

可在A1储存格输入以下公式，再行拖曳至A200即可。

=INDIRECT("Sheet"&ROW()&"!A19")

方法二：VBA

Sub Macro1()

'选择工作表 sheet0

Sheets("sheet0").Select

For r = 1 To 200

'将工作表 1~200 里面的 D17 复制到 sheet0 的 A1~A200

Cells(r, 1) = Worksheets(CStr(r)).Range("D17")

On Error Resume Next

Next r

End Sub

如果有文本串"YY0115"，我想取第三、四的值"01"，应该用什么函数

解答：1、=mid("YY0115",3,2)&""

在一个表中有两列日期型数字请问如何在第三列中得到其差(两日期间的天数)

答：=IF(A1>B1,DATEDIF(B1,A1,"d"),DATEDIF(A1,B1,"d"))

重要的EXCEL文件坏了(文件带密码)有没有EXCEL修复工具

解答：Excel 2000

数据>>取得外部数据>>新增数据库查询>>Excel File*>>找到档案>>

[选项]勾选所有选项>> 会找到所有未命名[区块]如Sheet1$

>>找到字段>>其它跟着查询精灵导引一步一步作

此中间层组件Microsoft Query

可以用来拯救[毁损档案]

怎样用函数来显示某月的最后一天是几号

答：= DAY(DATE(年份,月份+1,1)-1)

请问如何在函数中同时使用两个条件

例:在IF同时使用条件B1>0和B1<10< p="">

解答：and(B1>0,B1<10)< p="">

用TRIM把“中 心 是”中间的空格去掉

解答：用SUBSTITUDE（）函数，多少空格都能去掉。如A1中有：中 心 是 则在B1中使用=SUBSTITUTE(A1," ","")就可以了。注意：公式中的第一个“ ”中间要有一个空格，而第二个“”中是无空格的。

如何统计某个列有数字的个数

解答：=COUNT(A:A)

如何统计此次自动筛选 出来共有的记录条数

解答：用 counta 统计

如何判断某个单元格包含某个字符

解答：设A1=LOVE，查找字母L是否在A1中， =IF(ISERROR(SEARCH("L",A1)),"NO","YES")

在单元格返回工作表名称

解答：函数方法： =MID(CELL("filename"),FIND("]",CELL("filename"))+1,100)

使用vlookup函数的问题

当时有两千多人的考试成绩要与花名册挂接，考试成绩放在sheet km1中，花名册放在sheet hmc中，他们共有字段为准考证号，我的想法是根据准考证号，用vlookup函数查找相应的成绩并放在相应的人员下。

sheet km的准考证号放在第一列，考试成绩放在第二列，查找范围是$a$2:$b$2265，sheet hmc的准考证号党在第一列。

公式为：

vlookup(a2,km!$a$2:$b$2265,2,false)

公式应该没什么问题，但只能找到很少的纪录(<60),究竟是什么地方除了问题，请高手指点！< p="">

解答1：可以用SUMIF函数解决：

=SUMIF(km!$A$2:$B$2131,A2,km!$B2:$B$2131)

(作者注：将sheet km下的所有准考证号都转化为文本，再使用vlookup函数，一切正常！vlookup函数查找区域必须转化为文本！)

20列间隔3列求和

解答：假设a1至t1为数据（共有20列），在任意单元格中输入公式：=SUM(IF(MOD(TRANSPOSE(ROW(1:20)),3)=0,(a1:t1))

按ctrl＋shift＋enter结束即可求出每隔三行之和。

WORD向EXCEL格式转换时一个单词或汉字分别填入EXCEL中的一个单元格中

解答：在WORD中利用“替换”功能，把每个字符后面都加上一制表符，（在“查找”框中单击“高级”按钮，弹出“高级对话框”，把光标置入“查找”框内，在“特殊字符”中单击“任意字符”，再把光标置入“替换”框内，在“特殊字符”中单击“要查找的文字”，再单击“制表符”，再全部替换）

然后复制或剪切，在EXCEL中粘贴即可。

用字母在单元格里面填入平方米

解答1：在编辑状态下，选中“2”，按鼠标右键，选择“设置单元格格式”，选“上标”

解答2：按[ALT]+数字键178[ENTER]

从身份证号码中提取性别

Q： A1单元格中是15位的身份证号码，要在B1中显示性别(这里忽略15位和18位身份证号码的判别） B1=if(mod(right(A1,1),2)>0,"male","female")请问这个公式有无问题，我试过没发现问题。但在某个网站看到作者所用的是如下公式： B1=if(mid(A1,15,1)/2=trunc(mid(A1,15,1)/2）,"female","male")

用函数将输入的月份转换为这个月所包含的天数

假设A1单元格为月份：

＝TEXT((DATE(YEAR(NOW()),A1+1,1)-1),"d")

或：=DAY(DATE(YEAR(NOW()),A1+1,0))

如何自动填充内容

A1：A20是编号，B1：B20是姓名，C1：C20是性别，当我在A21单元格输入A1：A20范围内的任意一个编号时，B21出现对应的姓名，C21出现对应的性别。该如何做，请帮忙。

解答：B21单元格公式“=IF(A21=0,"",VLOOKUP(A21,A1:C20,2,FALSE))”；C21单元格公式“=IF(A21=0,"",VLOOKUP(A21,A1:C20,3,FALSE))”这个公式也适用于A列编号不排序的情况，如果升序的话会更简单一点。

如何在excel中已有的数值前加零变成六位

比如说 25、369、1569等，操作后变成000025、000369、00156

解答：如果直接输入的话，可以在数值前面加“'”，如“'002020”；

如果处理现成的数据，或者从别处（比如从A1单元格）链接来的数据，可以用公式：

＝RIGHT("00000"&A1,6)

一次删完Excel里面多出很多的空白行

解答：1、用分面预览看看

2、用自动筛选然后删除

3、用自动筛选，选择一列用非空白，空白行就看不到了，打印也不会打出来。但是实际上还是在的，不算删除。或者用自动筛选选择空白将空白行全显出来一次删完也可以。

4、先插入一列，在这一列中输入自然数序列，然后以任一列排序，排序完后删除数据后面的空行，再以刚才输入的一列排序，排序后删除刚才插入的一列。

表1、表2分别有20个人的基本情况和其中10个人的名字，让表1的数据自动填充到表2

答：1、用lookup函数即可。要保证20人不重名；

2、假设表1的D列对应表2的E列。E2的公式：=VLOOKUP(B2,Sheet1!B:D,3,FALSE)

使用vlookup函数返回#N/A符号时将此符号用0或空格来代替

答：这样处理： =IF(ISNA(VLOOKUP(C13,A1:B10,2)),0,VLOOKUP(C13,A1:B10,2))

或：IF(ISERROR(vlookup(a1,e1:g10,2,0)),0,vlookup(a1,e1:g10,2,0))。

通过条件格式将小计和总计的行设为不同的颜色

答：输入=RIGHT(RC,1)="计"；设定字体、边框、图案；确定。

复制隐藏后的表格到一个新表格中使被隐藏的内容不显示

答：crtl+g－选可见单位格－复制－粘贴。

如何将一个工作簿中的一个Sheet隐藏

答：1、选“格式”---“工作表”----“隐藏”

2、使用VBA这样隐藏后在使用工作表保护。

Alt+F11----Ctrl+G----出现立即执行窗口，在此窗口内执行

Sheet1.Visible = xlSheetVeryHidden

这样隐藏后sheet在格式---工作表----取消隐藏是看不见的。

工资条问题

职工工资构成非常复杂，往往超过10项，因此每月发工资时要向职工提供一包含工资各构成部分的项目名称和具体数值的工资条。打印工资条时要求在每个职工的工资条间有一空行便于彼此裁开。本模板就是用EXCEL函数根据工资清单生成一便于分割含有工资细目的工资条表格。

本工资簿包含两张工资表。第1张工资表就是工资清单，称为"清单"。它第一行为标题行包括职工姓名、各工资细目。

第2张工作表就是供打印的表，称为"工资条"。它应设置为每三行一组，每组第一行为标题，第二为姓名和各项工资数据，第三行为空白行。就是说整张表被3除余1的行为标题行，被3除余2的行为包括职工姓名、各项工资数据的行，能被3整除的行为为空行。

在某一单元格输入套用函数"=MOD(ROW(),3)"，它的值就是该单元格所在行被3除的余数。因此用此函数能判别该行是标题行、数据行还是空行。

在A1单元格输入公式"=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,清单!A$1,"value-if-false"))"并往下填充，从A1单元格开始在A列各单元格的值分别为清单A1单元格的值即姓名、value-if-false、空白，姓名、value-if-false、空白，......。其中value-if-false表示MOD(ROW(),3)既不等于0又不等于1时，即它等于2时应取的值。它可用如下函数来赋值："INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())"。INDEX()为一查找函数它的格式为：INDEX(reference,row-num,col-num),其中reference为查找的区域，本例中为清单表中的A到G列，即函数中的"清单!$A:$G"，row-num为被查找区域中的行序数即函数中的INT((ROW()+4)/3)，col-num为被查找区域中的列序数即函数中的COLUMN()。第2、5、8.......行的行号代入INT((ROW()+4)/3)正好是2、3、4......，COLUMN()在A列为1。因此公式"=INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())"输入A列后，A2、A5、A8......单元格的值正好是清单A2、A3、A4......,单元格的值。这样，表的完整的公式应为"=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,清单!A$1,INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())))"。把此公式输入A1单元格，然后向下向右填充得到了完整的工资条表。

为了表格的美观还应对格式进行设置，一般习惯包括标题、姓名等文字在单元格中要取中，数字要右置，数字小数点位数也应一致，还有根据个人的爱好设置边框。本表格只需对一至三行的单元格进行设置，然后通过选择性格式设置完成全表的设置。

本工作簿的特点是1、不对清单表进行操作保持清单工作表的完整，2、全工作表只有一个公式通过填充得到全表十分方便。

例如：我的单位不大不小，有200多号人。最近领导要求把每个员工个人的工资情况打出来，分发给每位员工。每个员工的工资条上只能有两行内容：一行是分解的项目内容，如基本工资、岗位工资、总计等等；另一行是对应第一行的具体工资数额。

可以这样解决：Sheet2

1.为A1命名为K

2.为A3:A250命名为XX

从A3贴上主索引,数据要连续中间不允许有空格

3.写公式=VLOOKUP(K,DATA,2,0)

有几个字段写几个,位置随您高兴摆

4.隐藏A

Sub 打印()

Application.ScreenUpdating = False '屏幕不更新

Dim c As Object '宣告c为对象,请准备空间

[xx].Select '选取变量范围

Set c = ActiveCell '设定c对象为作用单元格

Do Until IsEmpty(c.Value) '作Do循环直到无值时跳出

[k].Value = c.Value

Set c = c.Offset(1, 0) '设定c往下进一格再取主索引值

Sheets("Sheet2").PrintPreview '工作表直接打印改PrintOut

Loop

End Sub

另一回答：我是做人事管理的也遇到过你的问题,我用如下方法解决十分方便,而不用任何代码.

方法的原理是调整打印机的自定义纸张大小到恰好显示一个人的工资条的大小,请按如下：

如：我的excel工资表将项目内容放在第一、二行，行高为20.1，用a4纸横向打印

1、在页面设置中将上、下边距，页眉、页脚均设为零，

在页面设置--工作表---顶端标题行 中输入 $1:$2,即将放在

第 一、二行的项目内容设成每页标题行

打印方向为横向

2、、在文件----打印---属性---纸张----自定义中将纸张的

宽度=280 （单位：毫米）

长度=2970 （单位：毫米）

3、打印时可选1---200页，即可打印200人的工资条，一张a4可打10人

确定后预览，可调整下边距至每页显示一张工资条

我的解决办法：我只用了一个公式: if(mod(row(),3)=0,"",if(mod(row)(),3)=1,sheet1!a$1,index(sheet1!$a:$g,int((row()+4/3),cllolumn())))你试一下

(解释：int((row()+4/3) 是这个意思：一个工资表，有列标题，接下来是工资记录。而我在此表基础上，加一个自动生 成的工资 条表， mod(row(),3)=0，在此表上用这个表示第三行保留空白行； if(mod(row)(),3)=1,sheet1!a$1，表示是第一行取标题列； index(sheet1!$a:$g,int((row()+4/3),column()）这是关键的地方：是指它不是第一行，也不三倍数的行，是记录 行的表示，你想第二行显示记录，则2+4/3=2 取工资 表的第二行记录；第五行显示记录，则5+4/3=3 取工资 表的第三行记录；第八行显示记录，则8+4/3=4 取工资 表的第四行记录；第十一行显示记录，则11+4/3=5 取工资 表的第五行记录；这个公式你可以根据具体情况变化：尤其是((row()+4/3),中的4这...

以前流行的说法是：21世纪必备的三大技能，英语，电脑，驾驶。在本世纪开始的前20年内，已经是非常明显的体现了，慢慢会成为职场的标配。未来的社会，肯定是会越来越智能化的。以后写简单的代码，可能会成为工作和生活的标配。买一个机器人回来，陪自己好好聊聊天，但这个家伙脾气好像有点大哟，能不能自己写点简单的代码，把这个家伙的脾气改小一点呢？必须能啊。

学编程难吗？等同于写作难吗?如果你的目标不是成为职业作家，写作就是很轻松的事，想想我们从小学就开始写作了。同样地，学英语难吗？健身难吗？练字难吗？一旦开始，每天花点时间，什么都不难。如果你是上班族，学点程序对你的工作效率是会有大大提升的，加薪水啊，指日可待。给漂亮妹妹展示一把，哇，你好厉害哟，一个崇拜的眼神。

好啦，

今天就以一个非常简单的小程序开始，体验一下吧。我的目标是，人人都可以会。试试这个简单的程序，2分钟，轻松搞定。

第1步：打开excel

第2步：在键盘上按下：ALT+F11,进入到以下界面。

第3步：双击“ThisWorkBook”,显示空白的页面，如下所示。

把以下代码复制，粘贴到空白页。

Sub test()

For i=1 to 100

a=a+1

Next

MsgBox a

End Sub

第4步：点击运行程序

第5步：看到运行的结果。

5050就是运行结果，这个小程序的作用是从1~100相加，结果就是5050.

点击“确认”，又会回到程序窗口。你可以把100更改为其它数，结果就是从1加到多少。试试吧

你想不想知道，从2到100的偶数相加，怎么计算呢？

【完】

数据有效性（也叫数据验证）是我们使用频率最多的一个功能，比如下拉菜单的制作、限制性输入等，那你真的会用数据有效性吗？本期通过6个经典案例与大家分享一下数据有效性的用法。

1、下拉菜单的制作

下拉菜单是数据有效性最经典的用法，这里与大家分享一下相关的制作方法。

一级下拉菜单的制作：

选择区域，点击数据——数据验证——设置——验证条件——序列，之后选择来源区域即可。

注意：来源若是手动输入，要注意的是文本之间的分隔符是英文状态下的逗号。

二级下拉菜单的制作：

先选中区域，点击公式——定义名称——根据所选内容创建——勾选首行，之后建立一级菜单和二级菜单，做二级菜单时，来源写公式=INDIRECT(单元格地址)。

2、在指定的区域输入数字

选中区域，打开验证对话框，在允许条件中选择整数，之后根据需要输入相应的区间。

3、只允许输入数字

这时选择的条件是自定义，之后输入公式=ISNUMBER(B1)=TRUE。

4、逐行输入内容

一样是选择自定义，在公式中输入=COUNTA(A$1:A13)=ROW(A1)

5、输入唯一值

同理，选择自定义输入公式=COUNTIF(A:A,A1)=1

6、输入当前时间

选中区域，之后按Ctrl+1打开设置单元格格式，然后选择自定义，输入数字格式H:MM:SS，点击确定。

这里需要在其他任意单元格输入公式=NOW()

完成以上操作之后，直接选中区域，打开数据验证，选择序列，来源设置=刚刚输入的公式的单元格。

这几个用法，你会了么？若有什么问题欢迎在下方留言。

可能很多朋友不知道Excel中VBA的用途。那什么是VBA呢？

一句话概括：在Excel中想实现什么功能，就可以用VBA语言编写一段程序去完成。

今天通过例子带大家了解Excel中的VBA！

软件说明：Excel 2010版本

场景再现：表格中点击按钮，向单元格E1中输入数字 “233”，并且能够实现清除！

第一步、打开编写VBA代码的窗口

在Excel表格中编写VBA的窗口叫VBE编辑器，有两种打开的方法。

在工作表标签上右键 - 查看代码按Alt+F11

第二步、创建写VBA代码的地方

有朋友肯定会问：“我没学会编程怎么办？”、“我都没见过代码能行吗？”；别急！我的回复是肯定的！

在哪编写代码呢？有好几种方式，今天先学最常用的：“插入” - “模块”。新建一个模块用来存放编写的代码；记住：修改模板的名称：我的VBA模板【如下图虚线标注】

第三步、开始写代码

新建模板后，在右侧的空白位置就是编写代码的地方。可以执行的VBA代码，结构是这样的：

Sub 程序名(参数)可以执行任务的代码End Sub

因为例子中我要进行输入与清除的操作，输入Sub 程序名()然后回车，End Sub就会自动输入；如下图：

在开始和结束语句之间输入代码，执行在单元格A1中输入数字"233"

Range("E1") = 123

备注：在VBA中，Range("单元格地址")来表示单元格。在单元格中输入值，直接用=值 即可(字符串两边要加双引用)，如果清空则 =""。

再编写一段清空代码：

第四步、测试运行代码

在编写代码时经常要测试是否正确。测试方式是把光标放在代码行的任意位置【下图中“测试按钮”的位置】，点击运行小按钮进行测试；同样清空代码也一样。

第五步、点击按钮执行VBA代码

在Excel中插入的图形、图片、按钮控件都可以执行VBA代码。让它们执行很简单，点击“插入” - “矩形” - “指定宏”

只需要右键菜单中点击指定宏 - 选取编写的宏名称，选择“输入”，添加输入按钮。

同样添加清除按钮：

当然自己可以调整字体的颜色、字体，让其变得更加美观！

此时，通过VBA设置的输入“233”，并可以点击清除！

第六步、保存VBA代码

此时的VBA代码应该是既有输入代码又有清空代码；最后需要保存为“启用宏的工作簿"类型【注意下图中虚线框标注】，VBA代码才能保存下来。

好了！今天的分享就到这里，是不是感觉VBA也没有想象的那么难？

赶快转发、关注吧，更多技巧尽在头条号中！

1、新建EXCEL2007空白表格。xlsx格式的,将VBA工具栏调出。如图1.1

2、点击“开发工具”然后单击插入，在下拉的菜单的表单控件里面选择“按钮”，如图2.1

3、画个方框，会弹出一个对话框“指定宏”，单击"新建"按钮，这样就会进入后台的程序书写界面，进入以后，程序的头和尾已经帮你写好了，如图3.1,你只需要在中间写入一句程序“ MsgBox("hello world") ”。

4、为了保证宏正常运行，要在EXCEL的设置中进行启用宏操作。在“开发工具-宏安全性-宏设置：启用所有宏和勾选信任对VBA工程对象模型的访问”。如图4.1

5、最后点击另存为“启用宏的工作簿”的xlsm文件，然后退出程序界面。