[[20071026155209]]　『シートを増やしたときに自動的に右隣の値を返す方』（おまめ）　ページの最後に飛ぶ

『シートを増やしたときに自動的に右隣の値を返す方法』（おまめ）

 ただいま、勤怠管理表を作り直していて、
 今月のシートの左隣に来月のシートを追加して行こうと思っております。
 この調子で月が進むごとに左側に再来月、その次の月、さらにその次に月…と行き、
 それぞれ前月の最終日の値を次月の初日に反映させたいのですが、
 自動的に前月の最終日の値を返す方法はないでしょうか？
 よろしくお願いします。

 手動でのシート挿入として（挿入は、１番左）
 挿入前の前月が１番左にあるとします。
 新しいシートを挿入すると左から２番目になるから、
 ２番目のシートA1の値を新しいシートのA1に転記。
 BJ

 Thisworkbookに

 Private Sub Workbook_NewSheet(ByVal Sh As Object)
 Sh.Range("A1").Value = Sheets(2).Range("A1").Value
 End Sub

 「Thisworkbookに」とはどういう意味でしょうか？
 マクロでするということでしょうか？
　(おまめ)

 >マクロでするということでしょうか？
 はい。
 マクロ意外だと解りません。
 破棄してください。
 BJ

 シート名に何か規則性はありますか？ あれば数式で可能かも、です。
（純丸）(o^-')b

 BJさん
 マクロのあまり使ったことがないんです…。
 すいませんが、もう少し詳しく教えてもらえませんか？

 純丸さん
 シート名は今月は0710、来月は0711、0712、0801…としていく予定です。

 よろしくお願いします。

 シート名がご提示の通りなら、前月の最終日の値のセルを仮に「F40」として、
 =INDIRECT(TEXT(EDATE(--TEXT(RIGHT(CELL("filename",$A$1),4)&"01","00!/00!/00"),-1),"'yymm'")&"!F40")
 こんな数式で求められます。もし「#NAME?」と出るようだったら、
 ツールメニュー＞アドインの「分析ツール」にチェックを入れてみて下さい。
（純丸）(o^-')b

コメント返信：

[ 一覧(最新更新順) ]

[[20071026155209]] 『シートを増やしたときに自動的に右隣の値を返す方』（おまめ） ページの最後に飛ぶ

[[20071026155209]]　『シートを増やしたときに自動的に右隣の値を返す方』（おまめ）　ページの最後に飛ぶ