Ho un'alternativa, che usa QueryEmptyCells e funziona anche con
selezioni multiple
(però, stranamente, almeno una cella tra quelle selezionate non deve
essere vuota...):
Sub MettiZero
oDoc = ThisComponent.CurrentController
oFoglio = oDoc.ActiveSheet
oRanges = oDoc.Selection.QueryEmptyCells()
oAddrs() = oRanges.getRangeAddresses()
For i = 0 To UBound(oAddrs())
oAddr = oAddrs(i)
For nRow = oAddr.StartRow To oAddr.EndRow
For nCol = oAddr.StartColumn To oAddr.EndColumn
oCell = oFoglio.getCellByPosition(nCol, nRow)
oCell.Value = 0
Next nCol
Next nRow
Next i
End Sub
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
