Ayuda con código VBA: en Excel, ¿cómo mostrar en negrita un texto específico (como el diseño) en lotes y convertirlo en fuente roja?
Sub negrita y rojo ()
Dim j, i como entero
Para j = 1 a ActiveSheet.UsedRange.Count
Cells.Find(What:="Design", After:=ActiveCell).Activate
i = WorksheetFunction.Find("Design", ActiveCell)
With ActiveCell.Characters( Inicio :=i, Longitud:=2).Font
.Name = "宋体"
.FontStyle = "Normal"
.FontStyle = "Agregar grueso "
.Color = -16776961
Terminar con
Siguiente
Fin Sub
上篇: SQL Server 2000 consulta todo>: Las primeras 20 filas de una tabla que contiene 100 filas de registros. 下篇: La unidad C del xps13 está casi llena. ¿Puedo usar una unidad de estado sólido móvil (o una unidad USB de estado sólido PSSD) para reemplazar la unidad C de la computadora portátil como disco de arranque?