2011-12-06 3 views
0

사람 누구나VBA를 사용하여 시트 2에서 시트 1에 대한 셀 참조를 복사하십시오.

저는 Visual Basic Excel을 처음 사용하고 있으며 특정 문제에 도움을 주시면 감사하겠습니다. 나는 참고 도서를 읽고 해결책을 찾기 위해 Google을 검색했지만 성공하지 못했습니다. 이 프로젝트를 제외한 다른 모든 프로젝트 요구 사항을 완료했습니다.

48 개의 시트가있는 통합 문서가 있으며 어떤 세부 시트가 참조되어 있는지에 따라 요약 시트에 정보를 제공해야합니다. 특정 셀에서 참조 시트 만 요약 시트로 복사하려고합니다. 예를 들어, 요약 시트의 셀 (15,5)에 다음을 시도하고 있습니다. '세부 1'! E10 요약 시트의 값이 업데이트되도록 Sheet Detail 1에서 Cell (10,5)을 참조하는 것입니다. 언제든지 Detail 1 시트의 Cell (10,5)이 변경됩니다.

이 코드를 시도했지만 다른 시도에서는 무리가 있습니다. 수식을 복사하지만 참조는 복사하지 않습니다.

앞서 말했듯이, 내가 아래에서 보여주는 것이 완전히 신인 코드라면, 나는 적절하게 당황하게 될 것입니다. 어떤 도움을 주셔서 미리 감사드립니다.

'-----This is simplified Version of the code in a WorkBook with 45 sheets----------- 

Sub CopyReference() 

Dim SheetCounter As Integer 

Dim RowNumber As Integer 

Dim ColumnCounter As Integer 


RowNumber = 10 

ColumnCounter = 5 

SheetCounter = 2 '------------This is the Detail 1 Sheet in the WorkBook------------- 


Sheets(SheetCounter).Select 

ActiveSheet.Range(Cells(RowNumber, ColumnCounter), Cells(RowNumber, ColumnCounter)).Copy 

Sheets(1).Select     '------- This is the Summary Sheet 

ActiveSheet.Range(Cells(RowNumber + 5, ColumnCounter), Cells(RowNumber + 5, ColumnCounter)).PasteSpecial Operation:=xlPasteSpecialOperationNone 

End Sub 

답변

1

이것은 당신이

ThisWorkbook.Sheets(1).Cells(15, 5).Formula = "=" & _ 
    ThisWorkbook.Sheets(2).Cells(10, 5).Address(False, False, , True) 
를 필요한 것 같아
관련 문제