[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロで関数式を入力』(くろ)
原本シートをコピーして
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.