Excel怎么用模块做出标准答案?
参考资料取自百度经验,链接在下方,作者@鱼木混猪,希望对你们有帮助。
首先,打开Excel,同时按下Alt+F11键,打开VBE界面,如下图所示。在VBE界面中,单击图片中所示的左上角空白处,选择“插入“,”模块“。
此时,就插入了一个模块,后面的代码就要放到这个模块中,保证右侧空白区域是模块代码的编辑区(最保险的做法是双击模块),然后执行下一步操作。
将下面的代码全部复制粘贴到空白区域。
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
Case -19775 To -19219: pinyin = "C"
Case -19218 To -18711: pinyin = "D"
Case -18710 To -18527: pinyin = "E"
Case -18526 To -18240: pinyin = "F"
Case -18239 To -17923: pinyin = "G"
Case -17922 To -17418: pinyin = "H"
Case -17417 To -16475: pinyin = "J"
Case -16474 To -16213: pinyin = "K"
Case -16212 To -15641: pinyin = "L"
Case -15640 To -15166: pinyin = "M"
Case -15165 To -14923: pinyin = "N"
Case -14922 To -14915: pinyin = "O"
Case -14914 To -14631: pinyin = "P"
Case -14630 To -14150: pinyin = "Q"
Case -14149 To -14091: pinyin = "R"
Case -14090 To -13319: pinyin = "S"
Case -13318 To -12839: pinyin = "T"
Case -12838 To -12557: pinyin = "W"
Case -12556 To -11848: pinyin = "X"
Case -11847 To -11056: pinyin = "Y"
Case -11055 To -2050: pinyin = "Z"
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function
然后关闭这个新界面,返回Excel,就可以像Excel自带的函数一样使用这个自定义的Getpy()函数了,它只有一个参数,参数可以直接指定单元格,也可以直接输入字符。
需要注意的是,Getpy函数,只返回汉字拼音的首字母,如果是其他的字母或者数据等非汉字文本,会返回原来的值,如下图所示:
好了,关于Excel中如何用函数实现提取汉字的首字母的经验就介绍到这里。如果有什么不明白的地方,可以联系作者。欢迎阅读作者的其他百度经验,提高Excel能力。
END
这个自定义函数的原理是什么呢?其实很简单,就是通过判断汉字的ASCII码,来转换为指定的字母,然后再利用一个简单的单个汉字的提取,来实现对一串汉字提取首字母的功能。上面的函数是提取首字母大写,明白了这个道理,就可以很轻松地改为首字母小写了。
如果经常要用到这个函数,可以将模块导入为加载项,然后加在到Excel中,这样就几乎相当于Excel自带的函数,随时可以使用了。关于加载项的设置,可以看一下我的另外一篇经验。
注意事项
参考资料链接:网页链接
绛旓細鏂规硶鍏細鍒╃敤VBA鑷畾涔夊嚱鏁扮殑鏂规硶锛氭寜ALT+F11鎵撳紑VBE缂栬緫鍣紝鍦ㄥ伐绋嬬獥鍙d笅鐨凪icrosoft Excel瀵硅薄鍙抽敭-鎻掑叆-妯″潡锛屾柊寤轰竴涓ā鍧1銆傜矘璐村涓嬩唬鐮侊細Option Explicit Function grade(r As Range)If r < 60 Then grade = "涓嶅強鏍"ElseIf r >= 60 And r < 70 Then grade = "鍙婃牸"ElseIf r >= 70...
绛旓細鎸塅5鎴栬呯偣鑿滃崟锛氳繍琛--杩愯瀛愯繃绋/鐢ㄦ埛绐椾綋鏉ユ墽琛岃瀹忥紝濡傛灉鍑虹幇閫夋嫨鎵ц瀹忕殑瀵硅瘽妗嗭紝鍒欓夋嫨鍒氭墠杈撳叆鐨則est锛岀偣鍑昏繍琛屽嵆鍙傜▼搴忎細鎻愮ず鎬诲叡鎵惧埌浜嗗灏戜釜A鍒椾腑鏈夎孊鍒椾腑娌℃湁鐨勬暟鎹紝鐐瑰嚮纭畾鍚庯紝鍥炲埌excel灏辫兘鐪嬪埌C鍒椾腑浼氬嚭鐜癆涓湁B涓病鏈夌殑鏁版嵁銆傛敞鎰忥紝鐢变簬瀹忓畨鍏ㄦч檺鍒讹紝濡傛灉涓嬫鎵撳紑鐨勬椂鍊欐彁绀哄疄瀹...
绛旓細Excel鏌ヨ妯″潡鍙互鏈変袱绉嶆柟寮:1.浣跨敤瀹忓綍鍒舵煡璇㈡楠わ紝鐒跺悗搴旂敤銆2.鍦╒BA涓紪鍐欐煡璇傚綋鐒惰繖閮芥槸瀹忕殑涓ょ鏂瑰紡銆
绛旓細宸ョ▼鍛藉悕锛 閫夋嫨涓涓猇BAProject > 鍙屽嚮 > 淇敼灞炴х獥鍙g殑 鍚嶇О 灞炴 > 杈撳叆鈥滄柊鍚嶇О鈥濓紝鍥炶溅 Excel瀹忓綍鍒跺垱寤虹殑涓绯诲垪鎸囦护鏄拰瀹為檯杩涜鐨勬搷浣滃畬鍏ㄧ瓑鍚岀殑銆 褰曞埗鐨勪竴绯诲垪鎸囦护琚斁鍦ㄥ伐浣滅翱閲岀殑鈥 妯″潡 鈥濇枃浠跺す涓傛濊冿細浠涔堟儏鍐典笅浼氬嚭鐜颁笉鍚屾ā鍧楋紝浠ュ強妯″潡涔嬮棿鐨勮仈绯绘槸浠涔堬紵 绛旓細涓涓伐绋...
绛旓細杞欢鐗堟湰锛歄ffice2013 涓句緥璇存槑濡備笅锛1.Alt+F11锛屽湪鍙充晶鐨勫伐浣滆〃鍚嶄笅闈㈢殑绌虹櫧澶勶紝鐐瑰嚮鍙抽敭锛屾彃鍏妯″潡锛2.鍦ㄦā鍧椾腑鎻掑叆鑷畾涔夊嚱鏁颁唬鐮侊紝鏈緥鑷畾涔夊嚱鏁板姛鑳戒负锛氫负閲嶅绗簩涓弬鏁版暟閲忕殑绗竴涓弬鏁板 3.杩斿洖Excel涓紝灏卞彲浠ヨ窡姝e父鍑芥暟涓鏍凤紝浣跨敤鑷畾涔夊嚱鏁颁簡锛...
绛旓細05銆佺敤Excel鍋澶氶〉鐨勮〃鏍兼椂,鎬庢牱鍍廤ord鐨勮〃鏍奸偅鏍峰仛涓涓爣棰,鍗虫瘡椤电殑绗竴琛(鎴栧嚑琛)鏄竴鏍风殑銆備絾鏄笉鏄敤椤电湁鏉ュ畬鎴? 鍦EXCEL鐨勬枃浠惰彍鍗-椤甸潰璁剧疆-宸ヤ綔琛-鎵撳嵃鏍囬;鍙繘琛岄《绔垨宸︾鏍囬璁剧疆,閫氳繃鎸変笅鎶樺彔瀵硅瘽妗嗘寜閽悗,鐢ㄩ紶鏍囧垝瀹氳寖鍥村嵆鍙傝繖鏍稥xcel灏变細鑷姩鍦ㄥ悇椤典笂鍔犱笂浣犲垝瀹氱殑閮ㄥ垎浣滀负琛ㄥご銆 06銆佸湪Excel...
绛旓細鍐呯疆浜excel宸ュ叿鏍忛殢鐐归殢鐢紝浠呬粎鍖呭惈甯哥敤鍔熻兘锛岀晫闈㈢畝娲併4锛氱涓娆6SQ缁熻鏄浗鍐呬竴瀹跺彨鍋氬叚瑗挎牸鐜涚綉鐨勫叕鍙稿紑鍙戠殑锛屼富瑕佺敤浜庡搧璐ㄧ鐞嗭紝涓嶈繃甯哥敤鐨勭粺璁″姛鑳藉拰鏁版嵁鍒嗘瀽妯″潡閮藉叿澶囥備竴鍏辨湁涓や釜鐗堟湰锛氬紑鍙戠増锛堟敹璐癸級鍜屼釜浜虹増锛堝厤璐癸級锛岀粡杩囪瘯鐢紝涓や釜鐗堟湰鍔熻兘宸埆涓嶅ぇ銆
绛旓細鎴戜滑鐭ラ亾,Excel涓嚱鏁伴兘鏈変竴涓鏄,甯姪浣跨敤,鎴戜滑涔熻缁欒繖涓嚱鏁版坊鍔犱竴涓鏄庛傚湪宸ュ叿鏍忎腑閫夋嫨鈥滃璞℃祻瑙堝櫒鈥(濡傚浘1),閫夋嫨鎴戜滑鎵鍋Tax妯″潡,鍦ㄥ叾[鍙抽敭]鈫抂灞炴涓坊鍔犲叧浜庡杩欎釜鍑芥暟鐨勬弿杩,杩欎釜鎻忚堪灏嗗嚭鐜板湪Excel涓叧浜庡嚱鏁扮殑璇存槑涓,濡傛灉浣犺瀵硅蒋浠朵繚瀵嗙殑璇,鍦ㄢ滄ā鍧椻濅笂鎸夊彸閿,[VBAproject灞炴鈫抂淇濇姢涓缃...
绛旓細寤烘ā鎯呭喌鍦Excel涓〃鐜颁负闄勫浘鎵绀猴細Excel杩涜绾挎ц鍒掓眰瑙h繃绋嬪涓嬶細1.浣跨敤鐩稿叧鍑芥暟鍜岃繍绠楃琛ㄧず绾︽潫鏉′欢鍜岀洰鏍囧嚱鏁帮紱2锛屼娇鐢ㄦ暟鎹腑鐨勮鍒掓眰瑙妯″潡瀵瑰凡缁忓缓濂界殑妯″瀷杩涜鏁板杩愮畻姹傝В銆俛锛岄夋嫨鐩爣鍑芥暟鍖哄煙 b锛岄夋嫨鍙彉鍙傛暟鍖哄煙 c锛岄夋嫨骞跺畾涔夌害鏉熸潯浠 d閫夋嫨姹傝В鏂规硶锛屾湰渚嬮噰鐢ㄥ崟绾嚎鎬ц鍒掋傜劧鍚庣‘瀹氭眰瑙e嵆鍙...