Z Wiki.openoffice.cz
(Rozdíly mezi verzemi)
|
|
Řádka 40: |
Řádka 40: |
| | | |
| oSheet.getCellRangeByName("$A$5").Formula = "=SUM($A$1:$A$4)" | | oSheet.getCellRangeByName("$A$5").Formula = "=SUM($A$1:$A$4)" |
| + | |
| + | |
| + | == .CellBackColor == |
| + | |
| + | Změní barvu pozadí buňky |
| + | |
| + | Dim Color1,Color2,i,j |
| + | |
| + | Color1 = 15132390 |
| + | Color2 = RGB(200,200,200) |
| + | |
| + | Následující smyčka vytvoří šachovnicový vzor o rozměrech 8x8 |
| + | |
| + | for i = 0 to 7 |
| + | for j = 0 to 7 |
| + | if (i+j) mod 2 = 1 then |
| + | oSheet.getCellByPosition(j,i).CellBackColor = Color1 |
| + | else |
| + | oSheet.getCellByPosition(j,i).CellBackColor = Color2 |
| + | endif |
| + | next j |
| + | next i |
| | | |
| [[Kategorie:Programování]] | | [[Kategorie:Programování]] |
Aktuální verze
.Value
Vloží do buňky číslo nebo řetězec.
deklarace proměnných
Dim oSheet
Dim i
načtení listu do proměnné
oSheet = thisComponent.Sheets(0)
naplnění buněk A1 až A3 hodnotami 1, 2, 3
for i = 1 to 3
oSheet.getCellRangeByName("$A$"+Val(i)).Value = i
next i
zvýšení hodnoty buňky A4 o jednu
oSheet.getCellRangeByName("$A$4").Value = oSheet.getCellRangeByName("$A$4").Value + 1
vloží řetězec do buňky B1
oSheet.getCellRangeByName("$B$1").Value = "abc"
.String
Vloží do buňky řetězec.
V obou případech bude vložen text
oSheet.getCellRangeByName("$B$2").String = "123"
oSheet.getCellRangeByName("$B$3").String = "efg"
.Formula
Vloží do buňky vzorec.
oSheet.getCellRangeByName("$A$5").Formula = "=SUM($A$1:$A$4)"
.CellBackColor
Změní barvu pozadí buňky
Dim Color1,Color2,i,j
Color1 = 15132390
Color2 = RGB(200,200,200)
Následující smyčka vytvoří šachovnicový vzor o rozměrech 8x8
for i = 0 to 7
for j = 0 to 7
if (i+j) mod 2 = 1 then
oSheet.getCellByPosition(j,i).CellBackColor = Color1
else
oSheet.getCellByPosition(j,i).CellBackColor = Color2
endif
next j
next i