Red de conocimiento informático - Problemas con los teléfonos móviles - El editor VB de tabla wps fusiona celdas con formato, ¿cómo realizar operaciones por lotes?

El editor VB de tabla wps fusiona celdas con formato, ¿cómo realizar operaciones por lotes?

Ejemplo de ejecución:

Código de programa:

El texto del código del programa es el siguiente (el texto es solo de referencia, el navegador puede eliminar algunos símbolos especiales y espacios en blanco de alineación):

Opción explícita

Submacro 1()

Dim arr1, arr2, i&, j&

arr1 = Rango ("a1:c4 ")

ReDim arr2(1 a UBound(arr1), 1 a 1)

For i = 1 a UBound(arr1)

Para j = 1 a 3

arr2(i, 1) = arr2(i, 1) & arr1(i, j)

arr1(i, j) = Len( arr1(i, j ))

Siguiente j

Siguiente i

Rango("d1:d4") = arr2

Para i = 1 a UBound (arr1)

Para j = 1 a Len(arr2(i, 1))

Si j <= arr1(i, 1) entonces

Celdas (i, 4).Caracteres(j, 1).Font.Bold = Celdas(i, 1).Caracteres(j, 1).Font.Bold

ElseIf j <= arr1(i, 1 ) + arr1(i, 2) Entonces

Celdas(i, 4).Caracteres(j, 1).Font.Bold = Celdas(i, 2).Caracteres(j - arr1(i, 1 ), 1).Font.Bold

Else

Celdas(i, 4).Caracteres(j, 1).Font.Bold = Celdas(i, 3).Caracteres( j - arr1(i, 1) - arr1(i, 2), 1).Font.Bold

End If

Siguiente j

Siguiente i

Fin Sub