엑셀 매크로 활용 VBA(1)

목표 : 시트에서 특정 값 추출 후  특정 시트에 붙여넣고, 수식을 이용해 자동 계산 입력하는 매크로

 

매크로 활성화 방법

Excel 2010기준 / 파일\옵션\리본 사용자 지정\개발도구 활성화

위의 작업을 하게 되면 상단 메뉴 탭에 개발 도구 가 생긴다.(만약 있다면 스킵)

간단 생성

사각형을 그리면 다음 팝업이 실행된다

생성된 매크로 실행 버튼 / 이름 변경은 그냥 클릭하면 실행되므로 우클릭 후 글자부분을 클릭하면 커서가 들어가서 변경이 가능하다 / 매크로 지정이나 컨트롤 서식을 이용해 매크로를 변경하거나 버튼 글자서식을 변경할 수 있다.

 

Sub callVal()

'복사할 시트 선택 [Cells(,) = Range("")]
    Cells(5, 8).Select
'시트안 값 복사
    Selection.Copy
    'Worksheets("Sheet2").Range("C8").Value.Paste
'붙여넣을 시트 값 선택
    Sheets("monthly_graph").Select
    Range("E2").Select
'붙여넣기
    ActiveSheet.Paste
'계산
    Set Worksheets("Sheet2").Cells(7, 3).Value = WorksheetFunction.Sum(Range("M46", "N46", "O46", "P46", "S46"))
    Set Worksheets("Sheet2").Cells(9, 12).Value = Cells(46, 8).Select
            
    'Set num3 = Range("M46", "N46", "O46", "P46", "S46").Select
    'Set num4 = Cells(46, 8).Select
    'Set pctg1 = num3 / num1
    'Set pctg2 = num4 / num2
    
    'Set Worksheets("Sheet2").Cells(8, 3).Value = pctg1
    'Set Worksheets("Sheet2").Cells(9, 12).Value = pctg2
    
'시트 이동
    Sheet2.Select
    

End Sub

 

Sub callVal()

    Cells(5, 8).Select
    Selection.Copy
    Sheets("monthly_graph").Select
    Range("E2").Select
    ActiveSheet.Paste

'계산
    Set Worksheets("Sheet2").Cells(7, 3).Value = WorksheetFunction.Sum(Range("M46:S46"))
    Set Worksheets("Sheet2").Cells(9, 12).Value = Cells(46, 8).Select
            
'시트 이동
    Sheet2.Select
    

End Sub