[[20031014172919]]　『フィルタをかけた時の偶数行・奇数行の集計』（ぱるぱる）　ページの最後に飛ぶ

『フィルタをかけた時の偶数行・奇数行の集計』（ぱるぱる）

フィルタをかけた時の偶数行・奇数行の集計の仕方を教えて下さい。

 表示されている偶数行・奇数行の行数のカウントですか？ 
 それとも値ですか？
  (INA)

値の集計です。
(ぱるぱる）

 どうぞ～♪。
 Ａ列を対象とし、Ａ１はタイトル行、その他は数値と考えます。
 Sub Sample()
 Dim myArea As Range
 Dim myRow As Long
 Dim x As Long
 Dim y As Long

    Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Select

    For Each myArea In Selection

        If myArea.Row <> 1 Then
            If myArea.Row Mod 2 = 0 Then
                x = x + myArea.Value
            Else
                y = y + myArea.Value
            End If
        End If

    Next myArea

    MsgBox "奇数は" & y & "です。" & Chr(13) & "偶数は" & x & "です。"

 End Sub

 これで使えますか？
  (INA)

すいません、使い方がわからないのですが・・・

 ALT+F11でVBEを起動。
 挿入-標準モジュールを実行。
 開かれたウィンドウに上記コードをコピペ。
 Excelに戻ってツール-マクロ-マクロから「Sample」を実行。
 です。
  (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20031014172919]] 『フィルタをかけた時の偶数行・奇数行の集計』（ぱるぱる） ページの最後に飛ぶ

[[20031014172919]]　『フィルタをかけた時の偶数行・奇数行の集計』（ぱるぱる）　ページの最後に飛ぶ