[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『同じセルに毎日の在庫を入力』(クマ)
ご質問させて頂きます。
Excelの同じセルへその日の終わりの在庫数が自動で入力されていくのですが、そこでアドバイス頂きたいです。
同じセルへ毎日新しい数値が入ってくる為、過去の数値が上書きされ消えてしまいます。
過去の数値を残しておける様な方法はございませんでしょうか?(自動で実施したい)
(例:日を跨ぐタイミングで、そのセルの数値を読み取り、別Excelシートなどに過去の数値を蓄積させれる方法など)
お助け宜しくお願い致します。
< 使用 Excel:Microsoft365、使用 OS:Windows10 >
>Excelの同じセルへその日の終わりの在庫数が自動で入力されていく 上記部分、今の仕組みが分からないと答えようがないので教えて貰えますか? (稲葉) 2023/03/12(日) 08:12:03
おはようございます。 もう書いちゃったのでそのままアップします。 方法は色々あると思いますが、、一案として Sheet1のシートモジュールに↓と貼り付けて Sheet2のA列を今日の日付で検索して ヒットしたらそのB列に値を代入 なかったらA列に日付をセットしてそのB列に値を代入 みたいな感じでどうでしょうか??? 何かの参考になれば幸いです。。。 では、、では、、、
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim 日付 As Date Dim r As Range If Target.Address <> "$A$1" Then Exit Sub 日付 = Date Set r = Sheets("Sheet2").Range("A:A").Find(日付, , xlFormulas, xlWhole) If r Is Nothing Then With Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) .Value = 日付 .Offset(, 1).Value = Target.Value End With Else r.Offset(, 1).Value = Target.Value End If End Sub (SoulMan) 2023/03/12(日) 08:39:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.