如果你發(fā)現(xiàn)你的Excel中無法使用getpy函數(shù)，很可能是因為你沒有正確地添加這個函數(shù)。下面是一種在Excel2016中添加getpy函數(shù)的方法： 打開Excel開發(fā)工具，可以使用快捷鍵Al

如果你發(fā)現(xiàn)你的Excel中無法使用getpy函數(shù)，很可能是因為你沒有正確地添加這個函數(shù)。下面是一種在Excel2016中添加getpy函數(shù)的方法：

1. 打開Excel開發(fā)工具，可以使用快捷鍵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

確保你保存了這段函數(shù)代碼，并按照下面的步驟應(yīng)用它：

1. 運用VBA自定義函數(shù)。
2. 調(diào)用函數(shù)并驗證是否成功。

通過以上步驟，你應(yīng)該能夠成功地添加并使用getpy函數(shù)。