Metodo 1: applica la formattazione condizionale in base a una condizione<\/strong><\/span><\/p>\n Metodo 2: applica la formattazione condizionale in base a pi\u00f9 condizioni<\/strong><\/span><\/p>\n Metodo 3: rimuovi tutte le regole di formattazione condizionale dalle celle<\/strong><\/span><\/p>\n Gli esempi seguenti mostrano come utilizzare ciascun metodo nella pratica con il seguente set di dati in Excel:<\/span> <\/p>\n Possiamo utilizzare la seguente macro per riempire le celle nell’intervallo B2:B11<\/strong> che hanno un valore maggiore di 30 con uno sfondo verde, un carattere nero e uno stile di testo in grassetto:<\/span><\/p>\n Quando eseguiamo questa macro, riceviamo il seguente output:<\/span> <\/p>\n Tieni presente che ogni cella nell’intervallo B2:B11<\/strong> con un valore maggiore di 30 \u00e8 soggetta alla formattazione condizionale.<\/span><\/p>\n Qualsiasi cella con un valore uguale o inferiore a 30 viene semplicemente lasciata intatta.<\/span><\/p>\n Possiamo utilizzare la seguente macro per applicare la formattazione condizionale alle celle nell’intervallo A2:A11<\/strong> in base al nome della squadra:<\/span><\/p>\n Quando eseguiamo questa macro, riceviamo il seguente output:<\/span> <\/p>\n Tieni presente che le celle con i nomi delle squadre “Mavericks”, “Blazers” e “Celtics” sono tutte soggette a una formattazione condizionale specifica.<\/span><\/p>\n L’unica squadra con il nome “Lakers” viene lasciata sola poich\u00e9 non abbiamo specificato alcuna regola di formattazione condizionale per le celle con quel nome di squadra.<\/span><\/p>\n Infine, possiamo utilizzare la seguente macro per rimuovere tutte le regole di formattazione condizionale dalle celle del foglio corrente:<\/span><\/span><\/p>\n Quando eseguiamo questa macro, riceviamo il seguente output:<\/span> <\/p>\n Tieni presente che tutta la formattazione condizionale \u00e8 stata rimossa da ciascuna cella.<\/span><\/p>\n I seguenti tutorial spiegano come eseguire altre attivit\u00e0 comuni in VBA:<\/span><\/p>\n VBA: come contare le occorrenze di caratteri in una stringa<\/a> \u00c8 possibile utilizzare i seguenti metodi in VBA per applicare la formattazione condizionale alle celle: Metodo 1: applica la formattazione condizionale in base a una condizione Sub ConditionalFormatOne() Dim rg As Range Dim cond As FormatCondition ‘specify range to apply conditional formatting Set rg = Range(” B2:B11 “) ‘clear any existing conditional formatting rg.FormatConditions.Delete ‘apply […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n Sub<\/span> ConditionalFormatOne()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set<\/span> rg = Range(\" B2:B11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'apply conditional formatting to any cell in range B2:B11 with value greater than 30\n<\/span>Set<\/span> cond = rg.FormatConditions.Add(xlCellValue, xlGreater, \" =30<\/span> \")\n\n'define conditional formatting to use\n<\/span>With<\/span> cond\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\n.Font.Bold = True<\/span>\nEnd With\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> ConditionalFormatMultiple()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond1 As<\/span> FormatCondition, cond2 As<\/span> FormatCondition, cond3 As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set rg = Range(\" A2:A11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'specify rules for conditional formatting\n<\/span>Set<\/span> cond1 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Mavericks<\/span> \u201d)\nSet<\/span> cond2 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Blazers<\/span> \u201d)\nSet<\/span> cond3 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Celtics<\/span> \u201d)\n\n'define conditional formatting to use\n<\/span>With<\/span> cond1\n.Interior.Color = vbBlue\n.Font.Color = vbWhite\n.Font.Italic = True\nEnd With<\/span>\n\nWith<\/span> cond2\n.Interior.Color = vbRed\n.Font.Color = vbWhite\n.Font.Bold = True\nEnd With<\/span>\n\nWith<\/span> cond3\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\nEnd With<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> RemoveConditionalFormatting()\nActiveSheet.Cells.FormatConditions.Delete\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv11.jpg\")
<\/p>\n Esempio 1: applicare la formattazione condizionale in base a una condizione<\/strong><\/span><\/h2>\n
Sub<\/span> ConditionalFormatOne()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set<\/span> rg = Range(\" B2:B11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'apply conditional formatting to any cell in range B2:B11 with value greater than 30\n<\/span>Set<\/span> cond = rg.FormatConditions.Add(xlCellValue, xlGreater, \" =30<\/span> \")\n\n'define conditional formatting to use\n<\/span>With<\/span> cond\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\n.Font.Bold = True\nEnd With<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv12.jpg\")
<\/p>\n Esempio 2: applicare la formattazione condizionale in base a pi\u00f9 condizioni<\/strong><\/span><\/h2>\n
Sub<\/span> ConditionalFormatMultiple()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond1 As<\/span> FormatCondition, cond2 As<\/span> FormatCondition, cond3 As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set rg = Range(\" A2:A11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'specify rules for conditional formatting\n<\/span>Set<\/span> cond1 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Mavericks<\/span> \u201d)\nSet<\/span> cond2 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Blazers<\/span> \u201d)\nSet<\/span> cond3 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Celtics<\/span> \u201d)\n\n'define conditional formatting to use\n<\/span>With<\/span> cond1\n.Interior.Color = vbBlue\n.Font.Color = vbWhite\n.Font.Italic = True\nEnd With<\/span>\n\nWith<\/span> cond2\n.Interior.Color = vbRed\n.Font.Color = vbWhite\n.Font.Bold = True\nEnd With<\/span>\n\nWith<\/span> cond3\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\nEnd With<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv13.jpg\")
<\/p>\n Esempio 3: rimuovi tutte le regole di formattazione condizionale dalle celle<\/strong><\/span><\/h2>\n
Sub<\/span> RemoveConditionalFormatting()\nActiveSheet.Cells.FormatConditions.Delete\nEnd Sub<\/span><\/strong><\/span><\/pre>\n<\/p>\n Risorse addizionali<\/strong><\/span><\/h2>\n
VBA: come verificare se una stringa contiene un’altra stringa<\/a>
VBA: una formula per \u201cSe\u201d la cella contiene\u201d<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"