Pagina 1 di 1
[RISOLTO] formattare celle tramite macro
Inviato: domenica 15 aprile 2012, 23:33
da upacill
Ciao vorrei formattare delle celle tramite una macro, con la normale formattazione condizionale sarebbe impossibile per l'elevato numero di celle da formattare diversamente, quali sono i comandi per farlo tramite basic? dovrei applicare un determinato colore ad alcune celle e poi fare il bordo, è possibile? Grazie in anticipo.
Re: formattare celle tramite macro
Inviato: martedì 17 aprile 2012, 16:20
da c.spaziani
Codice: Seleziona tutto
Sub FormattaCelle
Dim aBorder as New com.sun.star.table.BorderLine
oSheet = ThisComponent.getSheets().getByName("Foglio1")
oCellRange = oSheet.getCellRangeByPosition(1, 1, 2, 2) 'B2:C3
'oCellRange = oSheet.getCellRangeByName("B2:C3") 'Se preferisci selezionare per nome
oCellRange.CellBackColor = RGB(211, 211, 211)
With aBorder
.Color = RGB(255, 0, 0)
.OuterLineWidth = 1
End With
oBorder = oCellRange.TableBorder
With oBorder
.LeftLine = aBorder
.TopLine = aBorder
.RightLine = aBorder
.BottomLine = aBorder
End With
oCellRange.TableBorder = oBorder
End Sub
Re: formattare celle tramite macro
Inviato: martedì 17 aprile 2012, 22:13
da upacill
Grazie sei davvero un grande
SUPER RISOLTO