Sub Test() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) For Each ms In m.Sheets If ms.Name = "청라" Then Set ms = ms Dim i As Integer: Dim j As Integer Dim START_ROW As Integer: Dim START_COL As Integer Dim outv As Variant '// (1 To 7) : Row : tctype ReDim outv(1 To 7, 1 To 1) START_ROW = 13 START_COL = 4 Dim r As Integer: r = 1 '// 우측으로 이름 반복 For i = 4 To ms.Cells(ST..

Dim rng as Range Set rng = Range(“A2:C6”) rng.RemoveDuplicates Columns:=Array(1, 2, 3,), Header:=xlNo 'A, B, C 기준 잡고 중복제거

Sub 이미지붙여넣기() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) Set ms = m.Sheets("Camera") Dim sht As Worksheet Dim shape As Excel.shape Dim pic As Picture Set pic = ms.Pictures("그림 1") '시트 반복 For Each sht In Workbooks(ThisWorkbook.Name).Sheets ' 조건 If sht.Index > 4 Then ' 이미지 복사 pic.Copy ' 이미지 붙여넣기 sht.Paste For Each shape In sht.Shapes Select Case shap..

'# 이름 정의 하는 법 With ThisWorkbook '# 이름 정의 기존 것 삭제 .Names("TEST").Delete '# 이름 정의 추가 .Names.Add "TEST", RefersTo:="=OFFSET(Sheet2!" & "$E$" & cht_row & ",,,-Sheet2!$C$13)" '# 이름정의 만들고 범위 넣기. End With * cht_row 이 로우는(차트범위임) 항상 바뀌기 때문에 이름정의를 이용하여 구현했음. With ThisWorkbook.Names("Test") .Name = "Test" .RefersTo = "=OFFSET(Sheet2!" & "$E$" & cht_Row & ",,,-Sheet2!$C$13)" End With

Q : 엑셀 VBA 질문드립니다. 만들고 싶은게 이름,나이,성명 을 입력상자에 입력한 후 확인을 누르면 엑셀시트에 열에 맞추어 그대로 입력되게 하고싶은데 어떻게 만들수 있을까요 ? VBA 한번도 사용 안해봤습니다. A : 아래 처럼 구현하면 됩니다. Private Sub CommandButton1_Click() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) Set ms = m.Sheets(ActiveSheet.Name) Dim START_ROW As Integer Dim LAST_ROW As Integer ' 입력이 시작 될 행 위치 지정 START_ROW = 10 ' 입력할 마지막 행 위치 지정 LAST_ROW = ..

보통 엑셀 VBA를 하다보면 엑셀 셀에다가 콤보박스도 넣고~ 체크박스도 넣고 라디오버튼 들도 넣는 걸 도대체 어디서 추가하나 싶을 때가 있더라구요. ​ ​ 추가하는 방법은 바로 엑셀 리본도구에 있는 [개발 도구] 라는 곳에 모여있는데요. 엑셀 시트 내에서도 정말 여러가지 기능들을 사용할 수 가있어요. ​ ​ ​ ​ 개발 도구 추가 방법 1. 상단 파일 탭에서 마우스 우클릭 > 리본 메뉴 사용자 지정(R).. ​ 2. 리본 메뉴 사용자 지정 및 기본 탭에서 개발 도구 확인란을 선택합니다. ​ ​ ​ 아래는 마이크로소프트에서 제공하는 가이드 입니다. 개발 도구 탭을 표시합니다. 리본 메뉴에 개발 도구 탭을 표시합니다. support.office.com ​ ​ ​ 추가 내용.. 개발 도구에서 엑셀 시트에 아래..