想做一个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,