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

PAGE \* MERGEFORMAT1 Function char_wordnum(my_char_word) 史上最权威最全面的计算简体繁体汉字笔画的VBA自定义函数及汉字笔画字库 from bdQuaker笔画数据库来自在线新华字典 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) = 吖阨伌安犴仰朳玐百阪邦闭毕朼夶邠冰并伧艸奼汊扱扠犲芆忏产辿伥场仯伡尘臣丞成朾弛池驰伬吃充冲虫岀汌舛传闯创朿次此汆伜存忖邨达汏刐伔凼圵当乭导氘朷 + _ 地扥灯仾吊伄扚玎丢丟动吋阧芏厾兊伅夺朵朶多夛驮讹岋而弐耳伐奿汎仮帆忛防访邡仿妃份讽凨仹缶伏凫甶妇负邞伕乫钆旮夹忋芉迀忓奸刚扛犵扢圪各合纥亘亙艮 + _ 巩共红关观犷灮光攰轨圭过亥扞闬屽汗行好吓妅屸叿后芐冱匢虍戏夻华划欢巟回讳灰灳会邩伙﨤吉彶汲岌级忣伎妀犱芨圾刏乩机玑肌纪齐价件幵尖囝弜匠夅讲江交 + _ 阶伒劤尽阱臼汣奺朻牞讵氒决刔诀军伉匟邟考攷肎阬劥凩扣夸纩圹夼匡扩旯老玏肋厽耒礼刕朸吏両尥列劣刘甪吕伦论犸妈吗孖迈买芒吂汒忙庅毎扪糸米芇吀名乮牟 + _ 凪那氖囡乪讷屰氼年帇农奻乯讴乓阫伂芃阰仳圮伓朴牝乒祁汔気迄企岂芑屺迉圶仱伣芊迁奷扦汘圱圲纤乔癿庆宆肍朹汓丠佢曲戌全权芍朲忈纫屻任礽戎肉杁如汝