Excel VBA 質問スレッド No.76 (解決済)

最終行までの条件付きカウント

投稿者 : BJ     投稿日時 : 2020/05/26(Tue) 11:05:05     OS : Windows 10     EXCEL : 未指定
お世話になります。
VBA超初心者で、見ようみまねで書いてみましたが、最後の行でエラーになってしまいます。
0以外の件数が取得できないのですが、どこがいけないのでしょうか?
よろしくお願い致します。

Workbooks.Open "C:¥Users¥9999¥Desktop¥箱.csv"
Dim r As Long
r = Range("D1").End(xlDown).Row + 1
Range("C" & r) = "合計"
Range("D" & r).Formula = "=SUM(D1:D" & (r - 1) & " )"
Range("E" & r).Formula = "=SUM(E1:E" & (r - 1) & " )"

'件数
Range("F" & r) = WorksheetFunction.CountIf(Range("E1:(r - 1)"), "<>" & 0)

[返信 1] Re : 最終行までの条件付きカウント
投稿者 : ビギナー     投稿日時 : 2020/05/31(Sun) 17:05:19
■[質問] BJさん(2020-05-26 11:05:05)の記事
> お世話になります。
> VBA超初心者で、見ようみまねで書いてみましたが、最後の行でエラーになってしまいます。
> 0以外の件数が取得できないのですが、どこがいけないのでしょうか?
> よろしくお願い致します。

> Workbooks.Open "C:¥Users¥9999¥Desktop¥箱.csv"
> Dim r As Long
> r = Range("D1").End(xlDown).Row + 1
> Range("C" & r) = "合計"
> Range("D" & r).Formula = "=SUM(D1:D" & (r - 1) & " )"
> Range("E" & r).Formula = "=SUM(E1:E" & (r - 1) & " )"

'件数
> Range("F" & r) = WorksheetFunction.CountIf(Range("E1:(r - 1)"), "<>" & 0)
> Range("E1:E''&(r - 1)), "<>" & 0)です

[返信 2] Re : 最終行までの条件付きカウント
投稿者 : BJ     投稿日時 : 2020/06/01(Mon) 10:40:41
ビギナーさん
件数のカウントができました!
ありがとうございました!

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2020-08-10 18:07:29 )

Page
Top