前月の数字を残しておきたい。

質問

Ａ　　Ｂ
１月　５００　　　　１月　　５００
　　　　　　　　　　　２月
　　　　　　　　　　　３月
　　　　　　　　　　　・
　　　　　　　　　　　・
　　　　　　　　　１２月
　　　　　　　　　　累計　　５００
Ａ１に入力されてる月の欄にＢ１の数字を入れたい。
私の作った関数（ＩＦ）ではＡ１を２月にすると２月のランに数字は入るが１月の欄の数字が消えてしまう。
前の月の数字を残しておくにはどうしたらいいですか。
教えてください。

回答No.3

papayuka · ベストアンサー

参照元の値が変わっても、参照先が変化しないようにするのは関数では無理だと思います。

VBAでのサンプルを提示します。
試す場合は、新規ブックで行ってください。
また、セキュリティレベルが「中」以下の状態でマクロ有効でExcelを起動しないと動きません。

1）新規ブックの Sheet1　D1:D12 に "文字列" で　1月～12月　と入力
2）シート名タブを右クリックして「コードの表示」
3）出てきたVisualBasicEditor画面（以下、VBE画面）にコードをコピペ
4）VBE画面を閉じる
5）A1 又は B1 に値を入れる

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fr
　If Not Application.Intersect(Target, Me.Range("A1"), Me.Range("B1")) Is Nothing Then Exit Sub
　Set fr = Me.Columns(4).Find(What:=Me.Range("A1").Text, LookAt:=xlWhole)
　On Error Resume Next
　Application.EnableEvents = False
　　If Not fr Is Nothing Then fr.Offset(0, 1).Value = Me.Range("B1").Value
　Application.EnableEvents = True
End Sub

お礼

出来ました。本当にありがとう御座います。

回答No.2

n-jun

入力するセルが、Ａ１とＢ１固定であれば、数式で求めると２月にすれば
１月は消えてしまうでしょう。
セルに値として入れるのならば、マクロかな？
と思います。（思考不足な意見ですが）

お礼

早速ありがとう御座います。
マクロはわかりません。

回答No.1

ryuujiok2205

まず質問者さんの作った関数を公開してください。

> ２月のランに数字は入るが１月の欄の数字が消えてしまう。

きわめて独創的で興味があります。

補足

早速ありがとうござます。
関数はあまりよくわからなくても
以下のＩＦ文ではブランクのなるのはわかりますので
恥ずかしくて公開しなかったのです。
=IF($A$1=E5,$B$1,"")
いい方法があったらお教え下さい。