搜索
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:技术交流！2006-7-16使用说明1-255数字各自对应转换的符号；单元格的所有格式；Excel的天条__论种种限制；EXCEL的六大“条件”功能；定义名称的妙处；微软的Excel函数使用帮助；实际中逻辑的应用；国际标准的度量衡单位；计算颜色单元格；有所领悟逻辑函数判断真假函数；用于计算百分率的函数应用；关于计息的函数；计算中英文字符的函数；超级链接函数，本合集用得最多的一个函数；与日期相关的函数汇集；按设定值查找，返回符合要求的数据；AND关于计息的函数LEN＆LENBHYPERLINK日期函数颜色函数查找类函数应用实例功能描述学有所得应用自如迷茫之中度量衡单位知识函数函数基础基础知识之四括号的使用地址引用知识TEXT常用函数函数精华日期函数GET.CELL参数关于逻辑字符代码单元格格式按类型查询查找函数基础知识之一基础知识之二基础知识之三地址函数统计函数文本函数Excel的常见引用方法解释；数值与文本转换；使用括号将改变Excel的计算顺序；GET.CELL参数(类型值)大全；百分率退出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))