excel怎么自动生成助记码

问题描述

精选答案

打开要生成的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, ",")

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(相应的汉字单元格)

其他回答

忠诚履职审计人

助记码生成方法：

在 Excel 中，创建一个新的列来存储助记码，例如在 B 列。

在 B2 单元格中，输入以下公式：=LEFT(A2,1)&MID(RIGHT(A2,LEN(A2)-FIND(" ",A2)),1,1)。其中，A2 指的是第一列中的姓名数据。

将公式拖动到 B 列中的其它单元格，以覆盖所有的姓名数据。

最后，确保所有的助记码格式都正确，并且按照需要进行调整。如果您需要使用不同的助记码格式或长度，请修改公式以满足您的需求。

这个方法基于名字的首字母来生成助记码，长度为两个字符。如果您想要使用不同的方法或算法来生成助记码，可以根据需要自定义操作。希望这个简单的方法可以帮助您。

其他回答

经济视野

1. 简

Excel自动生成助记码的方法如下：

a) 打开Excel软件，进入公式编辑界面。

b) 在公式栏中输入需要生成助记码的公式，例如“=SUM(A1:A5)”。

c) 在公式栏中按下Ctrl+Shift+Enter键，即可自动生成助记码。

d) 如果需要修改助记码的名称，可以在公式栏中右键点击助记码，选择“定义名称”，然后在弹出的对话框中进行设置。

2. 深入分析：

Excel自动生成助记码的功能可以大大提高公式的可读性和可维护性，特别是在公式较多或者公式比较复杂的工作簿中，使用助记码可以更加方便地管理和查找公式。下面我们来深入分析一下Excel自动生成助记码的方法和注意事项。

首先，在Excel软件中打开公式编辑界面后，可以通过输入公式并按下Ctrl+Shift+Enter键来自动生成助记码。这个快捷键的作用是将输入的公式转换为一个带有名称的单元格引用，以便于后续的查找和编辑。如果需要修改助记码的名称，可以在公式栏中右键点击助记码，选择“定义名称”，然后在弹出的对话框中进行设置。这样就可以为助记码指定一个有意义的名称，方便后续的使用和管理。

需要注意的是，在使用助记码时，要确保输入的公式正确无误。因为助记码是通过公式转换而来的，如果公式有误，那么生成的助记码也会出错。此外，还需要注意助记码的命名规范和统一性，以便于后续的查找和使用。建议在命名助记码时，使用简洁明了的语言，避免使用过长或者过于复杂的名称。同时，也要遵循一定的命名规范，例如使用下划线分隔单词等。

其他回答

经济视野

用宏自定义函数吧。在Excel中同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Function SZPY(tmpStr As String) As String Dim i,j As Integer j = Len(tmpStr) For i = 1 To j SZPY = SZPY & WorksheetFunction.VLookup(Mid(tmpStr,i,1)，_ [{＂吖＂，＂a＂；＂八＂，＂b＂；＂嚓＂，＂c＂；＂咑＂，＂d＂；＂鵽＂，＂e＂；＂发＂，＂f＂；＂猤＂，＂g＂；＂铪＂，＂h＂；＂ 夻＂，＂j＂；＂咔＂，＂k＂；＂垃＂，＂l＂；＂呒＂...