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

質問

現在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にしたいのですが教えて頂けます様お願いいたします。

回答No.2

SI299792

まず、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