Macro borrar un rango de celdas de una determinada hoja de cálculo en OpenOffice Calc

Macro borrar rango de celdas OpenOffice Calc

Para eliminar en Hoja2 el rango de celdas D8:F14 en tu editor Basic llama a la macro de este modo:

BorrarCeldas( "Hoja2", "D8:F14")

La macro:

 

 

 

Sub BorrarCeldas(NombreHoja as string, RangoCeldas as string)
Dim oDoc As Object
Dim oRango As Object

'Este documento
oDoc = ThisComponent
'Hoja se define por nombre, rango por nombre
oRango = oDoc.getSheets.getByName(NombreHoja).getCellRangeByName(RangoCeldas)

'Borramos las celdas del rango en la hoja
oRango.clearContents(1023)

End Sub

No hay reacciones, todavía


Form is loading...

Otros usuarios vieron...

  • Este procedimiento para ordenar matrices es, en la gran mayoría de casos, más rápido que el método de la burbuja.

    Para conocer más sobre estos métodos puedes consultar las sigui

  • Aleatorio Entre Macro para OpenOffice LibreOffice Basic

     

    OOoBasic, AOOBasic y LibOBasic son casi iguales. Probablemente y poco a poco estos tres productos irán divergiendo, pero de momento los tres carecen de una función que nos of

  • Esta función devuelve la letra del NIF asociada a un número de DNI

    Function LetraNif(dni As Long) As String
    LetraNif = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (dni Mod 23) + 1, 1)
    End Function

Patrocinado por SBS  Contacto • ©2019 by SalvaDCH