2011-08-07 6 views
5

हासिल करने का लक्ष्य: सीमाओं से छुटकारा पाने के लिए सीमाओं से छुटकारा पाने के लिए।VB.net का उपयोग कर Excel में किसी श्रेणी में सेल्स से सीमाओं को कैसे निकालें?

मेरे पास है:

Dim range As Excel.Range = sheet.Range("A2:K100") 
For Each cell In range 
    // Some cells in the Range has borders 
    // How to remove borders from cells in the range 
Next cell 

कृपया मदद ..!

मैं Vb.net के लिए नया हूं!

उत्तर

17
range.Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlLineStyleNone 
range.Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlLineStyleNone 
range.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlLineStyleNone 
range.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlLineStyleNone 
range.Borders(Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.XlLineStyle.xlLineStyleNone 
range.Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlLineStyleNone 

(xlInsideHorizontal और xlInsideVertical के माध्यम से) कोशिकाओं के आसपास है और कोशिकाओं के बीच की सीमाओं को निकालता है। यदि आप विकर्ण सीमाओं की अपेक्षा करते हैं, तो xlDiagonalDown और xlDiagonalUp शामिल करें।

ठीक है, उपरोक्त कोड बहुत verbose था। निम्नलिखित यह भी करना चाहिए:

For Each border in range.Borders 
    border.LineStyle = Excel.XlLineStyle.xlLineStyleNone 
Next 

देखें: http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx

संपादित करें:

MSDN पृष्ठ पर देखते समय, मैं अगर यह एक लाइनर यह भी कर सकता है सोच रहा हूँ:

range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone 
+0

यह सीमा बहुत धीमी होगी .. सीमा बहुत बड़ी है .. तो, क्या यह पूरी श्रृंखला के लिए एक बार में कर सकता है? –

+0

यह बहुत तेज़ होना चाहिए क्योंकि आप अपने नमूने में हर सेल पर पुनरावृत्ति नहीं कर रहे हैं। क्या तुमने कोशिश की? – VVS

+0

मुझे लगता है जैसे हम प्रत्येक सेल की सीमा पर फिर से चल रहे हैं .. मेरा मतलब है कि आप समाधान अच्छा लगता है, लेकिन क्या पूरे सीमा के लिए कोई सीधी विधि नहीं है? मुझे लगता है कि एक होना चाहिए? –

1

NamedRange.BorderAround Method देखें।

Dim range As Excel.Range = sheet.Range("A2:K100") 
range.BorderAround(Excel.XlLineStyle.xlLineStyleNone, Excel.XlBorderWeight.xlThin, Microsoft.Office.Interop.Excel.XlColorIndex.xlColorIndexAutomatic, missing) 

चीयर्स और शुभकामनाएँ!

+0

यह सीमा के चारों ओर सीमाओं का प्रबंधन करता है और सीमा के अंदर नहीं। मैं स्पष्ट होने के लिए सवाल को संशोधित कर रहा हूं। –

0

सभी उत्तरों इतने शांत क्यों हैं?

पूरी चादर उपयोग के लिए

...

With .Cells 
     .Borders.LineStyle = xlLineStyleNone 
End With 
एक श्रृंखला के लिए

बस के रूप में उचित

2

रेंज .Cells की जगह। ("A2: K100") Borders.LineStyle = xlNone

संबंधित मुद्दे