汉字转化为首大写字母方法和程序.docxVIP

汉字转化为首大写字母方法AIT + F11进入插入---模块【粘贴程序】AIT + Q退出选中编辑列中转换后的拼音需要放在哪个列，例如要把B列的第2行的内容转换成拼音，放在D列的第2个单元格，输入公式：=getpy(B2)，这里的B2，是指源头单元格【需要转化格】的坐标复制输出结果，选择性粘贴“数据”即可去除函数Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20318: pinyin = ACase -20317 To -20305: pinyin = ACase -20304 To -20296: pinyin = ACase -20295 To -20293: pinyin = ACase -20292 To -20284: pinyin = ACase -20283 To -20266: pinyin = BCase -20265 To -20258: pinyin =BCase -20257 To -20243: pinyin = BCase -20242 To -20231: pinyin = BCase -20230 To -20052: pinyin =BCase -20051 To -20037: pinyin = BCase -20036 To -20033: pinyin = BCase -20032 To -20027: pinyin = BCase -20026 To -20003: pinyin = BCase -20002 To -19991: pinyin = BCase -19990 To -19987: pinyin = BCase -19986 To -19983: pinyin = BCase -19982 To -19977: pinyin = BCase -19976 To -19806: pinyin = BCase -19805 To -19785: pinyin = BCase -19784 To -19776: pinyin = BCase -19775 To -19775: pinyin = CCase -19774 To -19764: pinyin = CCase -19763 To -19757: pinyin = CCase -19756 To -19752: pinyin = CCase -19751 To -19747: pinyin = CCase -19746 To -19742: pinyin = CCase -19741 To -19740: pinyin = CCase -19739 To -19729: pinyin = CCase -19728 To -19726: pinyin = CCase -19725 To -19716: pinyin = CCase -19715 To -19541: pinyin = CCase -19540 To -19532: pinyin = CCase -19531 To -19526: pinyin = CCase -19525 To -19516: pinyin = CCase -19515 To -19501: pinyin = CCase -19500 To -19485: pinyin = CCase -19484 To -19480: pinyin = CCase -19479 To -19468: pinyin = CCase -19467 To -19290: pinyin = CCase -19289 To -19289: pinyin = CCase -19288 To -19282: pinyin = CCase -19281 To -19276: pinyin = CCase -19275 To -19271: pinyin = CCase -19270 To -19264: pinyin = CCase -19263 To -19262: pinyin = CCase -19261 To -19250: pinyin = CCase -19249 To -19244: pinyin = CCase -19243 To -19243: pinyin = CCase -19242 To -19239: pinyin = CCase -19238 To -19236: pinyin = CCase -19235 To -19228: pinyin = CCase -19227 To -19225: pinyin = CCase -19224 To -19219: pinyin = CCa