Red de conocimiento informático - Problemas con los teléfonos móviles - VBA implementó una fuente aleatoria para cada palabra en la celda, como se muestra a continuación

VBA implementó una fuente aleatoria para cada palabra en la celda, como se muestra a continuación

Sub?Test() Dim?Arr(5) Arr(1)?Font" Arr(2)? =?"Escritura regular china" Arr(3)? =?"Fangzheng Lanting ultrafino negro simplificado" Arr(4)? =?" Chino tradicional "Arr(5)? Chino tradicional" Arr(5)? =?宋体" Sheet1.UsedRange.Select For?Each?Cell?In?Selection

Para ?I?=?1?To?Len(Cell.Text) A?=?Int(Rnd()?*?5)?+?1 Cell.Characters(Inicio:=I,?Longitud:= 1).Font .Name?=?Arr(A)

Siguiente Siguiente

Fin

Fin?