SITO1 -- SITO2 -- Forum1 -- CercaGlobale -- Informativa su Cookie e Privacy


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
attiva macro da cella
#1
Ciao,
Ho fatto una macro che con i pulsanti funziona. Ora vorrei che, in un range di celle contigue (es. A1:C3), con un semplice click si attivi.
E' possibile?
Utilizzo Calc di OpenOffice

Grazie
combatti per migliorare, mai per distruggere. la vita è come uno specchio, sorridi e ti sorriderà
Cita messaggio
Grazie da:
#2
è possibile utilizzando gli eventi (clic destro sul tab del foglio), ma allega un file di esempio e spiega meglio lo scopo
Cita messaggio
Grazie da:
#3
Ciao
ecco esempio.
In pratica ora premo i pulsanti e visualizzo fattura.
Chiedo se è possibile cliccare sul n (o altre celle... nome ecc.) e fare la stessa operazione.
Premetto che la fattura non è semplice come da esempio ma ha più di 100 voci (celle).

Grazie Patel


Allegati
.ods   Esempio per aggiungere macro.ods (Dimensione: 16,91 KB / Download: 4)
combatti per migliorare, mai per distruggere. la vita è come uno specchio, sorridi e ti sorriderà
Cita messaggio
Grazie da:
#4
Sono tutte macro registrate e non capisco cosa fanno, me lo puoi spiegare ? cosa cambia da una all'altra ?
Cita messaggio
Grazie da:
#5
Ciao, Patel

scusa la mia ignoranza, ad un principiante ignorante come me credo sia permesso Bimbo Piange
ogni bottone (macro) mi fa visualizzare la fattura relativa in formato "analogico" comprensibile derivando, la fattura, da una riga di dati.

ecco io volevo sapere se era possibile non fare una infinità di bottoni ma cliccare solo sulla riga della relativa fattura. La macro deve solo copiare un numero e trascriverlo nella cella relativa della fattura.
combatti per migliorare, mai per distruggere. la vita è come uno specchio, sorridi e ti sorriderà
Cita messaggio
Grazie da:
#6
Lascia solo il primo pulsante, modifica così la sub copia1. seeleziona la cella della colonna B e clicca sul pulsante
Codice:
sub copia1
dim document   as object
dim dispatcher as object
doc   = ThisComponent
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
ActiveCell = doc.getCurrentSelection()
RIGA = ActiveCell.CellAddress.Row+1
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$" & RIGA

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "v4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVD"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$B$" & RIGA

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
end sub
Cita messaggio


Vai al forum:


Utenti che stanno guardando questa discussione: