Excel函数应用集-v3.0(函数初学及提高的超级好教材)Excel-Function-Gathe

421.可以等于“1”用POWER实现;1=POWER(1,1)2.可以等于“2”用SUM实现;2=SUM(1,1)3.可以等于“不理解”用IF实现;不理解=IF(1+1=2,不理解,可以理解)1你4.可以等于“你,我,他”用VLOOKUP实现;2我我=VLOOKUP(SUM(1+1),$A$13:$B$15,2,0)3他5.可以等于“???”等着你去想吧!???自己想吧!学习函数应该超越这个答案!1+1=跳过此页跳过说明页答案可以等于“你,我,他”用VLOOKUP实现;=VLOOKUP(SUM(1+1),$A$13:$B$15,2,0)可以等于“???”等着你去想吧!回家学习函数应该超越这个答案!枫桥夜泊月落乌啼霜满天江枫渔火对愁眠姑苏城外寒山寺夜半钟声到客船唐|张继Excel函数应用集v3.02006本合集汇总Excel大部份实用函数，用通俗易懂的语言解析Excel函数应用实例，大部份内容来自ExcelHome技术论坛版,我在尽可能保持作者原创风格的情况下加以整合，一部份是自己工作之余总结，我将其集中到一起，让所有喜欢Office朋友们，充分地享用Excel函数带来的乐趣，也让功能强大Excel函数得到应有的发挥，制作的主旨是能与大家共同学习，共同提高！更多精彩资源：欢迎访问ExcelHome技术论坛大部份实用函数，用通俗易懂的语言解析ExcelHome技术论坛-函数我在尽可能保持作者原创风格的情况下加以整合，一部份是自己工作之余总结，我将其集中到一起，让所有喜欢Excel函数的函数带来的乐趣，也让功能强大函数得到应有的发挥，制作的主旨是能与大家共同学习，共V3.01整理：沈万波ExcelHome论坛Add:江苏.昆山Email:技术交流！统计函数文本函数Excel的常见引用方法解释；数值与文本转换；使用括号将改变Excel的计算顺序；GET.CELL参数(类型值)大全；百分率按类型查询查找函数基础知识之一基础知识之二基础知识之三地址函数括号的使用地址引用知识TEXT常用函数函数精华日期函数GET.CELL参数关于逻辑字符代码单元格格式应用实例功能描述学有所得应用自如迷茫之中度量衡单位知识函数函数基础基础知识之四AND关于计息的函数LEN＆LENBHYPERLINK日期函数颜色函数查找类函数计算颜色单元格；有所领悟逻辑函数判断真假函数；用于计算百分率的函数应用；关于计息的函数；计算中英文字符的函数；超级链接函数，本合集用得最多的一个函数；与日期相关的函数汇集；按设定值查找，返回符合要求的数据；2006-7-16使用说明1-255数字各自对应转换的符号；单元格的所有格式；Excel的天条__论种种限制；EXCEL的六大“条件”功能；定义名称的妙处；微软的Excel函数使用帮助；实际中逻辑的应用；国际标准的度量衡单位；退出PROPER&UPPER主页AABBthisisaTITLEThisIsATitle=PROPER(C4)转换第一位2-cent'sworth2-Cent'SWorth=PROPER(C5)totalTOTAL=UPPER(C7)转换全部YieldYIELD=UPPER(C8)功能将文本字符串的首字母及任何非字母字符之后的首字母转换成大写。将其余的字母转换成小写。金额大小写相互转换人民币中文大写Numbers壹仟贰佰叁拾肆元伍角柒分#NAME?=SUZI(C18)壹万贰仟叁佰肆拾伍元陆角捌分#NAME?=SUZI(C19)叁万零叁元叁角叁分#NAME?=SUZI(C20)壹拾万捌仟零肆元肆角肆分#NAME?=SUZI(C21)伍佰万零伍元伍角伍分#NAME?=SUZI(C22)陆仟万零陆元陆角陆分#NAME?=SUZI(C23)柒亿零柒元柒角柒分#NAME?=SUZI(C24)捌佰捌拾万元零捌角整#NAME?=SUZI(C25)捌佰零捌万元零捌角整#NAME?=SUZI(C26)这是论坛一位网友用VBA编写的，大家使用是请感谢那位网友！使用方法：将上面的表打开另存为保存类型选MicrosoftofficeExcel加载宏！在需使用时工具加载宏,中点浏览，选择刚才保存的宏文件，确定。这样就可以象内置的函数一样使用本自定义函数了。注意：结果出现“#NAME?”，说明没有加载宏！数字转换英文用函数实现：金额大写1253壹仟贰佰伍拾叁元整1005.5壹仟零伍元伍角整5005伍仟零伍元整15000壹万伍仟元整用函数实现大写中文金额转为阿拉伯数字数字转为大写中文金额大写中文金额转为阿拉伯数字用宏实现：打开某个EXCEL表，点取“工具→宏→VisualBasic编辑器”，则进入到VisualBasic窗口，再点取“插入→模块”，则会出现一新窗口，复制redwin给出的程序，保存，关闭VisualBasic窗口，回到EXCEL窗口，再点取保存，保存名可写“自定义函数集”，保存类型则选取EXCEL加载宏，路径使用系统默认的保存即可。接着，点取“工具→加载宏”，在弹出的窗口中，则会出现一个名称与刚才保存的文件名相同的宏。选中、确定即可。转换时用SpellNumber（）函数，例如：＝SpellNumber（111.11）则出现“OneHundredElevenDollarsandElevenCents”'此过程为西人所写，数字转英文谨推荐给大家.'****************'MainFunction*'****************FunctionSpellNumber(ByValMyNumber)  DimDollars,Cents,Temp  DimDecimalPlace,Count  ReDimPlace(9)AsString  Application.VolatileTrue  Place(2)=Thousand  Place(3)=Million  Place(4)=Billion  Place(5)=Trillion    'Stringrepresentationofamount  MyNumber=Trim(Str(MyNumber))    'Positionofdecimalplace0ifnone  DecimalPlace=InStr(MyNumber,.)  'ConvertcentsandsetMyNumbertodollaramount  IfDecimalPlace0Then      Cents=GetTens(Left(Mid(MyNumber,DecimalPlace+1)&00,2))      MyNumber=Trim(Left(MyNumber,DecimalPlace-1))      EndIf  Count=1  DoWhileMyNumber    Temp=GetHundreds(Right(MyNumber,3))    IfTempThenDollars=Temp&Place(Count)&Dollars      IfLen(MyNumber)3Then        MyNumber=Left(MyNumber,Len(MyNumber)-3)        Else        MyNumber=        EndIf        Count=Count+1        Loop  SelectCaseDollars      Case        Dollars=NoDollars      CaseOne        Dollars=OneDollar      CaseElse        Dollars=Dollars&Dollars  EndSelect  SelectCaseCents      Case        Cents=andNoCents      CaseOne        Cents=andOneCent      CaseElse        Cents=and&Cents&Cents  EndSelect  SpellNumber=Dollars&Cents  EndFunction'*******************************************'Convertsanumberfrom100-999intotext*'*******************************************FunctionGetHundreds(ByValMyNumber)  DimResultAsString  IfVal(MyNumber)=0ThenExitFunction  MyNumber=Right(000&MyNumber,3)    'Convertthehundredsplace  IfMid(MyNumber,1,1)0Then      Result=GetDigit(Mid(MyNumber,1,1))&Hundred      EndIf  'Convertthetensandonesplace  IfMid(MyNumber,2,1)0Then      Result=Result&GetTens(Mid(MyNumber,2))      Else      Result=Result&GetDigit(Mid(MyNumber,3))      EndIf  GetHundreds=Result  EndFunction'*********************************************'Convertsanumberfrom10to99intotext.*'*********************************************FunctionGetTens(TensText)  DimResultAsString  Result=        'nulloutthetemporaryfunctionvalue  IfVal(Left(TensText,1))=1Then  'Ifvaluebetween10-19      SelectCaseVal(TensText)      Case10:Result=Ten        Case11:Result=Eleven        Case12:Result=Twelve        Case13:Result=Thirteen        Case14:Result=Fourteen        Case15:Result=Fifteen        Case16:Result=Sixteen        Case17:Result=Seventeen        Case18:Result=Eighteen        Case19:Result=Nineteen        CaseElse        EndSelect    Else                      'Ifvaluebetween20-99      SelectCaseVal(Left(TensText,1))        Case2:Result=Twenty        Case3:Result=Thirty        Case4:Result=Forty        Case5:Result=Fifty        Case6:Result=Sixty        Case7:Result=Seventy        Case8:Result=Eighty        Case9:Result=Ninety        CaseElse      EndSelect      Result=Result&GetDigit_        (Right(TensText,1))