एक्सेल वीबीए

Question

में सम्मिलित करने पर CopyOrigin कोई मुझे बता सकता है कि Insert के CopyOrigin पैरामीटर का उपयोग किस लिए किया जाता है? और यह किस मूल्य को स्वीकार करेगा?

मैं VBA सहायता (जो वास्तव में है कि सहायक नहीं था) में शामिल हैं:

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

अभिव्यक्ति। प्रविष्टि (Shift, CopyOrigin) अभिव्यक्ति आवश्यक है। एक अभिव्यक्ति जो एक रेंज ऑब्जेक्ट देता है।

शिफ्ट वैकल्पिक संस्करण। कक्षों को स्थानांतरित करने के लिए निर्दिष्ट करता है। निम्नलिखित XlInsertShiftDirection स्थिरांक में से एक हो सकता है: xlShiftToRight या xlShiftDown। यदि यह तर्क छोड़ा गया है, तो माइक्रोसॉफ्ट एक्सेल रेंज के आकार के आधार पर निर्णय लेता है।

CopyOrigin वैकल्पिक संस्करण। प्रतिलिपि मूल।

Answer 1

यह नीचे दिया गया एक पैरामीटर लेता है।

Const xlFormatFromLeftOrAbove = 0 

Member of Excel.XlInsertFormatOrigin 

और ...

Const xlFormatFromRightOrBelow = 1 

Member of Excel.XlInsertFormatOrigin 

Answer 2

Lakshmanaraj की टिप्पणी को जोड़ना - यह स्वरूपण विकल्प को चुनता है जहां कोशिकाओं & क्या आप लेने के लिए चाहते हैं स्वरूपण डालने कर रहे हैं पर निर्भर करता है।
पहली पंक्ति जो बोल्ड पाठ है,
दूसरी पंक्ति इटैलिक में बातें है:

कहते हैं कि तुम है देता है।
आप 2 पंक्ति & निम्नलिखित अभिव्यक्ति पर अमल का चयन करें:

Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove 

नई पंक्ति 1 और 2 पंक्ति & यह सेल के बाईं ओर "ऊपर पंक्ति" या "कोशिकाओं से फ़ॉर्मेटिंग नियम उठाता के बीच डाला जाता है "।

इस मामले में, नए डाले गए कक्षों में पाठ को स्पष्ट रूप से सेट किए बिना बोल्ड के रूप में टेक्स्ट होगा।

Answer 3

आप यहाँ देख सकते हैं:

Imports Excel = Microsoft.Office.Interop.Excel 
Dim XLApp As New Excel.Application() 
Dim xWkBook As Excel.Workbook = XLApp.Workbooks.Open(YourInitialPath) 
Dim xSheet As Excel.Worksheet = CType(xWkBook.Sheets(1), Excel.Worksheet) 

CurCell = xSheet.Range("G9:G11") 
CurCell.Insert(Excel.XlInsertShiftDirection.xlShiftToRight, CurCell.Copy())