Al momento ho:Come utilizzare VBA per creare una cella in Excel 2007 trasparente
Range("Z1").Interior.Color = RGB(255, 255, 255)
Ma questo spazza via i bordi delle celle. Invece vorrei solo impostare la trasparenza delle celle nell'intervallo su 1.0. The docs sembra suggerire che non esiste (?).
Grazie!
Range("Z1").Interior.ColorIndex = xlNone
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row and column that contain the active cell
.EntireRow.Interior.ColorIndex = 8
.EntireColumn.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub
Alcune spiegazioni sarebbero belle. – rayryeng
Forse un approccio semplice sarebbe (Symbol).(line or background)Color = -1 'Transparent.
Perfetto. Grazie mille. Potresti indicarmi il riferimento di questa conoscenza per favore? MSDN non sembra averlo immediatamente accessibile: [ColorIndex] (http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.interior.colorindex%28v=office.11%29 .aspx) non dice nulla sulla trasparenza. [Questa pagina elenca x1None] (http://msdn.microsoft.com/en-us/library/microsoft.office.core.xlconstants.aspx) ma senza descrizione (?! Grr) È interessante notare che elenca anche xlTransparent che ha un valore diverso che (non sorprendentemente) non funziona. Grazie mille per il tuo aiuto comunque! – AJP
L'uso di 'xlNone' equivale a selezionare" Nessun riempimento "dal menu in Excel: non è realmente" trasparente ". Tecnicamente probabilmente dovrebbe essere 'xlColorIndexNone' ma hanno lo stesso valore ... La proprietà ColorIndex si applica ad altri oggetti come Font e Border, quindi è per questo che potresti vedere valori che non hanno alcun effetto se applicati a Interior.ColorIndex Per riferimento a volte la cosa migliore da fare è semplicemente registrare una macro e vedere cosa viene generato. Anche il browser degli oggetti (premere F2 nel VB Editor) è utile. –
Ancora, perfetto, grazie Tim, vorrei poter dare più punti. Registrazione di una macro funzionato brillantemente: 'Sub Macro1() Range. ("T1: W4") Selezionare Con Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub ' – AJP