いつも回答して頂きありがとうございます。
マクロの記述中にも関数の入力が必要な場合があると最近知った者です。
で、質問ですが、
集計用シートのC3・D3・E3・・・・に商品名が入力されている
集計用シートのB4・B5・B6・・・・に日付が連続して入力されている
履歴シートから1日単位で商品の動きを調査したいと思いますが
マクロの記述中にCOUNTIFSを使う方法はあるのでしょうか?
商品名毎の繰り返し処理を記述しましたが、参照セルの移動方法が分かりません。御指導の程宜しくお願い致します。(マクロ記述の中にある??が分からない箇所です。)
Sub 集計4()
Dim retu As Long
retu = 3
For retu = 3 To Cells(3, Columns.Count).End(xlToLeft).Column
Worksheets("集計用").Cells(4, retu).Formula = "=COUNTIFS(データ元!B8:B60000,集計用!??,データ元!D8:D60000,集計用!??)"
Next retu
End Sub
No.3ベストアンサー
- 回答日時:
ループは不要ではないでしょうか。
Sub 集計4()
Dim r As Long, c As Long
With Sheets("集計")
c = .Cells(3, Columns.Count).End(xlToLeft).Column
r = .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(4, 3), .Cells(r, c)).Formula = _
"=COUNTIFS(元データ!r8c3:r60000c3,rc2 ,元データ!r8c4:r60000c4,r3c)"
End With
End Sub
無事思い通りのマクロ動作が一瞬で出来ました。驚きです。
で、質問ですが、条件設定でrc2となっていますが、行方向にセル式を参照する場合は、rの後ろを未入力にする事で実行できると考えてよろしいのでしょうか?
No.4
- 回答日時:
No3です。
>行方向にセル式を参照する場合は、rの後ろを未入力にする事で実行できると考えてよろしいのでしょうか?
⇒行方向が縦方向ならばそういう事です。
No.1
- 回答日時:
Formulaで式は"で閉じられており文字列としての扱いになりますのでセルの変化を伴う動きに対応ができません。
列や行の変化を付けてマクロを完成するには例えば次のようにします。
Sub 集計4()
Dim retu As Long
Dim gyou As Long
Set WS1 = Worksheets("Sheet3")
Set WS2 = Worksheets("Sheet4")
For gyou = 4 To WS1.Cells(Rows.Count, 2).End(xlUp).Row
For retu = 3 To WS1.Cells(3, Columns.Count).End(xlToLeft).Column
WS1.Cells(gyou, retu) = WorksheetFunction.CountIfs(WS2.Range("B4:B60000"), WS1.Cells(gyou, 2), WS2.Range("D4:D60000"), WS1.Cells(3, retu))
Next retu
Next gyou
End Sub
回答ありがとうございます。
Formulaではなく、WorksheetFunctionを使えば、条件設定等にCellsを使用する事が可能なんですね。いい勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】オートフィルタで...
-
ピボットテーブルでは時間の表...
-
フィルタをしても最下行を常に...
-
エクセルで特定の色の数字だけ...
-
ピボットテーブルのページエリ...
-
VBAで重複する項目を1つにまと...
-
いい機能だけど、毎回めんどく...
-
エクセル 関数を使った横方向の...
-
ピボットを更新すると数式が入...
-
ピボットの集計方法「合計」初...
-
エクセルのピボットテーブルで...
-
excelで集計の合計を降順に並べ...
-
他部署からもらう データで、 ...
-
Excelの集計結果だけをコピー貼...
-
ピボットテーブル作成後、集計...
-
アンケートの集計
-
エクセルの集計
-
人毎の勤務表を別ブックにてサ...
-
エクセルで円グラフに引き出し...
-
エクセルで文字が白くなる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】オートフィルタで...
-
ピボットテーブルでは時間の表...
-
フィルタをしても最下行を常に...
-
エクセルで特定の色の数字だけ...
-
VBAで重複する項目を1つにまと...
-
ピボットの集計方法「合計」初...
-
ピボットを更新すると数式が入...
-
アンケートの集計
-
いい機能だけど、毎回めんどく...
-
エクセル、リソース不足エラー...
-
ピボットテーブルで同じデータ...
-
他部署からもらう データで、 ...
-
エクセル 関数を使った横方向の...
-
複数のピボットテーブルを一括...
-
VLOOKUP関数とCOUNT関数等の組...
-
excelで集計の合計を降順に並べ...
-
ピボットテーブルのページエリ...
-
Excelの集計結果だけをコピー貼...
-
エクセルの小計を自動的に色づ...
-
ピボットテーブルの逆
おすすめ情報