• 締切済み

複数条件を別シートへ転記

現在Excelにてカレンダーを作成中です。 シート1のカレンダーの内容は 　　　　　　　　　　　　2022　年　　6　月 　　　　　　　　　　 1　　2　　3　　4　　5 　　　　　　　　　　5件　3件　2件　　　 5件　　 と日付にあった合計数を表示しています。 この合計数の元はシート2に一覧が有ります カレンダーの日付をダブルクリックした際に シート3へ抽出したいのですがいい方法が思い浮かびません。 A1セル”2022”、A3セル”6”、B1セル”1”が一致させたい為 シート2には抽出出来るようYEAR/MONTH/DAYでセルは分かれています。 ワークシートのVBAにしたいのですが教えて頂けます様お願いいたします。

みんなの回答

  • SI299792
  • ベストアンサー率48% (720/1490)
回答No.2

まず、Sheet2へ抽出するのか、Sheet3へ抽出するのか判りません。 また、カレンダー・シートの構造も解りません。 日付をダブルクリックした時だけ転記すればいいのですか？１度に全部転記した方がいいような気もします。また、これなら関数でも可能ですが。 画像の様になっているとします。 Sheet1!A2 ダブルクリック Sheet1!A3→Sheet2!B1 へ転記します。 Option Explicit ' Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 　　Dim What As Date 　　Dim Find As Range ' 　　On Error Resume Next 　　What = [A1] & "/" & [C1] & "/" & Target.Text 　　On Error GoTo 0 ' 　　If What = 0 Then 　　　　End 　　End If 　　Set Find = [Sheet2!A:A].Find(What, Lookat:=xlWhole) ' 　　If Not Find Is Nothing Then 　　　　Find.Offset(, 1) = Target.Offset(1) 　　　　Cancel = True 　　End If End Sub

画像を拡大する
全文を見る
すると、全ての回答が全文表示されます。
回答No.1

色々と試されていて素晴らしいです。 エクセルでカレンダー＋スケジュール帳のようなものを作りたいということでしょうか？ 細かな仕様によって方法が分かれたりしますので、トライアンドエラーを繰り返して自分に合ったものを見つけるというのがいいと思います。 ↓などには色々な方法が解説されています。参考にしながら試行してみてはいかがでしょうか。 “ 【Excel】カレンダーの作り方を丁寧に解説“ https://www.youtube.com/watch?v=Hdr7rtjmQNE “ 【エクセル】全自動カレンダーの作り方を初心者向けに解説！|日付が自動で変わり祝日に色がつくカレンダーの作り方“ https://www.youtube.com/watch?v=S1ELWHny8ME “ エクセルでスケジュール帳を作る方法【万年カレンダーの作り方】“ https://www.youtube.com/watch?v=y-sv-trekJ4 “ 【意外と難しい】エクセルでスケジュール表の作り方(Excel解説動画)“ https://www.youtube.com/watch?v=8GlchFBOsuw “ 【Excelテクニック】意外と簡単！カレンダー作成の手順“ https://www.onamae-office.com/office365column/excel/calendar/ “ 【エクセル時短】数式を使ってカレンダーを自作する方法。白紙からオリジナルのデザインで作れる！“ https://dekiru.net/article/22380/ “ エクセルでスケジュール管理表を自分で作成！オリジナルカレンダーで使いやすい手帳にする“ https://www.wpbnavi.com/4457 “ エクセル(Excel)で自作のシステム手帳リフィルを作ってみませんか？“ https://refill-studio.com/12.html こちらも参考に！ 「エクセル」「カレンダー」「スケジュール」に関する質問と回答 https://okwave.jp/search?word=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%80%80%E3%82%AB%E3%83%AC%E3%83%B3%E3%83%80%E3%83%BC%E3%80%80%E3%82%B9%E3%82%B1%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB 良い方向に進みますように！ 参考になれば幸いです。

画像を拡大する
全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. パソコン
  4. デスクトップPC

関連するQ&A

  • Excel VBAで「date」関数を使いたい

    VBAを使用して年月日を入力してます。 セルに表示だけなら Year & "/" & Month… とかでもいいんですが、その日付で計算を行いたいんです。 何日足す、とか。。 それでExcelで使える Date(Year,Month,Day) を思い出したんですが、VBAではエラーになってしまいました。 Application.WorksheetFunction.Date(Year, Month, Day) や Application.Date(Year, Month, Day) もダメでした。 どのようにしたら入力した日付で計算が行えるでしょうか？

  • エクセル VBAの日付計算？について

    現在sheet1にある表をsheet2に転記してゆくVBAを作成しております。sheet1にある日付データセルA1（日のみ）が入っているセルと月初を求めるVBA(DateSerial(Year(Date), Month(Date), 1))を加算して西暦/月/日にしたいのです。 例えば、DateSerial(Year(Date), Month(Date), 1)の答は、2005/05/01になってきます。そこに日付データセルA1が20だとすれば、表示は、2005/05/20となると思います。それをsheet2 セルA1に表示させたいのです。 よろしくお願いします。

  • 【エクセルVBA】条件に一致した項目の数を別シートへ表示

    はじめまして。VBA初心者です。 sheet1のA列に日付(一ヶ月分）、B列に製品名 sheet2のB2セル～AF1セルに日付、A2セル～A10セルに製品名 が入っています。 Sheet1の製品名の数を日付ごとにカウントして、その結果をSheet2の 各日付へ入力するVBAを作成したいのですが、うまくいきません。 分かり難い質問で、大変申し訳ありませんが、どなたか教えて下さい。 よろしくお願いします。

  • 複数条件抽出をＶＢＡで

    excelの複数条件抽出をＶＢＡでやりたいので教えてください。 エクセル2003で複数条件抽出をしたいと思っています。 dateのシートに、Ａ列：日付、Ｂ列：名前、Ｃ列：金額があります。 それを１というシートに、日付と名前の２つの条件が合致している金額を抜き出したいと思っています。 抜き出すのは０６０１＆ＡさんをＡ５セル～Ａ２０ 　　　　　　０６０１＆ＢさんのはＢ５～Ｂ２０へ ということは可能でしょうか？ もしよろしければ教えていただければ助かります。 'date'シート 日付　　　名前　　金額 0601 Ａさん　　100円 0601　　Ａさん　　120円 0601　　Ｂさん　　150円 シート'１' 0601＆Ａさん　　　０６０１＆Ｂさん 100円　　　　　　　　　　　150円 120円 どの人がやってもボタン１つで実行できるようにしたいために、 ＶＢＡ出できればと思っております。

  • 条件に合致するものだけを別シートに表示

    エクセル２００３を使用しています。 Sheet1に日付とともに商品出荷データが入力されています。 Sheet2～Sheet13までの12ヶ月分のシートにsheet1で入力された日付を元に、抽出表示したいと思います。 sheet1 商品コード　商品名　出荷日 A001 ABC 2012/6/10 A089 AZZ 2012/6/19 B006 BAA （出荷されていない物は日付の入力無し） C006 C4587 2012/7/6 Sheet2以降のA1セルには、201206 のように年月を入力しておき、抽出条件とします。 また抽出表示項目は、Sheet１に入力されている全ての情報です。 （商品コードから出荷日まで） このような表示にさせたい場合の、式を教えて頂けないでしょうか？　 どうぞ、よろしくお願いします。

  • エクセルで複数のシートからの検索

    エクセルの件でご質問です！ 「複数のシートがあり、その中で条件の一致するシートを検索し、更にそのシート内の条件に一致するものを抽出したい」 となるとどのような方法でやるのでしょうか？ 特定のシートから抽出するのは、IF文で可能かと思いますが、その前に複数のシートを検索してからとなると、わかりません。 VBAに関しては、まったくわからない状態です。関数等でできればご教授頂きたいと思います。 どうかよろしくお願いいたします。

  • ExcelVBAを使った日付の求め方

    ExcelVBAでの質問です。 セルA1に日付2005/07/25と入力されています。 セルB1にその一年後を求めた値を返したいのです。 通常では =DATE(YEAR(A1)+1,MONTH(A1),DAY(A1)) の式で求める事が出来るのですが、VBAで書こうとするとエラーがでてしまいます。 どのようにすれば良いか教えてください。 ※VBAについては殆ど初心者の為、詳しく教えて頂けると有難いです。 宜しくお願いいたします。

  • アクセス　クエリー抽出条件　今月初日から

    winXp access2003 クエリー　デザインビューにおいて 日付フィールドを 今月の初日からで 検索したいのですが 抽出条件を >=""Year(Now())"/"Month(Now())"/"1"" >="Year(Now())"/"Month(Now())"/"1" これですと いずれも うまくいきません 抽出条件で　データ型が一致しません とでます 宜しくお願い致します

  • 複数の条件に一致するセルを転記したい

    二つの条件に一致するセルの値を別のシートに転記したいです。 具体的には 表１ 日付　名前　場所 1/1　　Ａ　　　横浜 1/1　　Ｂ　　　渋谷 1/2　　Ａ　　　新宿 のデータを 表２ 　　　Ａ　　Ｂ 1/1　☆ ★ 1/2　★　★ 表１にデータをもとに 表２の☆部分に横浜と返されるようにしたいです。 また★のところにも返されるようにするにはどうしたらよいでしょうか？

  • エクセルで複数の条件範囲に合う行を別シートに抽出

    エクセルの関数で複数の条件範囲に合う行だけをを別シートに抽出したいのですが、 どうしても方法が分かりません。 誰か教えて頂けないでしょうか？ 検索は範囲です。 宿泊日○○○○○○○○～○○○○○○○○（例20111110～20240204） 人数 ○人～○人 （○の中に数字が入ります） 西暦日付と人数が両方一致している行を別シートに抽出したいです。 バージョンは2007.2010両方とも問題ないです。 Sheet1 　　　A　　　　 BCDEFGHIJKLMN　　　O 1 宿泊日　　　　　　　　　　　　　 　　　人数 2 20100223　　　　　　　　　　 　　　　20 3 20110103　　　　　　　　　　 　　　　5 4 20111118　　　　　　　　　　 　　　　9 5 20120505　　　　　　　　　　 　　　　13 6 20121010　　　　　　　　　　 　　　　7 8 20120224　　　　　　　　　　 　　　　32 9 20121121　　　　　　　　　　 　　　　28 Sheet2 　　　A　　　　　　B　　　　C　　　D　　　　E　　　FGHIGKLMN　　　　O 1 検索 2 宿泊日　20110101 ～ 20121111 3 人数　　　　　8　　　　～　 　30 　　　 人 4 5 宿泊日　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　 　　　人数 6 20111118　　　　　　　　　　　　　　 　　　　 　　　 　　　　　　　　　　 9 7 20120505　　　　　　　　　　　　　　 　　　　　　 　　　 　　　　　　　　13 Sheet1、Ａ列の宿泊日とＯ列の人数の範囲が一致するものを、 Sheet2の検索から、行ごと抽出(複数)し、Sheet2に反映する関数を教えて頂けないですか？ いろいろ検索して探しましたが、複数抽出する方法がわかりませんでした。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する