...a jeste jeden dotaz - jde nejak ve funkci v basicu zjistit, ze ta
funkce byla zavolana z nejake bunky v sesitu? A pokud ano, jsem schopny
zjistit adresu te bunky (vcetne jmena/indexu) listu?
Zbynek
Tomas Bilek napsal(a):
Zbyněk Burget napsal(a):
Zdravim konferenci,
potreboval bych v Calcu programove (bud funkci v bunce nebo v Basicu)
zjistit barvu pozadi urcite bunky. Presnej receno potrebuju spocitat,
kolik bunek v urcite oblasti ma jinou barvu pozadi, nez bilou.
Trochu jiná varianta:
sub ukazbarvu
dim oDoc, oSelect as object
dim list as integer
oDoc = ThisComponent
oSelect=oDoc.CurrentSelection.getRangeAddress
i=oDoc.CurrentSelection.getCellAddress.Sheet
msgbox "List "+cstr(i)+chr(13)+_
"Barva levé horní buňky je: "+_
hex(oDoc.sheets(i).getCellByPosition(oSelect.StartColumn,oSelect.StartRow).CellBackColor)
end sub
Tom B.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
