Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Volevo sapere come si può impostare con l'uso del VBA su Excel che, quando modifico il valore di una cella, rispetto il valore di un’altra cella collegata, si inserisca in alto a dx della cella un simbolo (ad esempio l’asterisco * oppure una lettera) per indicare che quel valore è stato modificato. Ad esempio, io nella cella B3 utilizzo la seguente formula nella formattazione condizionale: =B3<>PROPOSTE!B3.
Come posso inserire nella cella B3 (se il valore è diverso dalla cella B3 del foglio “proposte”) * in alto a dx della cella? Grazie dell’aiuto.
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
O mamma mia ... questa cosa sembra più complicata del quadro RU che ho predisposto, e ancora non completato, di una dichiarazione di una società piena di crediti d'imposta :)
Prova a scaricare questo file: File Esempio modificato
comunque non riesco a far funzionare il codice. mi puo' dire i passaggi per come e dove devo inserire il codice. grazie
Per confrontare più celle da B3 a AX20 e inserire un simbolo in base al valore di ogni cella corrispondente nel foglio "PROPOSTE", è possibile modificare il codice VBA come segue: '''vba Sub privato Worksheet_Change(ByVal Target come intervallo) Dim rng come intervallo Imposta rng = Intervallo("B3:AX20") ' Cambia l'intervallo nelle celle desiderate Se non intersect(target, rng) non è nulla allora Attenua cella come intervallo Per ogni cella in Intersect(Target, rng) Se la cell. Fogli di lavoro di valore <> ("PROPOSTE"). Intervallo(cell. Indirizzo). Valore allora cellula. CancellaFormati cell.Font.Name = "Arial" cellula. Font.Size = 10 cellula. Font.Color = RGB(0, 0, 0) cellula. Font.FontStyle = "Grassetto" cellula. Caratteri(1, 1). InsertSymbol CharacterNumber:=42, FontName:="Wingdings" Fine se Cella successiva Fine se Fine sottomarino ''' Con questo codice, tutte le modifiche apportate alle celle da B3 ad AX20 verranno confrontate con le celle corrispondenti nel foglio "PROPOSTE". Se i valori sono diversi, verrà inserito un asterisco in alto a destra di ogni cella. Ricordarsi di salvare il file Excel come cartella di lavoro abilitata per le macro (.xlsm) per conservare il codice VBA. Sono contento di aver potuto aiutare Gabrielle, gentilmente lascia un feedback positivo.
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(246.4, 38%, 33%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EG%3C/text%3E%3C/svg%3E)
ciao
il traduttore automatico ha stravolto la macro
che deve essere scritta in inglese.
e comunque viste le tue nuove richieste deve essere tutta riscritta
Ho inoltrato il tuo problema a un team di esperti che gestirà questa situazione ora. Spero che possano risolvere questo problema per te.
Si prega di lasciare un feedback positivo, cordiali saluti.
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.
ciao
a chi è che hai inoltrato il problema?
secondo te questo forum a cosa serve?
guarda che ci stai offendendo
l