반응형
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 |