[[20170821121238]]　『前日との差額を計算したいのですが』（つむつむ）　ページの最後に飛ぶ

『前日との差額を計算したいのですが』（つむつむ）

日頃から拝見させて頂き有難うございます。

毎日データーを別シートに貼付ております。（データーは日別ではなく月別となっており毎日更新されます）
現状は手作業で、E-2をコピーしF-3へ値で貼り付けております。
この手作業を下記の様に自動化に出来ないでしょうか
毎日24時を過ぎたらE-2の計算式をコピーしF-2に値で貼り付け前日との差額を計算したいのですが
私のレベルでは、とても思いつかず

宜しくお願い致します。

     A        B       C       D       E         F        G      H	
  1                                当日実績 前日実績 前日差額		
  2                         E2=H-14→ 41       41     G2=E2-F2	
  3                                                   ↑↑↑↑			
  4							
  5 商品名 販売計画 計画比 前年実績 前年比 前々年実績 前々年比 実績	
  6 たい                                                         3 ←=SUMIFS(別シート)
  7 バナナ                                                       5 ←=SUMIFS(別シート)
  8 いちご                                                       9 ←=SUMIFS(別シート)
  9 大根                                                         1 ←=SUMIFS(別シート)
 10 ニンジン                                                     8 ←=SUMIFS(別シート)
 11 ぶどう                                                       6 ←=SUMIFS(別シート)
 12 牛肉                                                         7 ←=SUMIFS(別シート)
 13 にしん                                                       2 ←=SUMIFS(別シート)
 14 合計                                      H14=SUM(I6:I13)→ 41

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 全体の手順としては
 １）E2をF2へコピー
 ２）別シートにデータ貼り付け（月別の集計（このシート）毎日別シートに貼り付けってって意味ですかね？）
 ３）差額の確認

 という形ですかね？

 私ならですが・・・
 前提：別シートのデータに日付が入力されていれば、
 １）D2あたりに=today()を入れておいて、
 ２）当日実績・前日実績にD2の日付を元に別シートの合計を出力させますが、
 いかがですか？

（稲葉） 2017/08/21(月) 12:33

稲葉様
ご連絡有難うございます。

データーは、残念ながら日別ではなく月別となっておりますので
ご提案いただきました内容では出来ません。

宜しくお願い致します。
（つむつむ） 2017/08/21(月) 12:47

 ＞データーは、残念ながら日別ではなく月別となっておりますので 
 ＞ご提案いただきました内容では出来ません。 
 そうなると、どうやってE2の当日実績を出しているかとても疑問なのですが・・・

 もしや当日実績ではなく、当日までの累計？
（稲葉） 2017/08/21(月) 12:59

稲葉様
ご連絡有難うございます。

説明が下手で申し訳ございません。
データーは、当日の実績では御座いません。
1日～当日の累計実績となっております。

宜しくお願い致します。
（つむつむ） 2017/08/21(月) 13:12

 ＞毎日24時を過ぎたらE-2の計算式をコピーしF-2に値で貼り付け前日との差額を計算したい
 とのことでしたので、D2セルを借ります。
 今日（開いた日）よりD2の日付が1日以上古ければ、
 E2の値をF2に入れ、
 D2の日付を今日に更新
 これでどうでしょうか？

    Option Explicit

    Private Sub Workbook_Open()
        'ThisWorkBookモジュールに記載
        With Sheets("Sheet1") '実際のシート名に変更
            If Date - .Range("D2").Value > 0 Then
                .Range("F2").Value = .Range("E2").Value
                .Range("D2").Value = Date
            End If
        End With
    End Sub

（稲葉） 2017/08/21(月) 13:56

稲葉様
ご連絡有難うございます。

感激です。

希望通りの結果を得る事が出来ました。
教えて頂きました式は、もう少し勉強しないと理解出来ませんが頑張って見ます。

本当に有難うございました。

（つむつむ） 2017/08/21(月) 17:55

コメント返信：

[ 一覧(最新更新順) ]

[[20170821121238]] 『前日との差額を計算したいのですが』（つむつむ） ページの最後に飛ぶ

[[20170821121238]]　『前日との差額を計算したいのですが』（つむつむ）　ページの最後に飛ぶ