Excel VBA質問箱 IV

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

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


6998 / 76735 ←次へ | 前へ→

【75332】Re:各列の最終行の数値の合計
回答  あきな  - 14/2/12(水) 23:38 -

引用なし
パスワード
   Kioyuさん、みなさん、こんにちは。

Kioyuさん、マナさんのおっしゃる通り、Count関数を使うのがベストだと思います。

が、作成されたプロシージャは、あと一歩!のところまで出来ているようなので、
最後まで完成させたい・・ですよね。こんな感じで、いかかでしょう。

合計値を入れるための変数[Ans]を追加しました。
MsgBoxの先頭にある(')をはずすと、[Ans]の動きが分かると思います。

Sub 領収書総数()
  Dim LastRow As Long
  Dim i As Integer, LastClm As Integer
  Dim Ans As Integer

  LastClm = ActiveSheet.Cells(1, 2).End(xlToRight).Column
  Ans = 0
  For i = 2 To LastClm
    LastRow = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
    Ans = Ans + Cells(LastRow, i).Value
    'MsgBox "取得した数値=" & Cells(LastRow, i).Value & vbCr & _
        "合計値=" & Ans
  Next i
    Range("H1").Value = Ans
End Sub

0 hits

【75322】各列の最終行の数値の合計 Kioyu 14/2/12(水) 13:41 質問
【75328】Re:各列の最終行の数値の合計 あきな 14/2/12(水) 19:56 発言
【75329】Re:各列の最終行の数値の合計 Kioyu 14/2/12(水) 21:09 発言
【75331】Re:各列の最終行の数値の合計 マナ 14/2/12(水) 22:54 発言
【75332】Re:各列の最終行の数値の合計 あきな 14/2/12(水) 23:38 回答
【75333】Re:各列の最終行の数値の合計 Kioyu 14/2/13(木) 0:26 お礼
【75334】Re:各列の最終行の数値の合計 Kioyu 14/2/13(木) 0:35 お礼

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