史上最全面的计算简体繁体汉字笔画的VBA自定义函数及汉字笔画字库

Function char_wordnum(my_char_word)

'史上最权威最全面的计算简体繁体汉字笔画的VBA自定义函数及汉字笔画字库

'from bdQuaker 20140619

'笔画数据库来自在线新华字典

'VBA中一条语句内的换行符号，不能超过25个。

'函数功能：对输入的汉字，返回其笔画的数量。

Dim char_wordtable(31), wordnum_i, wordnum_j, wordnum_k, temp_wordnum

temp_wordnum = ""

If my_char_word = "" Then

char_wordnum = 0

Exit Function

End If

char_wordtable(0) = ""

char_wordtable(1) = ""

char_wordtable(2) = "

"

char_wordtable(3) = "

亏马亇么门宀万卄女丬丌乞千犭刃刄三山彡上勺饣士尸扌氵巳纟" + _

"夊土乇丸亾兦亡尢囗卫龫兀习夕下乡小忄彐卂劜丫幺也弋亿已义于亐与丈夂之子"

char_wordtable(4) = "卬夭仈巴办勽贝币比卞仌不仓长尺车丑丒仇刅从亣歹丹邓弔订仃斗队仒厄乏反方分凤

" + _

"

" + _

"闩双水亖太天邒厅圡屯屲瓦卐卍罓尣王韦厃为文毋勿午五乌兮心匂凶牙圠爻辷忆刈艺以弌冘引尹尤友肀予元円月曰匀云勻允帀扎兂仄仉爫爪止支中专卆"

char_wordtable(5) = "艾屵凹叐叭扒白半包北本夯必弁边丙氷仢癶布卟仺册冊仧仩仦斥叱叺刍処出处丛匆刌打代歺旦石氹辺忉叨氐电叼汈鸟饤忊艼奵帄叮东冬乧叾对戹弍尓尔尒发犯氾払" + _

"冯弗付玍尕轧匃匄仠甘冮夰乬巪仡功句古冎叧瓜叏丱広宄氿归扖邗汉厈号禾仜弘讧乎囘卉屶屷汇伋记饥刉击叽甲加戋匞叫艽讦节钅丼冋匛旧纠凥且卡冚刊尻厼可叩" + _

"凷圦邝兰艻叻扐氻忇乐立厉屴礼辽另令龙卢圥劢邙矛夘卯们汅灭民皿末仫目母奶艿疒尼囜宁奴汃皮庀丕氕平叵圤扑讫邔刋阡仟巧邛卭芁叴犰扏囚玌丘去厺犮冉让讱" + _

"仞仭辸扔宂邚仨壭讪闪邖叶申圣生辻仕世丗示市史矢失朮术帅甩氺四丝司玊亗他它夳冭台叹讨夲朰田芀圢庁汀仝头凸阤仛讬外罒未戊阢务卌邜仚仙屳写阠兄玄穴廵" + _

"讯训疋圧央业凧匇匜仪肊议阣衤印囙用永由甴幼右邘驭玉込夗戉曱孕匝仔庂汄札乍占仗召厇氶正卮汁只主左"

char_wordtable(6) = "吖阨伌安犴仰朳玐百阪邦闭毕朼夶邠冰并伧艸奼汊扱扠犲芆忏产辿伥场仯伡尘臣丞成朾弛池驰伬吃充冲虫岀汌舛传闯创朿次此汆伜存忖邨达汏刐伔凼圵当乭导氘朷" + _

"地扥灯仾吊伄扚玎丢丟动吋阧芏厾兊伅夺朵朶多夛驮讹岋而弐耳伐奿汎仮帆忛防访邡仿妃份讽凨仹缶伏凫甶妇负邞伕乫钆旮夹忋芉迀忓奸刚扛犵扢圪各合纥亘亙艮" + _

"巩共红关观犷灮光攰轨圭过亥扞闬屽汗行好吓妅屸叿后芐冱匢虍戏夻华划欢巟回讳灰灳会邩伙﨤吉彶汲岌级忣伎妀犱芨圾刏乩机玑肌纪齐价件幵尖囝弜匠夅讲江交" + _

"阶伒劤尽阱臼汣奺朻牞讵氒决刔诀军伉匟邟考攷肎阬劥凩扣夸纩圹夼匡扩旯老玏肋厽耒凞刕朸吏両尥列劣刘甪吕伦论犸妈吗孖迈买芒吂汒忙庅毎扪糸米芇吀名乮牟" + _

"凪那氖囡乪讷屰氼年帇农奻乯讴乓阫伂芃阰仳圮伓朴牝乒祁汔気迄企岂芑屺迉圶仱伣芊迁奷扦汘圱圲纤乔癿庆宆肍朹汓丠佢曲戌全权芍朲忈纫屻任礽戎肉杁如汝阮" + _

"叒扨伞弎扫色杀汕圸伤汤舌厍设邥屾扟阩忕式卋乨师守收尗戍妁汜寺死糹似讼夙岁芕孙她伖兲旫廷同汢吐团団弚氽彵饦托扡汑邷佤穵汍纨刓芄仼妄网伟伪危圩问刎" + _

"

" + _

"尧仸吆约页爷曳吔衣圯夷屹异伇芅亦忔钇迆伊岃乑阴阥因优有伃芋芌聿圫羽宇屿伛扝迃迂扜纡贠邧刖伝阭杂再扗在早则吒宅扙兆阵圳贞争执芖至旨阯劧芝众仲伀汷" + _

""

char_wordtable(7) = "厑阿毐佁岇岙抝芺坝弝芭扷岜夿抜把吧伯庍呗扮坂岅伴扳报佨刨邶狈貝孛陂坌伻邲庇迊坒佖诐妣沘疕佊皀芘吡苄抃汳汴忭釆杓別别邴陃兵肑驳吥佈步补乲财材灿苍" + _

"沧岑层岔杈肞苂旵刬兏苌肠镸玚怅抄吵彻扯車辰忱沉陈呈阷迟饬灻杘赤肔呎妛忡沖吜竌初助玔氚串床怆吹纯辵词伺苁囱囪忰村迏迖迚轪呆呔但帎抌妉岛扽廸狄弟旳" + _

"玓坔厎邸阺诋坘低杕甸佃阽刟矴疔盯钉町冻豆抖吺妒杜肚兌兑対庉吨囤沌囮迗吪苊阸扼呃奀児姂冹匥杋泛饭返妨纺汸芳坊彷吠芾坟妢岎汾弅坋芬帉吩纷沨夆凬妦沣" + _

"

攻芶沟佝诂杚估谷汩纶庋妫龟囯呙妎还邯旱罕佄含苀迒沆吭诃何亨纮玒闳宏汯" + _

"吰呍吽灴吼犼囫抇沪沍护帍乕汻芴呚花怀坏肒奂犿肓囬忶沎吙极即芰坖妓际技忌泲鸡矶系扴圿忦抸夾見坚歼间呌臫角杢昅刧刦劫岊岕戒庎吤疖妗进近劲妌汫刭宑坓" + _

"坕坙巠冏囧杦灸玖糺究鸠局拒洰怇邭姖岠抅苣奆芵弡抉決呁汮均君佧忾坎抗囥闶犺忼克壳妔坑抠芤库块快忹狂狅抂况旷困来岚劳労牢泐冷利励叓苈呖沥坜李里丽连" + _

"奁良两疗尦钌邻阾吝伶刢灵陆陇弄芦庐卤驴呂乱卵寽芲沦囵抡呒杩祃玛売佅麦杧杗牤尨皃芼沒坆每没闷汶汨沕芈杣沔免妙劰忟冺刡闵圽狇沐牡亩吶妠纳呐疓男抐你" + _

"伱拟伲尿圼佞汼纽忸狃扭妞伮努沑怄呕吘沤帊妑沠冸判沜厐抛犻沛匉屁苉邳批伾纰囨汖评甹廹钋抔抙忯芪岐岓弃芞汽矵盀杞玘启呇沏圻扲岒忴芡茾佥岍汧杄羌呛抢" + _

"芹芩庈吣吢抋沁坅穷求虬邱劬刞匤诎伹驱岖佉阹却夋扰忎秂芢妊韧牣杒纴轫饪肕忍芿驲肜坈宍肗芮汭闰纱沙杉芟删刪邵卲劭佘社折沈弞伸身呏声斘佦竍时戺亊豕识" + _

"忑忒戻体条甼听佟彤投図迌兎秃禿宊抟饨坉忳芚吞呑陁陀妥杔佗咓岏抏完妧忨杤迋忘彺尫尪汪违帏闱" + _

"囲沩围位苇芛纬尾纹彣芠妏吻呅抆肟沃我吴吳呉芜吾坞杌岉妩怃忤庑迕呜巫杇屃饩希扸匣闲伭苋岘佡忺氙咞县瓨孝肖灺伳孞辛忻妡芯形陉杏诇汹忷秀旴汿序伵芧轩" + _

"斈吷杊坃岈芽亜犽迓庌呀言訁妍严妟觃抁沇芫杨旸飏佒炀岆宎妖亪邺曵冶杝沂宐诒冝佚劮苅译役呓坄抑杙耴邑矣攺苡吚医壱犾吟吲饮迎盁応应甬佣犹沋邮佑丣卣苃" + _

"酉忧攸余妤扵欤玙玗杅忬饫妪园沅远囦肙员礿妜岄抈抣沄纭囩妘运夽狁抎芸沞灾災皂皁灶択沢诈灹厏佔杖帐张诏找佋钊这纼诊针证抍佂豸志忮伿扻芷址坁沚纸扺帋" + _

"

诅阻阼坐佐作"

char_wordtable(8) = "呵哎岸侒昂枊肮垇岰坳拗茇妭拔爸杷败拝佰陌姅怑绊板版昄瓪肦攽坢拌玤抱怉饱宝孢苞牬昁备苝卑杯苯泍奔祊畀畁怭怶咇妼苾彼毞屄泌玣变贬炞峅表玢並幷併抦怲苪秉狛帛瓝" + _

"拨波泊歨歩怖咘拆采参肏厕侧诧侘衩刹侪钗丳斺单長畅昌炒怊弨迠坼迧衬抻承郕诚枨

" + _