Obecnie mam:Jak używać VBA do komórki w programie Excel 2007 przezroczysty
Range("Z1").Interior.Color = RGB(255, 255, 255)
Ale to ociera się o granice komórek. Zamiast tego chciałbym ustawić przezroczystość komórek w zakresie do 1,0. The docs wydaje się sugerować, że nie istnieje (?).
Dzięki!
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
Niektóre wyjaśnienia byłyby miłe. – rayryeng
Być proste podejście byłoby (Symbol).(line or background)Color = -1 'Transparent.
Idealny. Dziękuję bardzo. Czy możesz wskazać mi odniesienie do tej wiedzy? Wydawało się, że MSDN nie zapewnia natychmiastowej dostępności: [ColorIndex] (http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.interior.colorindex%28v=office.11%29 .aspx) nie mówi nic o przejrzystości. [Ta strona zawiera listę x1None] (http://msdn.microsoft.com/en-us/library/microsoft.office.core.xlconstants.aspx), ale bez opisu (?! Grr). Co ciekawe, zawiera ona również xlTransparent, który ma inna wartość, która (nieoczekiwanie) nie działa. Dziękuję bardzo za pomoc! – AJP
Użycie 'xlNone' jest tym samym, co wybranie" Brak wypełnienia "z menu w Excelu: nie jest tak naprawdę" przezroczyste ". Technicznie prawdopodobnie powinien to być 'xlColorIndexNone', ale mają tę samą wartość ... Właściwość ColorIndex odnosi się do innych obiektów, takich jak Font i Border, dlatego właśnie możesz zauważyć wartości, które nie mają żadnego wpływu, gdy są zastosowane do Interior.ColorIndex. czasami najlepszą rzeczą do zrobienia jest po prostu nagrywanie makra i zobaczenie, co zostanie wygenerowane. Przeglądarka obiektów (naciśnij F2 w edytorze VB) również jest przydatna. –
Jeszcze raz, doskonale, dziękuję Tim, chciałbym móc dać więcej punktów. Nagrywanie makro działało znakomicie: 'Macro1 Sub() Range. ("T1: W4") Wybierz Z Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub ' – AJP