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