excelで営業の業績管理システムを作成しています。
シート1はメニュー
コンボボックス1に⚪年⚪月
2に担当者
3に担当者コード
また、各シートにを開くボタンを設置、
シート2にメニューの該当月のカレンダーがA列に
自動作成・・・1(火)
1ヶ月の日付すべて入っています。
またこのシートが各担当者ごとと、全体確認様シートを作成してあります。
シート5にはフォームで担当者の入力データを記入するようになっています。
A列 5桁数字 00001・・・
B列 日付が⚪⚪⚪⚪年⚪月⚪日
C列 担当者No
D列 担当者
E列から獲得数字
が入力されています。
ちなみにシート5は担当者全員のデータが記入されるシートになっています。
このシート5も各担当者ごとに転記されているシートも作成してありますがメニューの月のフィルターはかかっていません。
この担当者ごとのデータからメニューシートの月を絞りこみ、シート2の各担当者のシートに日付一致でデータを転記していきたいのですが、どなたかご教示いただけませんか?
各担当者のデータからではなく、シート5のすべてのデータから転記の方が早ければそれでもかまいません。
宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
では、これでどうでしょう。
(素直なコードが書けなくて、すいません)
Sub sample()
With Sheets("Sheet2").Range("B3:D23")
.Formula = "=SUMIFS(Sheet5!E:E,Sheet5!$D:$D,$D$1,Sheet5!$B:$B,$A3)"
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
End Sub
ありがとうございました。
イメージ通りになりました。
もうひとつだけ質問させて下さい。
シート2と、シート5の列を指定したい場合はどこを変更すればいいのですか?
本当に申し訳ありません。
No.2
- 回答日時:
わたしの回答のせいで、後の回答が付きにくくなってしまったようで、申し訳ないです。
迷惑ついでに、こんなのはどうでしょう。
下記のマクロは、Sheet1(ひな型)とSheet2(データ)を統合して、新しいシートを作成します。
前回のものと組み合わせれば、ご希望の結果が得られると思います。
Sub sample()
Sheets("Sheet1").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Range("A1").Consolidate Sources:=Array("Sheet1!R1C1:R31C4", _
"Sheet2!R1C1:R31C4"), Function:=xlSum, TopRow:=True, LeftColumn:= _
True, CreateLinks:=False
End Sub
No.1
- 回答日時:
画像のようなシート構成にすることができるのであれば、AdvancedFilterメソッドで一発抽出できますよ。
こんな感じです。
Sheets("Sheet5").Range("A:E").AdvancedFilter _
Action:=xlFilterCopy, Unique:=False, _
CriteriaRange:=Sheets("Sheet1").Range("A1:C2"), _
CopyToRange:=Sheets("Sheet2").Range("A1:E1")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
Excelで日付変更ごとに、自動的にデータを転記
Excel(エクセル)
-
-
4
VBA 日付一致で転記
Visual Basic(VBA)
-
5
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
6
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
7
VBA 別ブック(シート)の同一日付のデータ欄に値をコピー
Visual Basic(VBA)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
エクセル 違う表から同じ日付のデータを検索
Excel(エクセル)
-
11
エクセルVBAでコピーして順番に張り付けをしたい!
Visual Basic(VBA)
-
12
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
13
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
14
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
15
入力後に日付順になるように自動で並び替えしたいのです。
Excel(エクセル)
-
16
特定のセルがアクティブになったときのイベント?
Excel(エクセル)
-
17
複数条件が一致で別シートに転記【エクセルVBA】
Excel(エクセル)
-
18
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
19
VBA 値と一致した行の一部の列のデータを転記について教えてください
Visual Basic(VBA)
-
20
エクセル 日報売上を月報に展開するマクロで困っております。準備するシート(1)日報入力シート
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
タイムスタンプとテキストから...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
Excelでの文字色
-
ワークシートに出現したこの画...
-
EXCELの散布図で日付が1900年に...
-
OFFSET関数を使用したいのです...
-
エクセルでファイルの最終更新...
-
エクセルの文字が途中から消える
-
エクセルデーターから必要な項...
-
Excel 大小比較演算子による「...
-
SUBTOTALは、参照された数字で...
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
Excelについて教えてください。...
-
エクセルVBA 月の中で、月~土...
-
Excelの数字の前に入っている空...
-
Excelの関数について このよう...
-
セルの数を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報
メニューシート
シート2
シート5
再度ありがとうございます。
でも、やっぱり添付したシート5のデータからシート2の日付でマッチした行に転記していきたいのですがぜんぜん分からず…教えていただけませんか?