Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4548 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55916】VBA　変動する総計を半期合計で計算したい。 たきまる 08/5/23(金) 14:15 質問[未読]
【55923】Re:VBA　変動する総計を半期合計で計算した... Jaka 08/5/23(金) 15:46 発言[未読]
【55924】Re:VBA　変動する総計を半期合計で計算した... たきまる 08/5/23(金) 16:00 お礼[未読]
【55926】Re:VBA　変動する総計を半期合計で計算した... kanabun 08/5/23(金) 16:21 発言[未読]
【55927】Re:VBA　変動する総計を半期合計で計算した... たきまる 08/5/23(金) 16:29 お礼[未読]
【55961】Re:VBA　変動する総計を半期合計で計算した... Jaka 08/5/26(月) 13:37 発言[未読]
【55963】Re:VBA　変動する総計を半期合計で計算した... たきまる 08/5/26(月) 13:50 お礼[未読]
【55966】Re:VBA　変動する総計を半期合計で計算した... ＯＨ！ 08/5/26(月) 15:06 発言[未読]
【55967】Re:VBA　変動する総計を半期合計で計算した... GOD！ 08/5/26(月) 15:41 発言[未読]
【56013】Re:VBA　変動する総計を半期合計で計算した... たきまる 08/5/29(木) 17:03 お礼[未読]
【56017】Re:VBA　変動する総計を半期合計で計算した... 人間としての資質 08/5/29(木) 18:06 発言[未読]
【55916】VBA　変動する総計を半期合計で計算した...
質問  たきまる  - 08/5/23(金) 14:15 -
引用なし
パスワード
   ピボットテーブルの総計行が元データが追加されるので変動してしまいます。
他のセルに（C37）式を入れていますが、ピボットの行が更新されるたびに 総計行の範囲を毎回張りなおさなければならない状態です。

変動しても他のセル（C37)に、合計が計算できるようにしたいです。
その総計行に対する合計の数式は以下です。（C37に入ってる式です。）
=SUMIF(21:21,">=2007/10/1 ",29:29 )-SUMIF(21:21,">=2008/4/1 ",29:29 )
29行目が総計で常に変動します。
そこで、A行に総計という文字がでたら、1つ右隣から始まる範囲での式がほしいです。
C37セルにその合計の値が表示されるようにしたいです。
21行目（固定）は日付で「2007/10/1」「2008/2/1」と2/1のように
月初の日付がB21セルから未来へ向かって表示。空白もあります。
（年度集計行を20行目に入れたため。）
For each文にA行を範囲にして「総計という文字があったら右となりから全てを
範囲にする。」それを21行目の日付で条件にあった総計行の合計を出したいのですが。。。
then以下どう書くか教えてください。

Sub 総計()
Dim myRng As Range
For Each myRng In Range("A:A")
If myRng.Value = "総計" Then

※※※※※※※※※※

End If
Next myRnｇ

End Sub
【55923】Re:VBA　変動する総計を半期合計で計算し...
発言  Jaka  - 08/5/23(金) 15:46 -
引用なし
パスワード
   ピボットってやったことが無いけど、
>ピボットの行が更新されるたびに
という状態になるとどうなるのか解りませんが、
セルに名前付けして使えばいいような気もします。

統計という文字を探すだけなら、こんな方法も。
尚、無かった場合のエラー処理は入ってないので、
使い方は、Application.Match で検索すれば見つかります。

Gyo = Application.Match("総計", Columns(1), 0)
MsgBox Gyo & "行目"
【55924】Re:VBA　変動する総計を半期合計で計算し...
お礼  たきまる  - 08/5/23(金) 16:00 -
引用なし
パスワード
   ありがとうございます。。
ただ、「総計」の行が分かってもその行すべてを合計するのではなく
「2008上半期」の条件に合致したセルだけを合計したいのです。
【55926】Re:VBA　変動する総計を半期合計で計算し...
発言  kanabun  - 08/5/23(金) 16:21 -
引用なし
パスワード
   ▼たきまる さん：
>ありがとうございます。。
>ただ、「総計」の行が分かってもその行すべてを合計するのではなく
>「2008上半期」の条件に合致したセルだけを合計したいのです。

テーブルのレイアウトを示してもらえませんか？
何行目とか 固定 とか言われても、さっぱりイメージが湧きません(ToT)
【55927】Re:VBA　変動する総計を半期合計で計算し...
お礼  たきまる  - 08/5/23(金) 16:29 -
引用なし
パスワード
   こんな感じです。貼り付けてみました。
総計行の合計が知りたいのですが、日付（発注確度）が2008上半期（この図は
2007からだけど。）のみの総計行の合計を表示したいです。（C37セルに）
日付行には空白もあり、その列は年度集計です。


合計 / 金額　　　　納期年　　　　納期日　　　　　　　　　　　　　　　　
　　　　2007　　　　　　　　2007 集計　　　　2008　　　　　　　　
発注確度　　　　2007/1/1　　　　2007/10/1　　　　　　　　2008/1/1　　　　2008/2/1　　　　2008/3/1
A：内示 　　　　　　　　　　　　　　　　　　　　　　　　　5　　　　
B：入札 　　　　　　　　　　　　　　　　　　　　
C：今年度案件　　　　8　　　　　　　　8　　　　　　　　5　　　　17.7
D：次年度案件　　　　　　　　　　　　　　　　　　　　　　　　
Y：受注　　　　　　　　11　　　　11　　　　9　　　　15　　　　36.3
Z：失注　　　　　　　　　　　　　　　　　　　　4　　　　28
(空白)　　　　　　　　　　　　　　　　　　　　　　　　
総計　　　　8　　　　11　　　　19　　　　9　　　　29　　　　82
【55961】Re:VBA　変動する総計を半期合計で計算し...
発言  Jaka  - 08/5/26(月) 13:37 -
引用なし
パスワード
   発注確度の行と総計の業がわかって入るのなら、
発注確度の行を列方向に１個１個日にちを比較すれば、
年度の総計の合計ぐらい出せると思いますが.....。

上記表でなく、行列が入れ替わっているのなら、関数だけで出せますけど。
例えば、上記表をコピーして別シートに行列を入れ替えて貼り付けたとすると。

=SUMPRODUCT((A2:A6>=DATE(2007,1,1))*(A2:A6<=DATE(2007,12,31)),(I2:I6))
これで出ます。
【55963】Re:VBA　変動する総計を半期合計で計算し...
お礼  たきまる  - 08/5/26(月) 13:50 -
引用なし
パスワード
   ▼Jaka さん：
>発注確度の行と総計の業がわかって入るのなら、
>発注確度の行を列方向に１個１個日にちを比較すれば、
>年度の総計の合計ぐらい出せると思いますが.....。
>
>上記表でなく、行列が入れ替わっているのなら、関数だけで出せますけど。
>例えば、上記表をコピーして別シートに行列を入れ替えて貼り付けたとすると。
>
>=SUMPRODUCT((A2:A6>=DATE(2007,1,1))*(A2:A6<=DATE(2007,12,31)),(I2:I6))
>これで出ます。

ありがとうございます。
発注確度の行は固定ですが、総計の行は変動します。
行列を入れ替えて貼り付けるのは手間がかかります。。。
総計行が範囲で発注確度（日付）が例えば2008上半期の条件を満たすセルが
あれば、総計行の数値の合計が出る式がほしいです。
【55966】Re:VBA　変動する総計を半期合計で計算し...
発言  ＯＨ！  - 08/5/26(月) 15:06 -
引用なし
パスワード
   ht tp://moug.net/faq/viewtopic.php?t=28058&sid=e3069dc8901cdea17a0004d9a63c02e3
【55967】Re:VBA　変動する総計を半期合計で計算し...
発言  GOD！  - 08/5/26(月) 15:41 -
引用なし
パスワード
   向こうでレスもらってるのに、同じ質問をそのままするなんて…。
アリエナイ。
【56013】Re:VBA　変動する総計を半期合計で計算し...
お礼  たきまる  - 08/5/29(木) 17:03 -
引用なし
パスワード
   どうもありがとうございました。
どうしても急ぎで解決したい作業でしたので
いくつかの掲示板で質問させていただきました。
解決しました。
【56017】Re:VBA　変動する総計を半期合計で計算し...
発言  人間としての資質  - 08/5/29(木) 18:06 -
引用なし
パスワード
   自分だけよければいいのですか？

ｈｔtp://www.vbalab.net/bbspolicy.html
VBA質問箱基本ポリシー

>マルチポストについて
>別のサイト（掲示板）にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。当質問箱では、マルチポストは原則>認めています。つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

>しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。そして、仮に他>のサイトで解決したのなら、ここにも必ずその顛末を書いてください。質問しっぱなし、というのはモラルに反します。「解決したからい>いや」というのではありません。

特に↓
>また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4548 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free