![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
5
Excelで日付変更ごとに、自動的にデータを転記
Excel(エクセル)
-
6
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
9
vbaで他のブックに転記したい。 vba初心者です。 コマンドボタンを押すと、別ブックにA2からD2
Visual Basic(VBA)
-
10
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
11
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
12
エクセル 違う表から同じ日付のデータを検索
Excel(エクセル)
-
13
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
14
VBAで重複データを合算したい
Excel(エクセル)
-
15
VBA 別ブック(シート)の同一日付のデータ欄に値をコピー
Visual Basic(VBA)
-
16
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
17
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
エクセルで入力→日付を自動判別して、その日付用のセルに転記したい
Excel(エクセル)
-
20
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
Excel分数の表示について
-
Excelで表を作ったところに文字...
-
マクロエクセルのブロック解除
-
文字2桁、3桁交じりの文字列...
-
絶対参照
-
Excelについての質問です。 B2...
-
在庫管理表に使うエクセルの関...
-
【マクロ】VLOOKUPにて参照元に...
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
エクセルでの作業計算方法について
-
行数が不規則な一週間ごとの合...
-
Excelピボットテーブルの1行目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
メニューシート
シート2
シート5
再度ありがとうございます。
でも、やっぱり添付したシート5のデータからシート2の日付でマッチした行に転記していきたいのですがぜんぜん分からず…教えていただけませんか?