Urgente: ¿Cómo utilizar VBA en Excel 2007 para cambiar la fuente china en el área seleccionada a negrita y la fuente y los números en inglés a Arial?

Modifique el código original y cambie ActiveCell a With Selection range. Seleccione el rango que desea cambiar antes de ejecutar el botón a continuación.

Botón de subcomando privado 1_Click()

Atenuar cadena como cadena

Marcar I como un número entero

str = ActiveCell

Usar ActiveCell

Hay opciones

Para i = 1 a Len(str)

Si Asc(Mid(str, I, 1 )) <Entonces 0

. carácter(I,1). font.name = "negrita "

Otro

. Caracteres(i, 1), Font.Name = "Arial "

Terminará si...

Siguiente I

Terminará con...

Conector final