CopyOrigin (Excel VBA의 삽입시)

Question

Insert의 CopyOrigin 매개 변수는 누구에게 말해 줄 수 있습니까? 그리고 어떤 값을 사용할 수 있습니까?

내가 VBA 도움말을 (이 정말 도움이되지 않았습니다) 포함했다

:

삽입 셀 또는 워크 시트 또는 매크로 시트 및 공간을 확보하기 위해 멀리 교대 다른 세포로 세포 의 범위 .

expression.Insert (Shift, CopyOrigin) expression 필수 요소입니다. Range 개체를 반환하는 식

교대 선택적 변형. 어느 방향으로 셀을 이동 시킬지를 으로 지정합니다. 다음 중 하나 일 수 있습니다. XlInsertShiftDirection 상수 : xlShiftToRight 또는 xlShiftDown. 이 인수를 생략하면 Microsoft Excel 은 범위의 모양을 기반으로 결정합니다.

CopyOrigin 선택적 변형. 복사 원본

Answer 1

아래 주어진 하나의 매개 변수 중 하나를 취합니다. 그것은 당신이 선택하고자하는 포맷 어떤 세포 &를 삽입하는 위치에 따라 서식 옵션을 선택합니다 - Lakshmanaraj의 의견을 추가

Const xlFormatFromRightOrBelow = 1 

Member of Excel.XlInsertFormatOrigin 

Answer 2

Const xlFormatFromLeftOrAbove = 0 

Member of Excel.XlInsertFormatOrigin 

하고 .... 굵은 텍스트가
첫 번째 행,
두 번째 행은 이탤릭체로 일을 가지고이 :

은 당신이 말할 수 있습니다. 새로운 행이 1, 2 행은 셀의 왼쪽에있는 "위의 행"또는 "세포에서 규칙 서식을 선택합니다 & 사이에 삽입됩니다

Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove 

:
는 다음과 같은 식을 실행 & 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())