OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Nnet

Člen

Registrace: 13. 3. 2017

Příspěvků: 2

Jak poznat práznou buňku

Ahoj, píšu makro které mi skryje řádky podle toho jestli se v určitém sloupci nachází prázdný řádek.

Ale narazil jsem na problém, v buňkách které kontroluji makrem je několik typů obsahu: číslice, text a nebo vzorec.

Pokud teda použiju oCellToCheck.Value tak mi to skryje i řádky kde je text naopak pokud hledám podle Formula tak mi to neskryje řádky kde je vzorec, ač jeho výsledek je prázdný znak.

Mohl by mi někdo poradit jak mám najít buňky které jsou pro mě vizuálně prázdné (ač třeba s vzorcem který jako výstup dává prázdný znak)

Děkuji za pomoc

Tady je aktuální kod makra
sub Main
dim Row as Object
dim Sheet as Object
dim Doc as Object

Doc = ThisComponent
Sheet = Doc.Sheets(0)
oSelection = ThisComponent.getCurrentSelection()
oRangeAddress = oSelection.getRangeAddress()
for iRow = 6 to 200
oCellToCheck = oSelection.getCellByPosition(9,iRow)
if( oCellToCheck.Value = "" ) then
iRow2 = Sheet.Rows(iRow)
iRow2.IsVisible = False
end if
next iRow

end sub

neutr

Člen

Registrace: 8. 3. 2007

Příspěvků: 3,468

Re: Jak poznat práznou buňku

Otestujte if( oCellToCheck.Value = "" ) then Upravit takto :

if oCellToCheck.string = "" then

I když nechápu proč to děláte takto složitě. Posílám kód který umí také zobrazit řádky pokud se tam mezi tím dostala nějaká hodnota.

Sub Skryt_Zobrazit
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = ThisComponent
oSheet = Doc.Sheets(0)
For i = 6 To 200
Cell = oSheet.getCellByPosition(9,i)
oSheet.Rows(i).isVisible =IIF(Cell.string = "",False, True)
next i
MsgBox "Aktualizace je hotová"
End Sub

Editoval neutr (13. 3. 2017 16:46:01)

---

Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Nnet

Člen

Registrace: 13. 3. 2017

Příspěvků: 2

Re: Jak poznat práznou buňku

Děkuji kod funguje výborně.

Makra pro OO mi přijdou dost složitá oproti MO
Nechápu mě to při použití string vyhazovalo chybu.