如何使用Excel的自定义函数功能
虽然Excel中已有大量的内置函数,但有时可能还会碰到一些计算无函数可用的情况。假如某公司采用一个特殊的数学公式计算产品购买者的折扣,如果有一个函数来计算岂不更方便?下面就说一下如何创建这样的自定义函数。自定义函数,也叫用户定义函数,是Excel最富有创意和吸引力的功能之一,下面我们在Visual Basic模块中创建一个函数。
在下面的例子中,我们要给每个人的金额乘一个系数,如果是上班时的工作餐,就打六折;如果是加班时的工作餐,就打五折;如果是休息日来就餐,就打九折。
首先打开“工具”菜单,单击“宏”命令中的“Visual Basic编辑器”,进入Visual Basic编辑环境,在“工程-VBAobject”栏中的当前表上单击鼠标右键,选择“插入”-“模块”,在右边栏创建下面的函数rrr,代码如下:
Function rrr(tatol, rr) If rr = "上班" Then rrr = 0.6 * tatol ElseIf rr = "加班" Then rrr = 0.5 * tatol ElseIf rr = "休息日" Then rrr = 0.9 * tatol End If End Function
这时关闭编辑器,只要我们在相应的列中输入rrr(F2,B2),那么打完折后的金额就算出来了
绛旓細鍦ㄥ綋鍓嶅伐浣滅翱涓娇鐢ㄥ垱寤虹殑鑷畾涔夊嚱鏁帮紝骞朵笖鍙互鍦ㄥ嚱鏁板垪琛ㄧ殑鈥滅敤鎴峰畾涔夆濈被鍒腑鎵惧埌姝よ嚜瀹氫箟鍑芥暟銆傝浣縠xcel鑷畾涔夊嚱鏁拌兘澶熷簲鐢ㄥ湪鍏朵綑宸ヤ綔绨匡紝闇灏嗚繖涓寘鍚嚜瀹氫箟鍑芥暟鐨勫伐浣滅翱鍙﹀瓨涓衡滃姞杞藉畯鈥濄備緷娆″崟鍑烩滄枃浠垛濃啋鈥滃彟瀛樹负鈥濃啋鈥滃叾浠栨牸寮忊濓紝鎵撳紑鈥滃彟瀛樹负鈥濆璇濇锛屽湪鈥滀繚瀛樼被鍨嬧濅笅鎷夊垪琛ㄤ腑閫夋嫨鈥淓xcel...
绛旓細浠ヤ笅鏄浣曞湪 Excel 涓垱寤鸿嚜瀹氫箟鍑芥暟鐨勬楠わ細1. 鎵撳紑 Excel锛岄夋嫨鈥滄枃浠垛>鈥滈夐」鈥>鈥滆嚜瀹氫箟鍔熻兘鍖衡銆2. 鍦ㄢ滈夋嫨瑕佸湪鍔熻兘鍖轰腑鏄剧ず鐨勫懡浠も濅笅锛岄変腑鈥滃紑鍙戝伐鍏封濓紝鐒跺悗鍗曞嚮鈥滄坊鍔>>鈥濄3. 鍦ㄢ滄柊寤洪夐」鍗♀濅笅锛岃緭鍏ヤ竴涓悕绉帮紝渚嬪鈥滄垜鐨勮嚜瀹氫箟鍑芥暟鈥濓紝鐒跺悗鍗曞嚮鈥滅‘瀹氣濄4. 鍗曞嚮鏂伴夐」鍗′笂...
绛旓細棣栧厛鎵撳紑鈥滃伐鍏封濊彍鍗曪紝鍗曞嚮鈥滃畯鈥濆懡浠や腑鐨勨淰isual Basic缂栬緫鍣ㄢ濓紝杩涘叆Visual Basic缂栬緫鐜锛屽湪鈥滃伐绋嬶紞VBAobject鈥濇爮涓殑褰撳墠琛ㄤ笂鍗曞嚮榧犳爣鍙抽敭锛岄夋嫨鈥滄彃鍏モ-鈥滄ā鍧椻濓紝鍦ㄥ彸杈规爮鍒涘缓涓嬮潰鐨鍑芥暟rrr锛屼唬鐮佸涓嬶細Function rrr(tatol, rr) If rr = "涓婄彮" Then rrr = 0.6 * tatol ElseIf rr =...
绛旓細1銆佹紨绀浣跨敤鐗堟湰涓簅ffice Excel锛岃蒋浠剁増鏈负office瀹跺涵鍜屽鐢熺増2016銆2銆侀鍏堟墦寮Excel宸ヤ綔琛ㄦ牸锛屽湪琛ㄦ牸涓緭鍏ョ敤浜庤绠楁眰鍜屾紨绀虹殑鏁版嵁銆3銆侀鍏堝湪濡傚浘鎵绀虹殑D3鍗曞厓鏍间腑杈撳叆鍏紡鈥=B3+C3鈥濓紝璇ュ叕寮忚〃绀哄b3鍜宑3鍗曞厓鏍间腑鐨勫唴瀹硅繘琛屾眰鍜岋紝缁撴灉鏀惧埌d3涓4銆佽緭鍏ュ畬鎴愬悗鐐瑰嚮鍥炶溅鍗冲彲鐪嬪埌鎴戜滑宸茬粡寰楀埌浜嗕袱涓崟鍏...
绛旓細1.涓鍙拌嫻鏋滅數鑴戙2.Excel for Mac 2011銆3.姊舰闈㈢Н鍑芥暟銆鑷畾涔夊嚱鏁璁剧疆鍙婁娇鐢ㄦ柟娉曪細1.浣跨敤Excel for Mac 2011鎵撳紑涓涓猠xcel琛ㄦ牸锛岀偣鍑诲伐鍏-瀹-Visual Basic缂栬緫鍣ㄣ2.閫夋嫨宸ヤ綔绨匡紝鐐瑰嚮榧犳爣鍙抽敭锛岄夋嫨鎻掑叆-妯″潡銆3.杈撳叆鑷畾涔夊嚱鏁般4.杩斿洖琛ㄦ牸鐣岄潰锛岄夋嫨瀛樺偍璁$畻缁撴灉鐨勫崟鍏冩牸(濡侱3)锛屽湪鍏紡鏂囨湰妗...
绛旓細Len(MyStr) 鈥 1)End Function2銆佺偣鍑汇愭枃浠躲戙愬彟瀛樹负銆戯紝鏂囦欢淇濆瓨绫诲瀷閫夋嫨鈥Excel鍔犺浇瀹忊濄傚畠灏嗚嚜鍔ㄥ瓨鍏DDIN鏂囦欢澶逛腑銆3銆佷粠瑕佷娇鐢ㄦ鍑芥暟鐨凟XCEL鏂囦欢鐨勩愬紑鍙戝伐鍏枫-銆愬姞杞藉畯銆戜腑鍕鹃夋墍淇濆瓨鐨勫畯鏂囦欢鍚嶏紝纭畾銆傚氨鍙互鍦ㄥ伐浣滆〃涓殑闅忓績鎵娆茬殑浣跨敤鑷畾涔鐨勬寜鏉′欢杩炴帴鏂囨湰鍑芥暟鍟︺4銆佺湅涓涓嬩娇鐢ㄦ晥...
绛旓細1銆侀鍏堟墦寮涓涓Excel琛ㄦ牸锛屽湪鑿滃崟鏍忔壘鍒般愬紑鍙戝伐鍏枫戦夐」锛3銆佸湪缂栬緫绐楀彛锛屾垜浠緭鍏ュ涓嬪唴瀹癸細Function鍚堝苟璁$畻(a,b,c)鍚堝苟璁$畻=(a+b+c)EndFunction 瀹冪殑鎰忔濇槸锛宎bc涓変釜鍙傛暟鎸夌収鍚堝苟璁$畻鐨勫嚱鏁拌繘琛岃绠楋紝鍗(a+b+c)銆備箣鍚庢垜浠偣鍑诲叧闂寜閽4銆侀殢鍚庯紝杩斿洖Excel琛ㄦ牸锛岃繖鏃跺鑷畾涔夊嚱鏁宸茬粡璁剧疆瀹屾垚銆
绛旓細鍙傛暟浠嬬粛锛 绗竴鍙傛暟锛(蹇呴』)鎸囧畾杩炴帴绗︼紝鍙互鏄枃鏈父閲忥紝涔熷彲浠ユ槸鍗曞厓鏍煎紩鐢ㄣ傚拷鐣ョ┖鍗曞厓鏍笺傜浜屽弬鏁帮細(蹇呴』)闇瑕佽繛鎺ョ殑鏂囨湰鎴栧崟鍏冩牸鍖哄煙銆傜涓夈佸洓绛夊弬鏁帮細(鍙)鍚岀浜屽弬鏁 鏁堟灉灞曠ず锛氬垱寤鑷畾涔夊嚱鏁鐨勬柟娉曪細鏂板缓涓涓EXCEL鏂囨。锛屽彧淇濈暀涓涓伐浣滆〃锛屽叾浣欏垹闄ゃ傛寜ALT+F11锛屾墦寮VBE缂栬緫鍣紝鏂板缓涓...
绛旓細Excel涓殑鍑芥暟寰寰涓嶈兘婊¤冻鎵鏈夊彲鑳藉嚭鐜扮殑鎯呭喌锛屼簬鏄垜浠湁鏃堕渶瑕佽嚜宸卞垱寤哄嚱鏁版潵瀹屾垚鐗瑰畾鐨勫姛鑳姐備粖澶╁皬缂栧氨涓庡ぇ瀹朵竴璧峰垎浜竴涓濡備綍鍦‥xcel涓垱寤鑷畾涔夊嚱鏁骞朵笖搴旂敤鍒Excel琛ㄦ牸涓锛屽笇鏈涘澶у鑳芥湁鎵甯姪銆傛墦寮Excel绋嬪簭锛屾寜閿洏缁勫悎閿淎lt+F11鈥濇垨鍒囨崲鑷斥滃紑鍙戝伐鍏封濆姛鑳藉尯骞剁偣鍑烩淰isual Basic鈥濇寜閽繘鍏BA...
绛旓細excel鑷畾涔夊嚱鏁璇存槑鏂囧瓧锛屽彲浠浣跨敤 Application.MacroOptions 鏂规硶鏉ュ啓銆備笅闈㈡槸涓婇潰鎴浘DA鑷畾涔夊嚱鏁扮浉鍏崇殑VBA浠g爜锛欶unction DA$(num As Long, mType As Byte) If mType > 1 And mType > 2 Then DA = "" ...