[[20080131204629]] 『1コ飛びの合計』(初心者H) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『1コ飛びの合計』(初心者H)

よろしくお願いします。

例えばA1〜A1000の合計を出す場合はSUM(A1:A1000)となりますが、
1コ飛びでの合計を出す方法を教えてください。

Ctrlで選択してSUM(A1,A3,・・・)と言う方法もあるのですが

この方法以外でよろしくお願いします。


 参考にどうぞ。
[[20051205134103]]『一マスとばして合計だすには』 

 (ぽっち)


(初心者H)

配列数式で出来そうです。

ありがとう御座います。


パクリです。。
'-------------------------
 Function 一個置き(ByVal data As Variant)
    Dim i As Long, totl As Long

    Set tbl = Range(data.Address)
        For i = 1 To tbl.Rows.Count Step 2
            If Application.WorksheetFunction.IsNumber(tbl.Cells(i, 1)) Then
                totl = totl + tbl.Cells(i, 1)
            End If
        Next i
    一個置き = totl
    Set tbl = Nothing

 End Function

合計したい場所に=一個置き(A1:A10)←範囲を指定してね・・


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.