컴퓨터를 만나는 기쁨

1. 문제 아래와 같이 표 2개가 있고, 위의 서식이 변하면 아래에 서식이 자동으로 복사되도록 하려고 합니다. 2. 해법 1(실패) 일단 생각할 수 있는 것이 Worksheet_Change 메서드입니다. Sheet1을 클릭한 다음 오른쪽 코드 창에서 Worksheet 객체를 선택한 다음 오른쪽에서 Change 메서드를 클릭합니다. 그러면 아래와 같이 Worksheet_Change 서브 프러시저가 생성됩니다. "일정한 범위 내 값이 바뀐다면"이라는 조건문은 아래와 같이 정형화되어 있습니다. Private Sub Worksheet_Change(ByVal Target As Range) Dim keyCells As Range Set keyCells = Range("c5:d8") If Not Application..

1. 매크로 기록 - 모든 테두리를 실선으로 그리기 개발도구에서 매크로 기록을 누르고, 매크로 저장 위치를 '현재 통합문서'로 하고, 확인 버튼을 누르면 홈 탭, 테두리에서 모든 테두리를 클릭하고, 개발도구 - 매크로 중지를 누르면 아래와 같은 코드가 만들어집니다. Sub 매크로1() ' ' 매크로1 매크로 ' ' Range("A2:Q15").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0..

다. 복사할 범위로 여러 셀 지정후 붙여 넣을 범위에 붙여 넣는 매크로 작성 CopyRange가 2차원 배열이므로 2차원 배열에 맞게 매크로를 작성하였습니다. Sub FilteredRange_Copy5() Range("a2").Select If Not ActiveSheet.FilterMode Then Selection.AutoFilter 2, "가락1*" Set CopyRange = Application.InputBox("복사할 범위를 선택하세요.", Type:=8) Set PasteRange = Application.InputBox("붙여넣을 첫번째 셀을 선택하세요.", _ Type:=8, Default:=Range("a2").Address(0, 0)) Set PasteRange = Range(Past..

[프로그램 구현] Option Explicit Sub 구구단() Dim i As Integer, j As Integer 'i는 구구단 앞 숫자, j는 구구단 뒷 숫자 Dim iRow As Integer, iCol As Integer, iLastCol '셀 주소 행, 열, 마지막 열 Dim iLastDan As Variant, iDisplayDan As Variant '구구단 최종 단수, 한 줄에 표시할 단수. 취소 버튼이 있기 때문에 Variant로 줘야 합니다. Application.ScreenUpdating = False '처리하는 동안 화면 갱신하지 않음 ' 문장 2개를 나란히 쓸 때는 콜론으로 연결 iRow = 3: iCol = 1 Do iLastDan = Application.InputBox("..

1편에서 범위를 다뤘는데, Microsoft 도움말에 있는 예제를 하나 더 알아보겠습니다. 1. 3개 셀 선택 Sub Cbm_Value_Select() 'Set up the variables. Dim rng As Range 'Use the InputBox dialog to set the range for MyFunction, with some simple error handling. Set rng = Application.InputBox("Range:", Type:=8) If rng.Cells.Count 3 Then MsgBox "Length, width and height are needed -" & _ vbLf & "please select three cells!" Exit Sub End If 'Ca..

아래 글에서 정해진 범위를 복사해서 정해진 영역에 붙여 넣는 매크로를 다뤄봤는데, https://lsw3210.tistory.com/m/163 아래와 같이 A1셀부터 A5셀까지 데이터가 있는데, B1셀에 붙여 넣으려면 위 글에 의한 방식으로 하면 Range("A1:A5").Copy Destination:=Range("B1")이라고 모듈 1에 작성하면 됩니다. 모듈을 작성하려면 개발도구 - Visual Basic 명령을 누른 다음 Visual Basic Editor에서 삽입 - 모듈 메뉴를 눌러 모듈을 추가한 다음 코드 창에 아래와 같이 입력하고 Sub 복붙1() Range("A1:A5").Copy Destination:=Range("B1") End Sub 복붙1이라는 sub 프로시저 안에 커서를 넣은 다..