[[20040702132534]]　『一行とばしで合計値を出したい場合の関数式を』（nana）　ページの最後に飛ぶ

『一行とばしで合計値を出したい場合の関数式を』（nana）

[エクセルですが、一行とばしで合計値を出したい場合の関数式を教えて下さい。]

[[20030313102046]] 『一行おきの足算方法』（トップ）

 が参考になると思います(ねや)

ねやさん有難うございます。ただ、何処にあるのか検索できないのですが...。

 ねや様、事務局様
リンクになるように編集しました。
(KAMIYA)

 KAMIYAさま有難うございました。
 どうやったらリンクになるのでしょうか（ねや）

 [KAMIYA]さん、事務局代行のリンクありがとうございます。
 [ねや]さん、行の最初に何か入っているとリンクになりません。
 （kazu）

 便利なユーザー関数 「n行置き編！」
 下のコードを標準モジュールにコピペ
 べた行なら =nana(範囲,1)
 １行置きなら=nana(範囲,2)
 ２行置きなら=nana(範囲,3)
 ３行置きなら=nana(範囲,4)
 n行置き     =nana(範囲,n)
       便利屋（弥太郎）
 '-------------------------
 Function nana(ByVal data As Variant, ByVal num As Integer)
    Dim i As Long, totl As Long

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

End Function

コメント返信：

[ 一覧(最新更新順) ]

[[20040702132534]] 『一行とばしで合計値を出したい場合の関数式を』（nana） ページの最後に飛ぶ

[[20040702132534]]　『一行とばしで合計値を出したい場合の関数式を』（nana）　ページの最後に飛ぶ