卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

Excel2016添加getpy函數的方法

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

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

  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

確保你保存了這段函數代碼,并按照下面的步驟應用它:

  1. 運用VBA自定義函數。
  2. 調用函數并驗證是否成功。

通過以上步驟,你應該能夠成功地添加并使用getpy函數。

標簽: