搜索
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.06整理：沈万波ExcelHome论坛Add:江苏.昆山Email:技术交流！2006-7-16使用说明按部分内容模糊查询;有两个并列条件（不同字段）的查询;处理查找错误；精确匹配查询之基本运用；数值近似匹配查询之基本运用；文本近似匹配查询之基本运用;返回同一查询结果的多列（不按原次序）的内容;区别查询结果的空白与0值;有所领悟逻辑函数按设定条件查找计算结果，可以设多项条件;按设定条件查找，返回条件的最大值;按设定条件查找，返回条件的最小值;按设定条件查找计算，返回满足条件数据的求和;一位网友编写的比VLOOKUP还强大的函数；多种函数组合，形成数组公式的查找功能函数；DMAXDMINDSUMWLOOKUP模糊查找应用实例功能描述学有所得应用自如迷茫之中vlookup函数函数基础vlookupvlookupHLOOKUPDCOUNT常用函数函数精华日期函数vlookupvlookupvlookupvlookup按类型查询查找函数vlookupvlookupvlookup地址函数统计函数文本函数查找后计算结果；按设定条件查找，可以设多项条件;使用数组常量的查询；从右向左查询；DGET退出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(T