日常办公Offce相关函数应用.docVIP

日常办公的EXCEL函数应用 一、身份证号分男女（报邮政开户）： =IF(MOD(RIGHT(LEFT(D4,17)),2),男,女) 或=IF(MOD(MID(D4,IF(LEN(D4)=15,15,17),1),2),男,女) 二、取姓名第一个字母（报邮政开户）： 打开Excel-工具-宏-Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键-插入-模块下面会出现一个名为模块1，点击在右边的空白栏中粘贴以下内容：Function getpychar(char)tmp = 65536 + Asc(char)If (tmp = 45217 And tmp = 45252) Thengetpychar = AElseIf (tmp = 45253 And tmp = 45760) Thengetpychar = BElseIf (tmp = 45761 And tmp = 46317) Thengetpychar = CElseIf (tmp = 46318 And tmp = 46825) Thengetpychar = DElseIf (tmp = 46826 And tmp = 47009) Thengetpychar = EElseIf (tmp = 47010 And tmp = 47296) Thengetpych