[Risolto] Macro inserisce nuova riga

Creare una macro - Scrivere uno script - Usare le API
Rispondi
GianlucaB
Messaggi: 3
Iscritto il: venerdì 30 giugno 2017, 20:58

[Risolto] Macro inserisce nuova riga

Messaggio da GianlucaB »

Salve a tutti, mi servirebbe l'istruzione per inserire una nuova riga in un foglio calc, istruzione da inserire nella macro basic.
Ho trovato qua sul forum una possibile solzuione, ma a me non funziona, escono errori strani, forse una versione diversa del linguaggio di programmazione?
Qualcuno può aiutarmi?
Utilizzo Libreoffice 5.2


Grazie.
Ultima modifica di charlie il lunedì 3 luglio 2017, 15:03, modificato 1 volta in totale.
Motivazione: Inserito [Risolto] e spunta verde
Libreoffice su Windows10
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8785
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro inserisce nuova riga

Messaggio da charlie »

Ciao, dovresti allegare il tuo file di Calc (basta un esempio, senza dati sensibili) con la macro che ti dà errore.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Macro inserisce nuova riga

Messaggio da patel »

dove vuoi inserire la riga ? in corrispondenza della cella attiva ? se è così

Codice: Seleziona tutto

Sub inserisciriga
Dim oSheet, oRangeAddress
oSheet = ThisComponent.Sheets(0)
with oSheet
  RIGA = ThisComponent.CurrentSelection.CellAddress.Row +1
  oRangeAddress = .getCellRangeByName("A" & RIGA).getRangeAddress()
  .insertCells(oRangeAddress, com.sun.star.sheet.CellInsertMode.ROWS)
end with
End Sub
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
GianlucaB
Messaggi: 3
Iscritto il: venerdì 30 giugno 2017, 20:58

Re: Macro inserisce nuova riga

Messaggio da GianlucaB »

Grazie, questo codice funziona.
Libreoffice su Windows10
Rispondi