![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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
![「excel vbaで日付一致の行にデータ」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/542293914_59a21e05ca81d/M.png)
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
![「excel vbaで日付一致の行にデータ」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/542293914_59a0f50f5d4d7/M.png)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
VBA 日付一致で転記
Visual Basic(VBA)
-
-
4
Excelで日付変更ごとに、自動的にデータを転記
Excel(エクセル)
-
5
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
6
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
7
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
10
vbaで他のブックに転記したい。 vba初心者です。 コマンドボタンを押すと、別ブックにA2からD2
Visual Basic(VBA)
-
11
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
12
複数条件が一致で別シートに転記【エクセルVBA】
Excel(エクセル)
-
13
VBA 別ブック(シート)の同一日付のデータ欄に値をコピー
Visual Basic(VBA)
-
14
エクセル 違う表から同じ日付のデータを検索
Excel(エクセル)
-
15
VBAで重複データを合算したい
Excel(エクセル)
-
16
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
17
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
18
エクセルで入力→日付を自動判別して、その日付用のセルに転記したい
Excel(エクセル)
-
19
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
20
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について教えて...
-
Excelカスタム関数(アドイン登...
-
Excelデータをコピペして、ペー...
-
Excel関数-文字列で自動作成さ...
-
スプレッドシート、Excelでの数...
-
Excelで50個のセルに同じ文字を...
-
Microsoft Officeの中古は信用...
-
スプレッドシートで使う数式を...
-
エクセルVBA、別ブックへ転記す...
-
エクセルで会社の従業員のデー...
-
エクセルで不等号記号(≠)が上に...
-
エクセルの表で1年間の曜日を...
-
A列とB列を参照してC列に連番を...
-
エクセルの空欄をつめて、次の...
-
エクセルでの特別な文字を上に...
-
エクセルでセルに標準で入力さ...
-
エクセル日付 文字列の関数がエ...
-
エクセル2013で月間勤務表から...
-
エクセルの日付を編集する
-
EXCELの質問です 119から足した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報
メニューシート
シート2
シート5
再度ありがとうございます。
でも、やっぱり添付したシート5のデータからシート2の日付でマッチした行に転記していきたいのですがぜんぜん分からず…教えていただけませんか?