Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35403 / 76732

←次へ　｜　前へ→


	【46529】Re:浮動列のSUMIF関数

chacola - 07/2/6(火) 0:25 -


	引用なし

	パスワード

かみちゃんさん、こんばんわ。
どうもありがとうございました（泣）
できました。。。
焦らずに、基本からじっくりやるべきですね。。
今回は時間がなく、全て頼ってしまいました。
時間をかけて勉強します！！

本当にありがとうございました。

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>Nedさんからもコメントが出ていますが・・・
>
>>　　A　　B　　　C　　 D　　E　　　F　　・・・　CB
>>1　単価　数量　合計　単価　数量　合計　　　　数量合計
>>2　5　　　10　　50　　10　　10　　100　　　　　20
>>3　2　　　10　　20　　5　　8　　　40　　　　　 18
>>
>>数量合計=SUMIF(A1:$CB$1,"数量",A2:CB2)
>>と、セルに数式を入れる場合は、CB2に記述しますが、
>>VBで自動入力し、
>>れを、CB列の最終行までコピーするにはどう記述したらいいでしょうか？
>
>CB列の最終行までコピーというより、設定する範囲を決めてから一気に設定する
>方法です。
>ちなみに、CB列はこれから計算式を設定すると思いますので、CB列の最終行はまだ
>求められないと思います。
>
>一応以下のような感じでできると思いますが、例では、CA列の最終行を取得して、
>その行のCB列までに数式を設定するというものです。
>
>Sub Sample1()
>　Range("CA2", Range("CA65536").End(xlUp)).Offset(, 1).Formula = _
>　　"=SUMIF($A$1:$CB$1,""数量"",A2:CB2)"
>End Sub
>
>ちょっとややこしいですが、以下のような方法でもできます。
>
>Sub Sample2()
>　With Range("CA1")
>　　.Resize(.Offset(Rows.Count - .Row).End(xlUp).Row _
>　　　- .Row).Offset(1, 1).Formula = _
>　　　　"=SUMIF($A$1:" & .Address & ",""数量""," & _
>　　　　　.Offset(1, .Column * -1 + 1).Resize(, .Column).Address(0, 0) & ")"
>　End With
>End Sub

2 hits

▼

【46523】浮動列のSUMIF関数 chacola 07/2/5(月) 23:12