第壹步:啟動Excel 2003（請遵循其他版本）並打開相應的工作表；
第二步，執行命令“工具→宏→Visual Basic編輯器”（或直接按組合鍵“Alt+F11”）進入Visual Basic的編輯狀態；
第三步，執行“插入→模塊”命令插入新模塊。雙擊插入的模塊進入模塊代碼編輯狀態；
第四步，輸入密碼；
函數拼音（p為字符串）為字符串
I = Asc（p
選擇案例壹
案例-20319至-20284:拼音=“A“
案例-20283至-19776:拼音=“B“
案例-19775至-19219:拼音=“C“
案例-19218至-18711:pinyin =“D“
案例-18710至-18527:拼音=“E“
案例-18526至-18240:拼音=“F“
案例-18239至-17923:拼音=“G“
案例-17922至-17418:拼音=“H“
案例-17417至-16475:拼音=“J“
案例-16474至-16213:拼音=“K“
Case -16212至-15641:pinyin =“L“
大小寫-15640至-15166:拼音=“M“
案例-15165至-14923:拼音=“N“
案例-14922至-14915:拼音=“O“
大小寫-14914到-14631:拼音=“P“
大小寫-14630至-14150:拼音=“Q“
大小寫-14149至-14091:拼音=“R“
案例-14090至-13319:拼音=“S“
案例-13318至-12839:拼音=“T“
大小寫-12838至-12557:拼音=“W“
大小寫-12556至-11848:拼音=“X“
大小寫-11847到-11056:拼音=“Y“
案例-11055至-2050:拼音=“Z“
其他情況:拼音= p
結束選擇
結束功能
函數getpy（str）
For i = 1到Len（str）
getpy = getpy & amp拼音（Mid（str，I，1））
接下來我
結束功能
第五步，代碼輸入完成後，關閉Visual Basic編輯窗口，返回Excel編輯狀態；
步驟6:可以使用用戶定義的函數。例如，選擇單元格A2並輸入公式:= getpy（A2）。