返回目录:excel表格制作
Wps
方法如下:copy
1、首先,在WPS中输入文字,比如“北京”,然后选中文字,然后点击上百边有拼音的“文”标识图标,
2、点击“拼音指南”后会弹出一个度对话框,从对话框中可以看到已经自动给知拼上音了,如图感觉拼音太小的话可以把字号加大一些。道
3、加上拼音后的效果如图所示。
使用方法:
1、 打开要生成的EXCEL文件,选择工具--宏---Visual Basic编辑器(快捷7a686964616fe58685e5aeb9334键: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, ",")
For i = 1 To Len(Hz)
Temp = Asc(Mid(Hz, i, 1))
If Temp < 0 Then
Temp = Abs(Temp)
For j = 45 To 1 Step -2
If Temp <= Val(MyPinMa(j)) Then
PinYin = PinYin & MyPinMa(j - 1)
Exit For
End If
Next
Else
' 保留非汉字字符
PinYin = PinYin & Mid(Hz, i, 1)
End If
Next
PinYin = Trim(PinYin)
End Function
4、 保存后,回到EXCEL内容编辑界面 。
5、 在需要生成助记码的地方。输入公式 =pinyin(相应的汉字单元格)。
会计方面用百的吧?
这个你应该有帐套对应的编码表。是必须度是。
设sheet1表A列是数码问,B列是中答文,比如A列是1001 1002……B列是现金 银行存款……
设sheet2表中A列是你要输入数码的地方
B1公式内
=vlookup(a1,sheet1!A:B,2,0)
下拉公式。A列输入编码,B列对应出中文的容。
助记码?