Tôi hiện có:Làm thế nào để sử dụng VBA để làm cho một ô trong Excel 2007 trong suốt
Range("Z1").Interior.Color = RGB(255, 255, 255)
Nhưng điều này làm mờ nhạt những biên giới của các tế bào. Thay vào đó, tôi chỉ muốn đặt độ trong suốt của các ô trong phạm vi thành 1.0. The docs dường như đề xuất nó không tồn tại (?).
Cảm ơn!
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
Một số giải thích sẽ tốt đẹp. – rayryeng
Có lẽ một phương pháp đơn giản sẽ là (Symbol).(line or background)Color = -1 'Transparent.
Hoàn hảo. Cảm ơn bạn rất nhiều. Bạn có thể chỉ cho tôi tham khảo kiến thức này không? MSDN dường như không có nó ngay lập tức có thể truy cập: [ColorIndex] (http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.interior.colorindex%28v=office.11%29 .aspx) không nói gì về tính minh bạch. [Trang này liệt kê x1None] (http://msdn.microsoft.com/en-us/library/microsoft.office.core.xlconstants.aspx) nhưng không có mô tả (?! Grr) Điều thú vị là nó cũng liệt kê xlTransparent trong đó có một giá trị khác nhau (không ngạc nhiên) không hoạt động. Cảm ơn bạn rất nhiều vì đã giúp đỡ bạn! – AJP
Sử dụng 'xlNone' giống như chọn" Không điền "từ menu trong Excel: nó không thực sự" trong suốt ". Về mặt kỹ thuật, nó có thể là 'xlColorIndexNone' nhưng chúng có cùng giá trị ... Thuộc tính ColorIndex áp dụng cho đối tượng khác như Font và Border, vì vậy đó là lý do tại sao bạn có thể thấy các giá trị không có hiệu lực khi áp dụng cho Interior.ColorIndex đôi khi điều tốt nhất cần làm là chỉ ghi lại macro và xem những gì được tạo. Trình duyệt đối tượng (nhấn F2 trong VB Editor) cũng hữu ích. –
Một lần nữa, hoàn hảo, cảm ơn Tim, ước gì tôi có thể cho điểm này nhiều hơn. Ghi một macro làm việc rực rỡ: 'Sub Macro1() Range. ("T1: W4") Chọn Với Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub ' – AJP