Cómo extraer la primera letra del pinyin chino en Excel
Primer paso: inicie Excel 2003 (siga otras versiones) y abra la hoja de trabajo correspondiente;
Segundo paso, ejecute el comando "Herramientas → Macro → Edición de Visual Basic" " (o presione directamente la combinación de teclas "Alt F11") para ingresar al estado de edición de Visual Basic;
El tercer paso es ejecutar el comando "Insertar → Módulo" para insertar un nuevo módulo. Haga doble clic en el módulo insertado para ingresar al estado de edición del código del módulo;
El cuarto paso es ingresar la contraseña;
El pinyin de la función (p es una cadena) es un cadena
I = Asc(p
Seleccione el caso 1
Caso-20319 a-20284: Pinyin="A"
Caso -20283 a-19776: Pinyin=" B"
Caso-19775 a-19219: pinyin="C"
Caso-19218 a-18711: pinyin="D"
Caso-18710 a-18527: Pinyin="E"
Caso-18526 a-18240: Pinyin="F"
Caso-18239 a-17923 : Pinyin="G"
Caso-17922 a-17418: Pinyin="H"
Caso-17417 a-16475: Pinyin="J"
Caso-16474 a-16213: Pinyin ="K"
Caso -16212 a -15641: pinyin="L"
Caso -15640 a -15166: pinyin="M "
Caso-15165 a -14923: Pinyin="N"
Caso-14922 a-14915: Pinyin="O"
Caso-14914 a -14631: Pinyin="P "
Caso-14630 a -14150: Pinyin="Q"
Caso-14149 a -14091: Pinyin="R"
Caso-14090 a -13319: Pinyin="S"
Caso-13318 a -12839: Pinyin="T"
Caso-12838 a -12557: Pinyin= "W"
Caso-12556 a-11848: Pinyin="X"
Caso-11847 a-11056: Pinyin="Y"
Caso- 11055 a -2050: Pinyin = "Z"
Otros casos: Pinyin = p
Finalizar selección
Finalizar función
Función getpy (str )
Para i = 1 a Len(str)
getpy = getpy amppinyin(Mid(str,I,1))
Siguiente i
Finalizar función
El quinto paso, una vez completado el ingreso del código, cierre la ventana de edición de Visual Basic y regrese al estado de edición de Excel;
Paso 6: Puede utilizar la función definida por el usuario. Por ejemplo, seleccione la celda A2 e ingrese la fórmula: =getpy(A2).