• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• Mook2008/08/14 05:07:58

  満足60pt

  本来の VB だけの処理でやろうとした場合、途中に数値でないもの

  （計算式でのエラー）もあることを考慮すると、下記のようになります。

  Sub LoopSum()
      Dim lastRow As Long
      Dim lSum As Variant
      lastRow = Range("C" & Rows.Count).End(xlUp).Row
      
      Dim i As Long
      For i = 2 To lastRow
          If IsNumeric(Cells(i, "C").Value) Then
              lSum = lSum + Cells(i, "C").Value
          End If
      Next
      MsgBox "合計数は" & lSum & "です"
  End Sub
  

  けれど、もともとの EXCEL の SUM 関数は、そのような数値外を除いて合計する

  仕様になっているので、それを利用することも可能です。

  
  

  すべての関数をサポートしているわけではありませんが、VBA 中で EXCEL の関数を

  利用する場合、次の形で利用できます。

  Application.WorkSheetFunction.関数名

  
  

  これを利用すると下記のようにも出来ます。

  Sub WSFuncSum()
      Dim lastRow As Long
      lastRow = Range("C" & Rows.Count).End(xlUp).Row
      
      Dim fSum As Variant
      fSum = Application.WorksheetFunction.Sum(Range("C2:C" & lastRow))
      MsgBox "合計数は" & fSum & "です"
  End Sub
  

  http://www.relief.jp/itnote/archives/001834.php

  スター

  • hananeko_0 2008/08/14 23:17:04

    VBA中で関数を利用する形は、とても参考になりました！

    他にも色々活用できますねっ　（*^_^*）　すっごく分かりやすかったですっ

    今回も希望通りの結果を得られ、早速職場で活用させていただきます！

    Mookさん、いつも助かっていますっ

その他の回答

• slapshock2008/08/14 01:23:25

  回答オープン10pt

  下記で出来ます。

  
  

  Sub sample()

  '最終行の縦位置の取得

  Max = Range("C2").End(xlDown).Row

  'セルの合計値の算出

  result = 0

  For i = 2 To Max

  result = result + Cells(i, 3)

  Next i

  '結果の表示

  MsgBox result

  End Sub

  スター

haruo-312008/08/14 01:15:24

回答オープン10pt

本当にそれだけするマクロです。

sub a()

dim a as range

dim b

dim c as integer

set a = range("B2:B" & range("B2").specialcells(xlcelltypelastcell).row)

c=0

for each b in a

c=c+b.value

next

msgbox "合計は " & c & " です"

end sub

スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2008-08-13 23:02:57

終了日時

2008-08-14 23:17:29

回答条件

1人3回まで

この質問のカテゴリ

• ビジネス・経営
• コンピュータ

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者17時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者117時間前
• 内定してほしいポケモンはいますか？匿名質問者18時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ