VBAを使った、数式参照の仕方を教えてください。


Sheet1~5の各「A1」の内容を、
Sheet4に、A1からA2,A3,A4,A5と順番に反映されること。
Sheet4には、各「A1」の値そのものを張り付けるのではなく、参照すること。

お手数ですがお願いします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/05/01 15:22:45
  • 終了:2013/05/08 15:25:03

回答(1件)

id:a-kuma3 No.1

a-kuma3回答回数4562ベストアンサー獲得回数19062013/05/01 15:41:01

Range("Sheet4!a1").Formula = "=Sheet1!a1"
Range("Sheet4!a2").Formula = "=Sheet2!a1"
Range("Sheet4!a3").Formula = "=Sheet3!a1"
Range("Sheet4!a4").Formula = "=Sheet4!a1"
Range("Sheet4!a5").Formula = "=Sheet5!a1"

Sheet4 に、Sheet1~5 を参照する式を貼りつけるので、あってるのかしら?
Sheet1~5 以外のシートにではなく?



【追記】

すいません。追加でお願いです。Sheet数が何十個となる/Sheet名が変わる場合がある、という場合に、各シート名を上記の通り入れるのが手間です。
そこまで含めて、自動化するプログラムを教えて頂けますか。

シートを追加して、追加したシート以外のシートの A1 セルを指すような式を、追加したシートの A 列に上から埋めていく VBA のコード。

Sheets.Add after:=Sheets(Sheets.Count)
For i = 1 To Sheets.Count - 1
    Range("A" & CStr(i)).Formula = "='" & Sheets(i).Name & "'!A1"
Next
他1件のコメントを見る
id:doudemoiiyo

すいません。追加でお願いです。Sheet数が何十個となる/Sheet名が変わる場合がある、という場合に、各シート名を上記の通り入れるのが手間です。
そこまで含めて、自動化するプログラムを教えて頂けますか。

2013/05/01 15:57:36
id:a-kuma3

回答に追記しました。

2013/05/01 20:47:51
id:doudemoiiyo

Sheet数が何十個となる/Sheet名が変わる場合がある、という場合に、各シート名を上記の通り入れるのが手間です。
そこまで含めて、自動化するプログラムを教えて頂けますか。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません