Pagina 1 di 1
Attivando la macro sparisce la Formattazione Condizionale [Risolto]
Inviato: venerdì 13 dicembre 2024, 14:53
da Nando69
Salve. Mi succede una cosa strana e non capisco il motivo. Nel file allegato è inserita una formattazione condizionale che mi colora di giallo il numero 9 ogni volta che questo valore sortisce dalle varie estrazioni. Bene,adesso prelevo da un altro foglio l'aggiornamento delle suddette estrazioni e faccio un semplice copia manuale. A questo punto torno sul foglio principale (file allegato) e tramite una macro (abilitata come si può notare anche col pulsante
"Incolla"),premo il tasto,incollo le nuove estrazioni ma ecco il fatto : la Formattazione Condizionale misteriosamente sparisce (viene eliminata) per cui al fine di aggiornare correttamente il foglio sono costretto a fare un "Incolla" manuale. Qual'è la ragione e si può risolvere nel caso il problema ? Una buona serata
Re: Attivando la macro sparisce la Formattazione Condizionale
Inviato: venerdì 13 dicembre 2024, 16:37
da Muset
Ciao, rifai la macro con incolla solo TESTO e NUMERI
Re: Attivando la macro sparisce la Formattazione Condizionale
Inviato: venerdì 13 dicembre 2024, 16:46
da Nando69
Ciao. Non essendo un creatore di macro (magari) avevo semplicemente cercato una soluzione al mio scopo dopo che qualche utente aveva posto l'opportunitá di avere una rapida scorciatoia sul fattore "Incolla" senza fare questo in maniera manuale. Vorrei gentilmente chiederti perció cosa devo modificare nel testo codice macro del file allegato sul mio precedente paragrafo. Grazie
Re: Attivando la macro sparisce la Formattazione Condizionale
Inviato: domenica 15 dicembre 2024, 20:44
da lucky63
.
Nuova macro da registratore.
.
Codice: Seleziona tutto
sub incolla
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$H$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(5) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SV"
args2(1).Name = "FormulaCommand"
args2(1).Value = 0
args2(2).Name = "SkipEmptyCells"
args2(2).Value = false
args2(3).Name = "Transpose"
args2(3).Value = false
args2(4).Name = "AsLink"
args2(4).Value = false
args2(5).Name = "MoveMode"
args2(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$G$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
end sub
Ora rispetta la formattazione condizionale.
Formattazione condizionale rifatta per range I3:I1000.
Riscontro numeri 9 in celle I5, M81, I115 e K138.
.
Re: Attivando la macro sparisce la Formattazione Condizionale
Inviato: lunedì 16 dicembre 2024, 12:06
da Nando69
Ciao,grazie mille