[[20150703141749]] 『マクロで関数式を入力』(くろ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロで関数式を入力』(くろ)

原本シートをコピーして
Worksheets( "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月", "1月", "2月", "3月")の1年のシートを作成する時に関数式を入れたいのですが
どのようにしたらいいですか?

マクロで書くと
5月 Worksheets("5月").Range("H40").Value = Worksheets("4月").Range("H39")
6月 Worksheets("6月").Range("H40").Value = Worksheets("5月").Range("H39")
               ・
               ・
               ・
3月 Worksheets("3月").Range("H40").Value = Worksheets("2月").Range("H39")

前月H40の値を今月のH39に表示する関数を入れたいです。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


こんにちは

意味が違うかも・・・・

シートが順番に並んでいるなら、

Sub test()

    Dim s As Worksheet
    Dim t As Variant
    For Each t In Array("5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月", "1月", "2月", "3月")
        Set s = Worksheets(t)
        s.Range("H40").Formula = "=" & s.Previous.Name & "!H39"
    Next
End Sub

(ウッシ) 2015/07/03(金) 15:47


(ウッシ)さん

ありがとうございます。

 s.Range("H40").Formula = "=" & s.Previous.Name & "!H39"
を
s.Range("H39").Formula = "=" & s.Previous.Name & "!H40"
に変更したら、思い通りのものになりました。
(くろ) 2015/07/03(金) 16:50

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.