Excel如何提取汉语拼音的缩写我把代码输进去了 怎么在表格上还是不能体现出来

HZ2PY不是内建函数，要先定义函数才行的。

方法：

下面是一个VBA自定义函数，按ALT＋F11，插入模块，在右面窗口中粘贴下面代码。

Function hztopy(hzpy As String) As String

Dim hzstring As String, pystring As String

Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer

hzstring = Trim(hzpy)

hzpysum = Len(Trim(hzstring))

pystring = ""

For hzi = 1 To hzpysum

hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))

Select Case hzpyhex

Case &HB0A1 To &HB0C4: pystring = pystring + "A"

Case &HB0C5 To &HB2C0: pystring = pystring + "B"

Case &HB2C1 To &HB4ED: pystring = pystring + "C"

Case &HB4EE To &HB6E9: pystring = pystring + "D"

Case &HB6EA To &HB7A1: pystring = pystring + "E"

Case &HB7A2 To &HB8C0: pystring = pystring + "F"

Case &HB8C1 To &HB9FD: pystring = pystring + "G"

Case &HB9FE To &HBBF6: pystring = pystring + "H"

Case &HBBF7 To &HBFA5: pystring = pystring + "J"

Case &HBFA6 To &HC0AB: pystring = pystring + "K"

Case &HC0AC To &HC2E7: pystring = pystring + "L"

Case &HC2E8 To &HC4C2: pystring = pystring + "M"

Case &HC4C3 To &HC5B5: pystring = pystring + "N"

Case &HC5B6 To &HC5BD: pystring = pystring + "O"

Case &HC5BE To &HC6D9: pystring = pystring + "P"

Case &HC6DA To &HC8BA: pystring = pystring + "Q"

Case &HC8BB To &HC8F5: pystring = pystring + "R"

Case &HC8F6 To &HCBF9: pystring = pystring + "S"

Case &HCBFA To &HCDD9: pystring = pystring + "T"

Case &HEDC5: pystring = pystring + "T"

Case &HCDDA To &HCEF3: pystring = pystring + "W"

Case &HCEF4 To &HD1B8: pystring = pystring + "X"

Case &HD1B9 To &HD4D0: pystring = pystring + "Y"

Case &HD4D1 To &HD7F9: pystring = pystring + "Z"

Case Else

pystring = pystring + Mid(hzstring, hzi, 1)

End Select

Next

hztopy = pystring

End Function

然后关闭编辑宏。

若B10内容为 苏有朋，则在某空白格中输入：=hztopy(B10) 即可

转：

1/ 此函数是将一个中文字符串的第一个汉字转成拼音字母 （例如："中国人"->Z）

CREATE FUNCTION `fristPinyin`(P_NAME VARCHAR(255)) RETURNS varchar(255) CHARSET utf8

BEGIN

    DECLARE V_RETURN VARCHAR(255);

    SET V_RETURN = ELT(INTERVAL(CONV(HEX(left(CONVERT(P_NAME USING gbk),1)),16,10), 

        0xB0A1,0xB0C5,0xB2C1,0xB4EE,0xB6EA,0xB7A2,0xB8C1,0xB9FE,0xBBF7, 

        0xBFA6,0xC0AC,0xC2E8,0xC4C3,0xC5B6,0xC5BE,0xC6DA,0xC8BB,

        0xC8F6,0xCBFA,0xCDDA,0xCEF4,0xD1B9,0xD4D1),    

    'A','B','C','D','E','F','G','H','J','K','L','M','N','O','P','Q','R','S','T','W','X','Y','Z');

    RETURN V_RETURN;

END

2/此函数是将一个中文字符串对应拼音母的每个相连 (例如："中国人"->ZGR)

CREATE FUNCTION `pinyin`(P_NAME VARCHAR(255)) RETURNS varchar(255) CHARSET utf8

BEGIN

    DECLARE V_COMPARE VARCHAR(255);

    DECLARE V_RETURN VARCHAR(255);

    DECLARE I INT;

 

    SET I = 1;

    SET V_RETURN = '';

    while I < LENGTH(P_NAME) do

        SET V_COMPARE = SUBSTR(P_NAME, I, 1);

        IF (V_COMPARE != '') THEN

            #SET V_RETURN = CONCAT(V_RETURN, ',', V_COMPARE);

            SET V_RETURN = CONCAT(V_RETURN, fristPinyin(V_COMPARE));

            #SET V_RETURN = fristPinyin(V_COMPARE);

        END IF;

        SET I = I + 1;

    end while;

    IF (ISNULL(V_RETURN) or V_RETURN = '') THEN

        SET V_RETURN = P_NAME;

    END IF;

    RETURN V_RETURN;

END

3/ select pinyin(partname)

from 表

win11的微软拼音缩进去，也就是将拼音输入框最小化，方法如下：

第1步点击设置

打开电脑桌面，然后点击开始按钮，找到上面的设置选项。

第2步点击输入

进入设置之后，点击左侧的时间和语言选项，然后在点击右侧的输入选项。

第3步点击高级键盘设置

进入输入的选项之后，再点击高级键盘设置。

第4步点击使用桌面语言栏

进入高级键盘设置之后，点击使用桌面语言栏前面的框框就好了。

q：气、其、七

v：玉、雨、鱼

一、气拼音qì

1、没有一定的形状、体积，能自由散布的物体：气体。

2、呼吸：没气了。

3、自然界寒、暧、阴、晴等现象：气候。

二、其拼音qí

1、第三人物代词，相当于他。

2、指示代词，相当于“那”、“那个”、“那些”：其他。

3、那里面的：其中。

三、玉拼音yù

1、石头的一种，质细而坚硬，有光泽，略透明，可雕琢成工艺品：玉石。

2、美，尊贵的，敬辞：玉泉。

3、姓。

四、雨拼音yǔ

释义：从云层中降落的水滴：雨水。

五、鱼拼音yú

1、脊椎动物的一类，生活在水中，一般有鳞和鳍，用鳃呼吸，冷血：鱼虾。

2、姓。

来源于拼音首字母缩写（Pinyin First Letter Abbreviation），这种缩写方式是一种对汉语语句或短语进行缩写的有效方法。该方法也被称为“拼音首写法”，是从汉语拼音的拼写中提取出每个字的拼音首字母来作为缩写，可以有效缩短较长的汉语语句或短语，节约空间，便于书写和记忆。例如，“中华人民共和国”可以缩写为“ZHMRGHG”。

以上就是关于Excel如何提取汉语拼音的缩写我把代码输进去了 怎么在表格上还是不能体现出来全部的内容，包括:Excel如何提取汉语拼音的缩写我把代码输进去了 怎么在表格上还是不能体现出来、mysql怎么批量修改成拼音简写、win11的微软拼音缩进去等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！