关于Excel首字拼音码的问题，能看懂程序代码的进来

来源：百度知道 编辑：UC知道 时间：2024/06/27 10:47:56
能看懂下面的请继续：我用下面的代码给Excel文字加拼音码，但是有很多字不能识别。比如：酰，酯，麝，斛，等等很多字。我是药店的，这些字是经常要用到的。谁能修改下代码，让程序能识别这些字。
Function pychar(char)
zm = 65536 + Asc(char)
If (zm >= 45217 And zm <= 45252) Then pychar = "A"
If (zm >= 45253 And zm <= 45760) Then pychar = "B"
If (zm >= 47761 And zm <= 46317) Then pychar = "C"
If (zm >= 46318 And zm <= 46825) Then pychar = "D"
If (zm >= 46826 And zm <= 47009) Then pychar = "E"
If (zm >= 47010 And zm <= 47296) Then pychar = "F"
If (zm >= 47297 And zm <= 47613) Then pychar = "G"
If (zm >= 47614 And zm <= 48118) Then pychar = "H"
If (zm >= 48119 And zm <= 49061) Then pychar = "J"
If (zm >= 49062 And zm <= 49323) Then pychar = "K"
If (zm >= 49324 And zm <= 49895) Then pychar = "L"
If (zm >= 49896 And zm <= 50370) Th

一个一个的加上去：
Function pychar(char)
zm = 65536 + Asc(char)
If (zm >= 45217 And zm <= 45252) Then pychar = "A"
If (zm >= 45253 And zm <= 45760) Then pychar = "B"
If (zm >= 47761 And zm <= 46317) Then pychar = "C"
If (zm >= 46318 And zm <= 46825) Then pychar = "D"
If (zm >= 46826 And zm <= 47009) Then pychar = "E"
If (zm >= 47010 And zm <= 47296) Then pychar = "F"
If (zm >= 47297 And zm <= 47613) Then pychar = "G"
If (zm >= 47614 And zm <= 48118) Then pychar = "H"
If (zm >= 48119 And zm <= 49061) Then pychar = "J"
If (zm >= 49062 And zm <= 49323) Then pychar = "K"
If (zm >= 49324 And zm <= 49895) Then pychar = "L"
If (zm >= 49896 And zm <= 50370) Then pychar = "M"
If (zm >= 50371 And zm <= 50613) Then pycha