EXCEL公式的應用

時間：2024-10-18 14:37:50 office辦公我要投稿

相關推薦

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)