Excel2016添加getpy函数的方法

如果你发现你的Excel中无法使用getpy函数，很可能是因为你没有正确地添加这个函数。下面是一种在Excel2016中添加getpy函数的方法：

1. 打开Excel开发工具，可以使用快捷键Alt F11来打开VB界面。
2. 在VB界面中单击左上角的空白处，选择【插入】->【模块】。
3. 在新建的模块中输入以下代码：

Function pinyin(p As String) As String
  i  Asc(p)
  Select Case i
    Case -20319 To -20284: pinyin  "A"
    Case -20283 To -19776: pinyin  "B"
    Case -19775 To -19219: pinyin  "C"
    Case -19218 To -18711: pinyin  "D"
    Case -18710 To -18527: pinyin  "E"
    Case -18526 To -18240: pinyin  "F"
    Case -18239 To -17923: pinyin  "G"
    Case -17922 To -17418: pinyin  "H"
    Case -17417 To -16475: pinyin  "J"
    Case -16474 To -16213: pinyin  "K"
    Case -16212 To -15641: pinyin  "L"
    Case -15640 To -15166: pinyin  "M"
    Case -15165 To -14923: pinyin  "N"
    Case -14922 To -14915: pinyin  "O"
    Case -14914 To -14631: pinyin  "P"
    Case -14630 To -14150: pinyin  "Q"
    Case -14149 To -14091: pinyin  "R"
    Case -14090 To -13319: pinyin  "S"
    Case -13318 To -12839: pinyin  "T"
    Case -12838 To -12557: pinyin  "W"
    Case -12556 To -11848: pinyin  "X"
    Case -11847 To -11056: pinyin  "Y"
    Case -11055 To -2050: pinyin  "Z"
    Case Else: pinyin  p
  End Select
End Function
Function getpy(str)
  For i  1 To Len(str)
    getpy  getpy  pinyin(Mid(str, i, 1))
  Next i
End Function

确保你保存了这段函数代码，并按照下面的步骤应用它：

1. 运用VBA自定义函数。
2. 调用函数并验证是否成功。

通过以上步骤，你应该能够成功地添加并使用getpy函数。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。