Página 1 de 1
[RESUELTO] Buscar todos los caracteres y pintar
Publicado: Jue Dic 20, 2018 1:35 pm
por physic
Saludos ,
sigue el archivo adjunto de LibreOffice y el archivo de Excel .
en el archivo excel tiene una macro de vba que busca en la columna "A" de la hoja de cálculo 1 todos los caracteres que se enumeran en la columna "B" de la hoja de cálculo 2 .
Si se encuentra en la columna "A" de la hoja de cálculo 1 los caracteres que están en la columna "B" de la hoja de cálculo 2, entonces pinta de color rojo .
es necesario convertir la macro vba de excel, para funcionar en LibreOffice, la macro debe ejecutar la misma operación en LibreOffice .
abrazos amigos .
Re: Buscar todos los caracteres y pintar
Publicado: Vie Dic 21, 2018 12:28 am
por mriosv
Puedes hacerlo con formato condicional sin necesidad de macros
Ejemplo añadiendo formato condicional.
Ten en cuenta que dependiendo de la versión de LibreOffice, si lo guardas en formato excel tendrás que modificar la fórmula eliminando el punto delante de los asteriscos, pues los ficheros excel se abririan por defecto utilizando comodines en lugar de expresiones regulares.
https://wiki.documentfoundation.org/Rel ... th_ODF_1.2
Re: Buscar todos los caracteres y pintar
Publicado: Vie Dic 21, 2018 4:54 am
por physic
saludos sr. mriosv ,
gracias por la ayuda .
su solución inicial es buena, resuelve la situación para encontrar los caracteres de la hoja de cálculo 2 .
pero estoy desarrollando un proyecto de automatización, así que tengo que resolver este problema con la macro .
sin embargo, su idea es buena, puede ayudar a otros con un problema parecido .
abrazos amigo .
Re: Buscar todos los caracteres y pintar
Publicado: Mié Dic 26, 2018 7:58 pm
por fornelasa
Mira la misma macro VBA con unas ligeras correcciones y creo funciona.
Saludos.
Re: Buscar todos los caracteres y pintar
Publicado: Mié Dic 26, 2018 8:27 pm
por physic
[Resuelto]
muchas gracias por su ayuda sr. fornelasa , funciona perfecto .
buenas fiestas .
abrazo amigo .
Re: [Resuelto] Buscar todos los caracteres y pintar
Publicado: Jue Dic 27, 2018 1:34 am
por fornelasa
Esta sería la versión OooBasic de Calc
Código: Seleccionar todo
Sub Codigolocalizar()
doc = ThisComponent
hoja = doc.Sheets.getByName("Planilha2")
cursor = hoja.createCursorByRange(hoja.getCellRangeByName("B1"))
cursor.collapseToCurrentRegion
hoja1 = doc.Sheets.getByName("Planilha1")
cursor1 = hoja1.createCursorByRange(hoja1.getCellRangeByName("A1"))
cursor1.collapseToCurrentRegion
For vLinha = 1 To cursor1.getRangeAddress.EndRow
vCodigo = hoja.getCellByPosition(1, vLinha).String
If vCodigo = "" Then
Exit Sub
End If
For vLinha2 = 1 To cursor1.getRangeAddress.EndRow
If hoja1.getCellByPosition(0, vLinha2).String = "" Then Exit For
If hoja1.getCellByPosition(0, vLinha2).String Like "*" & vCodigo & "*" Then
hoja1.getCellByPosition(0, vLinha2).CharColor = 16711680
hoja1.getCellByPosition(0, vLinha2).CharWeight = com.sun.star.awt.FontWeight.BOLD
End If
Next
Next
End Sub
Re: [Resuelto] Buscar todos los caracteres y pintar
Publicado: Jue Dic 27, 2018 3:08 am
por physic