[[20051128164537]]　『行の定まらない合計』（よれっち）　ページの最後に飛ぶ

『行の定まらない合計』（よれっち）

 このような時はどのようにすればいいでしょうか。
 　A     B        C        D         E
 1 	計	計	計	計
 2	35	52	46	62
 3	11月1日	11月2日	11月3日	11月4日→どんどん増えていく
 4 A社	10	15	13	11
 5 B社	12	14	12	9
 6 C社	13	12	11	8
 7 D社		11	10	4
 8 E社				10
 9 F社				20

 この表の下にも日付が変わると社名がどんどん追加されていく可能性があります。
 また、表の下の空白部分(社名の入っていない、表の外の部分という意味です)にも他の人がいろんな計算式を追加したりもしますので
 数字の入っている、一番下までを合計の範囲に指定したいのです。
 B2から右方向にどのような式を入れたらいいでしょうか。

 こんな感じで如何でしょう？

 B2 =IF(COUNT(B4),SUM(B$4:B$65536),"")
 右にコピペ

 （キリキ）(〃⌒o⌒)b

 キリキさんありがとうございます。
 でも、今入っている式が、SUM(B4:B65536)となっており、それでは
 下に好きに計算式を入れて加工できないと文句が出ているのです。
 なので、社名の入っているところまでを合計できたら一番よいのですが、無理でしょうか。
 あらかじめ、右にいけるまで式を入れておきたいのです。
 よろしくお願いします。(よれっち)

 ユーザー定義関数です。下記マクロを標準モジュールにコピペの上、
 B2セルには、=mygoukei(B4:B1000) のように入力して下さい。
                           ^^^^ 必要な行まで。B65536 でもかまいません。
（純丸）(o^-')b

 Function mygoukei(hani As Range) As Long
 Dim i As Long
 Dim syoukei As Long
 Dim myc As Integer

 i = hani.Row
 myc = hani.Column

 Do
   If Cells(i, myc).Value = "" Then Exit Do
   If Application.WorksheetFunction.IsText(Cells(i, myc).Value) Then Exit Do
   syoukei = syoukei + Cells(i, myc).Value
   i = i + 1
 Loop

 mygoukei = syoukei

 End Function

 およよ・・・
 ちと遅かったか。。。

 よれっちさん、お待たせいたしちゃいました。
 こんな感じで如何でしょう？

 B2 =IF(COUNT(B4),SUM(OFFSET(B$3,1,,COUNTA($A:$A))),"")

 （キリキ）(〃⌒o⌒)b

 あ、そうか。社名を数えればよかったのか。最近、考える力が
 弱くなってるみたい。(ToT)/~~~
（純丸）(o^-')b

 こんなに複雑になるのですねー!!
 思い通りの結果となりました!!
 キリキさん、純丸さん、お力を貸して下さり有難うございました。(よれっち)

 すみません。
 キリキさんのOFFSETを調べていたら疑問が出てきました。
 ヘルプには、OFFSET(基準,行数,列数,高さ,幅)
 と書いてありましたが、キリキさんの式には幅がないように思います。
 それとも""が幅になるのですか？
 高度な式なので難しいです。気が向かれたら教えて下さると助かります。
 よろしくお願いいたします。(よれっち)

 今、見直したらわかりにくくなってますね・・・

 B2 =IF(COUNT(B4),SUM(OFFSET(B$4,,,COUNTA($A:$A))),"")
 こちらに差し替えてください。

 >キリキさんの式には幅がないように思います。
 >それとも""が幅になるのですか？
 幅の件ですね。
 まず、「""」は、幅でありません。
 IF関数が、「偽」の時に、「""」を返しています。
 OFFSET関数のヘルプの解説を見てください。
 解説
 ・高さまたは幅を省略すると、基準のセル範囲と同じ行数または列数であると見なされます。

 となっております。
 高さと、幅に関しては省略可能ということですね＾＾
 ただし、幅を入力する場合には「,」を入れないとたどり着きませんが。。。

 こんな説明で大丈夫でしょうか？
 （キリキ）(〃⌒o⌒)b

 ありがとうございました。
 省略されていたのですね。
 OFFSETは難しいので、丸覚えして応用したいと思います。(よれっち)

 すでに解決されてるみたいがこういうのも過去ログにありました。
https://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20051128130214]]
 (花屋敷)

コメント返信：

[ 一覧(最新更新順) ]

[[20051128164537]] 『行の定まらない合計』（よれっち） ページの最後に飛ぶ

[[20051128164537]]　『行の定まらない合計』（よれっち）　ページの最後に飛ぶ