Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76121 / 76738 ←次へ | 前へ→

【5042】Re:計算方法について、お願いいたします。
回答  こう E-MAIL  - 03/4/18(金) 18:28 -

引用なし
パスワード
   たけしさん,こんにちわ。

>A1〜A100(100以上もあります)までバラバラの数字が入っています。
>Bの列 B5のセルに手動で数字を入れるとA1〜A5を計算させて
>C5にA1〜A5までの合計を入れる

>同じくB13に数字を入れるとA6〜A13までを合計してC13に合計を入れる。
この条件での"A6"は,B5→A1〜A5までは集計済みだから...
すなわち,入力された行〜その上方の入力行までの範囲で良いですね。
ということで,
Private Sub Worksheet_Change(ByVal Target As Range)
  Wrow = Range(Target.Address).Row
  Wcol = Range(Target.Address).Column
  If (Wcol = 2) Then
    ww = Cells(Wrow, 1)
    For i = Wrow - 1 To 1 Step -1
      If (Cells(i, Wcol) <> "") Then
        Exit For
      Else
        ww = ww + Cells(i, 1)
      End If
    Next i
    Cells(Wrow, Wcol + 1).Value = ww
  End If
End Sub

3 hits

【5036】計算方法について、お願いいたします。 たけし 03/4/18(金) 15:52 質問
【5042】Re:計算方法について、お願いいたします。 こう 03/4/18(金) 18:28 回答
【5094】Re:計算方法について、お願いいたします。 たけし 03/4/22(火) 9:01 お礼

76121 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free