EXCEL公式的应用

Excel中公式与函数的应用教案设计参考推荐度：
相关推荐

EXCEL公式的应用

　　篇一：员工花名册EXCEL制作时间提醒公式

　　试用期到期时间提醒

　　=IF(AND(A2-TODAY()<=10,a2-today()>0),"还有"&A2-TODAY()&"天到期","") 说明：1、在A2单元格（视具体表格而定, 替换A2）内输入日期格式的试用期到期时间；

　　2、在B2（目标单元格）内输入（黏贴）上述格式，按回车键，生成提醒天数；

　　3、单击填充柄向下拖动，完成其它单元格的公式复制。

　　4、本格式提示时间约定为10天，具体需要，可视情况自我设定。

　　劳动合同到期时间提醒

　　=IF(AND(A2-TODAY()<=60,a2-today()>0),"还有"&A2-TODAY()&"天到期","") 说明：1、在A2单元格（视具体表格而定, 替换A2）内输入日期格式的合同到期时间；

　　2、在B2（目标单元格）内输入（黏贴）上述格式，按回车键，生成提醒天数；

　　3、单击填充柄向下拖动，完成其它单元格的公式复制。

　　4、本格式提示时间约定为60天，具体需要，可视情况自我设定。

　　由身份证号码自动生成年龄

　　=IF(LEN(A2)>15,YEAR(NOW())-MID(A2,7,4),YEAR(NOW())-(MID(A2,7,2)+1900))

　　说明：1、在A2单元格（视具体表格而定，替换A2）内输入身份证号码；

　　2、在B2（目标单元格）内输入（黏贴）上述格式，按回车键，生成年龄；

　　3、单击填充柄向下拖动，完成其它单元格的公式复制。

　　由身份证号码自动生成性别

　　=IF($(A2)=0," ",IF(LEN($(A2))=18,IF(MOD(VALUE(MID($(A2),17,1)),2)=1,"男","女"),IF(MOD(VALUE(MID($(A2),15,1)),2)=1,"男","女")))

　　说明：1、在A2单元格（视具体表格而定，替换A2）内输入身份证号码；

　　2、在B2（目标单元格）内输入（黏贴）上述格式，按回车键，生成工龄；

　　3、单击填充柄向下拖动，完成其它单元格的公式复制。

　　由入职时间自动生成工龄

　　=IF(MONTH(NOW())>MONTH(A2),YEAR(NOW())-YEAR(A2),YEAR(NOW())-YEAR(A2)-1)&"年零

　　"&IF(MONTH(NOW())>MONTH(A2),MONTH(NOW())-MONTH(A2),MONTH(NOW())+12-MONTH(A2))&"个月"

　　说明：1、在A2单元格（视具体表格而定，替换A2）内输入日期格式的入职时间；

　　2、在B2（目标单元格）内输入（黏贴）上述格式，按回车键，生成工龄；

　　3、单击填充柄向下拖动，完成其它单元格的公式复制。

　　篇二：excel公式

　　一、合同到期提醒

　　假如 A1单元格显示签订合同时间 2005-11-05

　　B1单元格显示合同到期时间 2007-10-31

　　当前时间由系统提取出来假设当前日期为 2007-10-1

　　想让C1单元格显示: 在合同即将到期30天内提醒:"合同即将到期", 且每日提醒最好弹出提醒对话框,点击确定当日不再提醒,点击取消当日在一定时间内继续提醒

　　=IF(ISERROR(DATEDIF(TODAY(),B2,"D")),"已过期",IF(DATEDIF(TODAY(),B2,"D")>30,"未到期",IF(DATEDIF(TODAY(),B2,"D")=30,"今天到期","差"&DATEDIF(TODAY(),B2,"D")&"天到期") 差多少天到期的合同如何让反应的文字以红色字体体现出来,这样好统计？

　　选中C列,格式>条件格式>公式>=AND(DATEDIF(TODAY(),B2,"D")<=30,datedif(today(),b2,"d")>0),再点击格式>在单元格格式对话框中选图案>选红色.确定。

　　二、新税法下的个税计算公式

　　公式=ROUND(MAX((应发工资-3500)*{3,10,20,25,30,35,45}/100-{0,21,111,201,551,1101,2701}*5,0),2)；其中速扣数的公倍数5也可以乘以到里面。

　　三、年龄（岁数）和工龄的计算公式

　　公式=DATEDIF(I4,TODAY(),"y")&"年"&DATEDIF(I4,TODAY(),"ym")&"月"&DATEDIF(I4,TODAY(),"md")&"日"；其中I4为数据源。

　　四、平均年龄计算公式

　　公式=AVERAGE(TODAY()-H3:H24)/365；其中H3:H24为计算范围；注：更新范围时，单回车键不行，需要ctrl+shift+回车键！

　　五、数据查询并定位

　　1、O35=（输入查找内容）；

　　2、O36=IF(ISERROR(MATCH(O35,sheet1!C:C,0)),"",MATCH(O35,sheet1!C:C,0))。（意思为显示的位置,其中C为数据列）；

　　3、O37=HYPERLINK("#sheet1！C"&O36,IF(ISNUMBER(O36),"点击显示","没有找到"))。（意思是查询结果

　　注：可以应用在从大量数据中查找所需数据，当然你也可以通过Excel自带的查询工具（ctrl+f为快捷键

　　六、如何在Excel中插入Flash时钟的

　　动态时钟不是用函式运算、自动化功能制作出来的,这只是简单的插入Flash文挡的功能而已，而且只要你有Flash文件，任何人都可以轻松自行制作。

　　制作方法：

　　第1步首先打开一个空白Excel文件，点击“视图” → 然后点选【控件工具箱】，→点击“其他控件”。

　　第2步然后再点击[Shockwave Flash Object]项目，表示要插入Flash物件。

　　第3步接下来，鼠标会变成一个小十字，此时可以在Excel编辑区中画一个大小适中的方框，这个方框就是用来显示Flash时钟的内容的。

　　第4步画好方框后，接着点击【属性】，准备设置属性。

　　第5步出现「属性」对话框后，将DeviceFont设置成False；将Eebedmovie设置成True；将Enabled设置成True；将Locked设置成True；将Loop设置成True；将Menu设置成False；并在“Movie”右侧填入时钟的地址与名称。

　　第6步退出设计模式，全部完成。

　　七、与身份证相关公式

　　1、身份证验证

　　公式=IF(LEN(A2)=18,MID("10X98765432",MOD(SUMPRODUCT(MID(A2,ROW(INDIRECT("1:17")),

　　1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1)=RIGHT(A2),IF(LEN(C3)=15,ISNUMBER(--TEXT(19&MID(C3,7,6),"#-00-00"))))；

　　2、提取性别

　　公式=CHOOSE(MOD(MID(A2,LEN(A2)/2+8,1),2)+1,"女","男")；或

　　公式=IF(MOD(IF(LEN(A2)=15,MID(A2,15,1),MID(A2,17,1)),2)=1,"男","女")。

　　3、判断生肖

　　公式=CHOOSE(MOD(MID(A2,LEN(A2)/2,2),12)+1,"鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪")；

　　以上A2为身份证数据源；

　　4、提取出生日期

　　公式=TEXT(RIGHT(19&MID(A2,7,LEN(A2)/2-1),8)," #-##-##")；

　　5、提取日月

　　=TEXT(IF(LEN(A1)=18,MID(A1,11,4),IF(LEN(A1)=15,MID(A1,9,4),"证号位数不对")),"00月00日")

　　如果都是18位的证号,公式如下

　　=TEXT(MID(A1,11,4),"00月00日")

　　如果已经有提取好的出生年月日在B1单元格

　　公式为 =TEXT(B2,"M月D日")’

　　6、提取年龄（整岁）

　　公式=INT(DAYS360(TEXT(RIGHT(19&MID(A2,7,LEN(A2)/2-1),8),"#-##-##"),TODAY())/360)；

　　7、判断星座

　　公式=VLOOKUP(VALUE("1900-"&TEXT(MID(A2,LEN(A2)/2+2,4),"#-##")),{1,"摩羯座";21,"水瓶座";50,"双鱼座";81,"白羊座";112,"金牛座";143,"双子座";174,"巨蟹座";205,"狮子座";236,"处女座";268,"天秤座";298,"天蝎座";328,"人马座";357,"摩羯座"},2,TRUE)；

　　8、15位转换为18位

　　公式=IF(LEN(C2)=15,REPLACE(C2,7,,19)&MID("10X98765432",MOD(SUMPRODUCT(MID(REPLACE(C2,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),C2)；

　　八、选中单元格的行与列变颜色

　　1、条件格式里用公式里填，应用于=$1: $65536

　　公式=(ROW()=CELL("row")) + (COLUMN()=CELL("col"))

　　vba编辑器里填（用ALT+F11调出）：

　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　Calculate

　　End Sub

　　颜色在格式里自己调；

　　2、或者直接在 vba编辑器里填：

　　Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next 4 g3 2 o& C2 h1 a. |1 t

　　Cells.FormatConditions.Delete

　　iColor = Int(50 * Rnd() + 2)