본문 바로가기

CS/OS

엑셀 매크로 활용 VBA(3)

반응형

kukuta님께 도움받음

안녕하세요. 먼저 답변이 늦어 죄송합니다.

이렇게 한번 해보시겠어요?

ThisWorkbook.Worksheets("Sheet1").Range("Z6") = WorksheetFunction.Sum(Range("A1:H1").Value)

아래 포스트에서 보다 자세한 내용을 참고하실 수 있습니다.

https://kukuta.tistory.com/279#headline_unique_id_2

아니면 워크시트의 코드네임을 이용해 아래와 같이도 가능합니다.

Sheet1.Range("Z6") = WorksheetFunction.Sum(Range("A1:H1").Value)

워크시트에 접근하는 다양한 방법은 다음 포스트에서 확인 가능합니다.

https://kukuta.tistory.com/278

코드 네임에 관련된 내용은 https://kukuta.tistory.com/278#headline_unique_id_6 에서 확인 가능합니다.

감사합니다.

Sub callVal()

'초기화[병합된셀 Range로 범위표현]
    Sheets("monthly_graph").Select
    Range("E2:O4").Select
    Range("C8").Select
    Range("L9").Select
    Selection.ClearContents

'복사할 시트 선택 [Cells(,) = Range("")]
    Sheets(Sheets.Count).Select
    Range("I5:S7").Select

'시트안 값 복사
    Selection.Copy

'붙여넣을 시트 값 선택
    Sheets("monthly_graph").Select
    Range("E2:O4").Select

'붙여넣기
    ActiveSheet.Paste

'Diactive[직전시트 이동하려면 프로시저 추가해야해서 이동할 시트를 맨 우측 끝으로 보냄]
    Sheets(Sheets.Count).Select
    Application.CutCopyMode = False

'계산[.Value를 빼야함]
    Sheet2.Range("C8") = Cells(46, 9)
    Sheet2.Range("L9") = WorksheetFunction.Sum(Range("N46:S46"))

'시트 이동
    Sheet2.Select
    
End Sub
반응형

'CS > OS' 카테고리의 다른 글

WSL2 관련 에러 조치  (0) 2023.08.28
엑셀 매크로 활용 VBA(4)  (0) 2022.10.05
엑셀 매크로 활용 VBA(2)  (0) 2022.09.17
엑셀 매크로 활용 VBA(1)  (0) 2022.09.17
Microsoft Compatibility Telemetry  (0) 2021.06.01