में एक सेल बनाने के लिए मैं वर्तमान में है:VBA का उपयोग कैसे करें Excel 2007 पारदर्शी
Range("Z1").Interior.Color = RGB(255, 255, 255)
लेकिन यह कोशिकाओं की सीमाओं का सफाया। इसके बजाय मैं बस कोशिकाओं की पारदर्शिता को 1.0 तक रेंज करना चाहता हूं। The docs ऐसा लगता है कि यह अस्तित्व में नहीं है (?)।
धन्यवाद!
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
कुछ स्पष्टीकरण अच्छा होगा। – rayryeng
शायद एक साधारण दृष्टिकोण (Symbol).(line or background)Color = -1 'Transparent होगा।
बिल्कुल सही। बहुत बहुत धन्यवाद। क्या आप मुझे इस ज्ञान के संदर्भ में इंगित कर सकते हैं? एमएसडीएन को तुरंत इसे सुलभ नहीं लग रहा था: [रंग इंडेक्स] (http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.interior.colorindex%28v=office.11%29 .aspx) पारदर्शिता के बारे में कुछ भी नहीं कहता है। [इस पृष्ठ में x1None सूचीबद्ध है] (http://msdn.microsoft.com/en-us/library/microsoft.office.core.xlconstants.aspx) लेकिन बिना किसी विवरण (?! Grr) के साथ दिलचस्प बात यह है कि यह xlTransparent भी सूचीबद्ध करता है जिसमें एक है अलग-अलग मूल्य (असुरक्षित रूप से) काम नहीं करता है। वैसे भी आपकी मदद के लिए बहुत बहुत धन्यवाद! – AJP
'xlNone' का उपयोग Excel में मेनू से "नहीं भरें" चुनने जैसा ही है: यह वास्तव में "पारदर्शी" नहीं है। तकनीकी रूप से यह संभवतः 'xlColorIndexNone' होना चाहिए लेकिन उनके पास एक ही मूल्य है ... ColorIndex प्रॉपर्टी फ़ॉन्ट और सीमा जैसे अन्य ऑब्जेक्ट पर लागू होती है, इसलिए यही कारण है कि आप उन मानों को देख रहे हैं जिन पर आंतरिक पर लागू होने पर कोई प्रभाव नहीं पड़ता है। ColorIndex संदर्भ के लिए कभी-कभी करने के लिए सबसे अच्छी बात सिर्फ एक मैक्रो रिकॉर्ड है और देखें कि क्या उत्पन्न होता है। ऑब्जेक्ट ब्राउज़र (वीबी संपादक में F2 दबाएं) भी उपयोगी है। –
फिर, बिल्कुल सही, धन्यवाद टिम, इच्छा है कि मैं यह और अंक दे सकता हूं। रिकॉर्डिंग एक मैक्रो शानदार ढंग से काम किया: 'उप Macro1() रेंज। (" टी 1: W4 ") Selection.Interior के साथ चयन करें .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 समाप्ति End Sub के साथ ' – AJP