2011-12-06 2 views
0

誰でも私はVisual BasicのExcelに新しいですし、特定の問題との助けをいただければ幸いシートにシート2から1

をセルへの参照をコピーするVBAを使用しました。私は参考書を読んでいて、解決策を見つけるためにGoogleを検索していますが、私は成功していません。私はこれ以外のプロジェクト要件をすべて完了しました。

私はブックが48枚あり、どの詳細シートが参照されているかによって、要約シートに情報を提供する必要があります。特定の詳細シートからセルへの参照のみを集計シートにコピーしようとしています。例えば、私はSummary Sheet = 'Detail 1'のCell(15,5)に次のようなことをしようとしています!E10 Summaryシートの値が更新されるように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) 
を必要とするもののように思えます
関連する問題