Excelで入力したセルの隣のセルに累計の表示を

質問

無理難題を押し付けられて困っています。

画像のように、セルＢ3に入力し、その累計を隣のセルＣ3に表示させたいのです。
以下、Ｂ4～Ｂ6も同じです。
同様のことをD⇔E、F⇔G、H⇔I、J⇔K・・・・でも行いたいのです。

ここの質問欄を検索し、以下のVBAを見つけました
Const inpColumn = "C" '入力する列名が『A』列の場合

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
'単一セルに入力した場合
If .Count = 1 Then
'入力する列名に入力した場合
If .Column = Range(inpColumn & "1").Column Then
'入力が数値の場合
If IsNumeric(.Value) Then
'隣の列『B列』の値に入力した値を加える
'（Offsetの２番目の1が１つ右のB列を示す）
.Offset(0, 1) = .Offset(0, 1) + .Value
End If
End If
End If
End With
End Sub

これを実行したところ、B⇔Cだけが実行され、他の列では駄目でした。
VBAに無知なもので、どこを直せばよいのか全く分かりません。
また、他の方法があるのかも分かりません。

説明不足かも知れませんが、よろしくお願いいたします。

回答No.2

HohoPapa · ベストアンサー

以下のコードなら
b,d,e,h列に数値が入力されると
累積列に加算されます。

Private Sub Worksheet_Change(ByVal Target As Range)

　With Target
　　If .Cells.Count <> 1 Then Exit Sub
　　If IsNumeric(.Value) = False Then Exit Sub
　　If ((.Row < 3) Or (.Row > 6)) Then Exit Sub　'３行目から６行目までが対象
　　'↓b,d,e,h列が対象
　　If ((.Column = 2) Or (.Column = 4) Or (.Column = 6) Or (.Column = 8)) Then
　　　.Offset(0, 1).Value = .Offset(0, 1).Value + .Offset(0, 0).Value
　　End If
　End With

End Sub

お礼

HohoPapaさま

ご回答頂いたコードを入力し、VBAを実行すると、見事に期待通りの結果が実現しました。
現在はコードの意味を理解せずに実行していますが、これを機会に勉強したいと思っています。

これで嫌な上司に一泡ふかすことができます。
本当に有難うございました。

回答No.3

HohoPapa

訂正します。

>以下のコードなら
>b,d,e,h列に数値が入力されると
>累積列に加算されます。
↑誤り　↓訂正後
以下のコードなら
b,d,f,h列に数値が入力されると
累積列に加算されます。

コードに訂正箇所はありません。

回答No.1

_kappe_

「累計」（画像の中の表記だと「累積」）というのは、たとえば7日目の日計をB5に入力したら、1日目～7日目の累計をC5に入力したいということですね。
その場合、1日目～6日目の分のデータはどこにあるのですか？ 別シート？ 別ファイル？ 補足してください。

お礼

補足で間違って入力してしまいました。

VBAW→VBAに訂正します。

また、ご指摘の通り、
　画像中の　累積は累計の入力間違いです。訂正します。

補足

ご回答ありがとうございます。

質問についてですが、
どこにもありません。
その必要のないことを求めています。
上記のVBAWを実行すれば、少なくともＢ⇔Ｃ間では実行されます。