Excel VBA에 삽입 시 CopyOrigin

Excel VBA에 삽입 시 CopyOrigin

Insert의 CopyOrigin 파라미터가 무엇에 사용되는지 알려주실 분 있나요?그리고 어떤 가치를 받아들일 것인가?

vba 도움말도 포함했습니다(실제로 도움이 되지 않았습니다).

워크시트 또는 매크로 시트에 셀 또는 셀 범위를 삽입하고 다른 셀을 이동시켜 공간을 만듭니다.

표현.삽입(Shift, CopyOrigin) 식이 필요합니다.Range 개체를 반환하는 식입니다.

시프트 옵션 바리안트.셀을 이동할 방법을 지정합니다.XlInsertShiftDirection 상수 xlShiftToRight 또는 xlShiftDown 중 하나입니다.이 인수를 생략하면 Microsoft Excel은 범위의 쉐이프에 따라 결정됩니다.

CopyOrigin 옵션 배리언트복사원

다음 중 하나의 파라미터가 사용됩니다.

Const xlFormatFromLeftOrAbove = 0

Member of Excel.XlInsertFormatOrigin

그리고...

Const xlFormatFromRightOrBelow = 1

Member of Excel.XlInsertFormatOrigin

Lakshmanaraj의 코멘트에 추가 - 셀을 삽입하는 위치와 선택하는 포맷에 따라 포맷 옵션이 선택됩니다.

예를 들어 다음과 같습니다.
굵은 글씨로 표시된 첫 번째 행
두 번째 줄에는 이탤릭체로 된 것이 있습니다.
두 번째 행을 선택하고 다음 식을 실행합니다.

Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove

첫 번째 행과 두 번째 행 사이에 새 행을 삽입하고 "위 행" 또는 "셀 왼쪽에 있는 셀"에서 서식 규칙을 선택합니다.

이 경우 새로 삽입된 셀은 명시적으로 설정하지 않아도 굵은 글씨로 표시됩니다.

참조처:

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())

언급URL : https://stackoverflow.com/questions/684531/copyorigin-on-insert-in-excel-vba