软件实施人员常用的EXCEL生成拼音助记码
软件实施人员常用的EXCEL生成拼音助记码
使用方法： 
1、打开要生成的EXCEL文件，选择工具--宏---Visual Basic编辑器（快捷键：alt+f11）
2、选择：插入--模块--把下方的代码粘贴到里面，保存
3、
代码部分：
              Function PinYin(Hz As String)
  Dim PinMa As String
  Dim MyPinMa As Variant
  Dim Temp As Integer, i As Integer, j As Integer
  PinMa = "a,20319,"
  PinMa = PinMa & "b,20283,"
  PinMa = PinMa & "c,19775,"
  PinMa = PinMa & "d,19218,"
  PinMa = PinMa & "e,18710,"
  PinMa = PinMa & "f,18526,"
  PinMa = PinMa & "g,18239,"
  PinMa = PinMa & "h,17922,"
  PinMa = PinMa & "j,17417,"
  PinMa = PinMa & "k,16474,"
  PinMa = PinMa & "l,16212,"
  PinMa = PinMa & "m,15640,"
  PinMa = PinMa & "n,15165,"
  PinMa = PinMa & "o,14922,"施的拼音
  PinMa = PinMa & "p,14914,"
  PinMa = PinMa & "q,14630,"
  PinMa = PinMa & "r,14149,"
  PinMa = PinMa & "s,14090,"
  PinMa = PinMa & "t,13318,"
  PinMa = PinMa & "w,12838,"
  PinMa = PinMa & "x,12556,"
  PinMa = PinMa & "y,11847,"
  PinMa = PinMa & "z,11055,"
  MyPinMa = Split(PinMa, ",")
  For i = 1 To Len(Hz)
  Temp = Asc(Mid(Hz, i, 1))
      If Temp < 0 Then
        Temp = Abs(Temp)
        For j = 45 To 1 Step -2
            If Temp <= Val(MyPinMa(j)) Then
                PinYin = PinYin & MyPinMa(j - 1)
                Exit For
            End If
        Next
      Else
         ' 保留非汉字字符
      PinYin = PinYin & Mid(Hz, i, 1)
      End If
  Next
  PinYin = Trim(PinYin)
End Function
4、保存后，回到EXCEL内容编辑界面   
5、在需要生成助记码的地方。输入公式  =pinyin(相应的汉字单元格)
如果行数多的话，先填充好B列，再拷入A列
之后也可以通过替换功能去掉B列空格2011-1-9 18:31:30 上传
下载次数: 9

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。