OpenOffice.info

Code: Alles auswählen

Sub getcontainer
osel=thiscomponent.currentselection 'ließt die gerade selektierte Zelle ein
nbackcolor = osel.CellBackColor' ließt die Hintergrundfarbe der Zelle in die Variable "nbackcolor" ein
sText = osel.string ' ließt den Text, der in der Zelle steht, in die Variable "sText" ein
End Sub

Code: Alles auswählen

Sub insertcontainer
osel = thiscomponent.currentselection' ließt wieder die gerade selektierte Zelle ein, sollte jetzt eine "im Schiff" sein
if sText<>"delete" then 'Wenn der im ersten Makro eingelesene Text nicht "delete" ist,
osel.string=sText ' dann schreibe in die "Schiffszelle" den Text von oben (sText)
else 'anderfalls, also wenn der eingelesene Text "delete" ist
osel.string="" dann schreibe in die "Schiffszelle" nix
endif
osel.CellBackColor = nbackcolor 'setze die Hintergrundfarbe der "Schiffszelle" gleich der oben gewählten Farbe
end sub

Code: Alles auswählen

REM  *****  BASIC  *****
global nbackcolor as long
global sText as String

Sub getcontainer(event)
osel=thiscomponent.currentselection
nbackcolor = osel.CellBackColor
ncharcolor = osel.Charcolor
event.source.model.backgroundcolor = nbackcolor
event.source.model.TextColor = ncharcolor
sText = osel.string
End Sub

Sub insertcontainer
osel = thiscomponent.currentselection
if sText<>"leer" then
osel.string=sText
else
osel.string=""
endif
osel.CellBackColor = nbackcolor
count_colors
end sub

sub count_colors
osheet = thiscomponent.currentcontroller.activesheet
qrange = osheet.getcellrangebyname("B1:Q2")
trange = osheet.getcellrangebyname("B5:AU14")
for i=0 to qrange.columns.count-1
ncolorcount=0
ncountbackcolor = qrange.getcellbyposition(i,0).CellBackColor
 for j=0 to trange.columns.count-1
  for k=0 to trange.rows.count-1
   ocell = trange.getcellbyposition(j,k)
   if ocell.CellBackColor = ncountbackcolor then ncolorcount=ncolorcount+1
  next k
 next j
 qrange.getcellbyposition(i,1).value = ncolorcount
next i
end sub

sub clear_ship(event)
ocmdCopy=event.source.model.parent.cmdCopy
ocmdCopy.Textcolor = -1
ocmdCopy.backgroundcolor = -1
osheet = thiscomponent.currentcontroller.activesheet
qrange = osheet.getcellrangebyname("B1:Q2")
trange = osheet.getcellrangebyname("B5:AU14")
qrange.clearContents(1)
trange.clearContents(36)

end sub