¿Cómo cambiar rápidamente el nombre chino de EXCEL a la primera letra inglesa de la abreviatura?
La siguiente es una función personalizada de VBA. Presione ALT+F11, haga clic derecho en hoja1-Insertar-Módulo en el lado izquierdo de la ventana y pegue el siguiente código en la ventana derecha.
Si el contenido de A1 es Zhang San, ingrese: =hzszm(a1) en un cuadro en blanco
Función hzszm(hzpy As String) As String
Dim hzstring como cadena, pystring como cadena
Dim hzpysum como entero, hzi como entero, hzpyhex como entero
hzstring = Trim(hzpy)
hzpysum = Len (Trim(hzstring))
pystring = ""
Para hzi = 1 A hzpysum
hzpyhex = "&H" + Hex(Asc(Mid (hzstring , hzi, 1)))
Seleccione Caso hzpyhex
Caso &HB0A1 a &HB0C4: pystring = pystring + "A"
Caso &HB0C5 a &HB2C0: pystring = pystring + "B"
Caso &HB2C1 a &HB4ED: pystring = pystring + "C"
Caso &HB4EE a &HB6E9: pystring = pystring + "D"
Caso &HB6EA a &HB7A1: pystring = pystring + "E"
Caso &HB7A2 a &HB8C0: pystring = pystring + "F"
Caso &HB8C1 a &HB9FD: pystring = pystring + " G"
Caso &HB9FE A &HBBF6: pystring = pystring + "H"
Caso &HBBF7 A &HBFA5: pystring = pystring + "J"
Caso &HBFA6 A &HC0AB: pystring = pystring + "K"
Caso &HC0AC A &HC2E7: pystring = pystring + "L"
Caso &HC2E8 A &HC4C2: pystring = pystring + "M"
Caso &HC4C3 A &HC5B5: pystring = pystring + "N"
Caso &HC5B6 A &HC5BD: pystring = pystring + "O"
Caso &HC5BE A &HC6D9: pystring = pystring + " P"
Caso &HC6DA a &HC8BA: p
ystring = pystring + "Q"
Caso &HC8BB A &HC8F5: pystring = pystring + "R"
Caso &HC8F6 A &HCBF9: pystring = pystring + "S"
Caso &HCBFA A &HCDD9: pystring = pystring + "T"
Caso &HEDC5: pystring = pystring + "T"
Caso &HCDDA A &HCEF3: pystring = pystring + "W"
Caso &HCEF4 A &HD1B8: pystring = pystring + "X"
Caso &HD1B9 A &HD4D0: pystring = pystring + "Y"
Caso &HD4D1 A &HD7F9: pystring = pystring + "Z"
Caso más
pystring = pystring + Mid(hzstring, hzi, 1)
Selección final
Siguiente
hzszm = pystring
Función final
--------------------- - -------------------------------------------------
El método anterior es muy bueno, cámbielo:
Defina un nombre
PinYin
={"",""; "吖", "A";"八","B";"嚓","C";"咑","D";"鶽","E";"发","F";"猤","G ";"Hafnio","H";"夻","J";"Ka","K";"咒","L";"咒","M";"怀", "N"; "Oh", "O"; "妑", "P"; "七", "Q"; "R"; "三"; "; "屲","W";"西","X";"丫","Y";"帀","Z"}
Luego usa la fórmula
=BUSCAR(MEDIO(A1,1,1),PinYin)&BUSCAR(MEDIO(A1,2,1),PinYin)&BUSCAR(MEDIO(A1,3,1),PinYin)&BUSCAR(MEDIO(A1,4, 1),PinYin) &LOOKUP(MID(A1,5,1),PinYin)El nombre solo puede usar N-1 caracteres como máximo&