A16 日付の解決方法

質問者が納得エラー＃N/Aが表示されると言うことは、検索する値が見当たらないと言うことになります。Sheet1の日付と、Sheet2の日付の入力形式は同じでしょうか？一方が文字列になっているとかと言うことは無いでしょうか？それと、>SHEET２のカレンダーの各日付に店舗１～店舗３までに入ってきた客数のカウントをしようと 考えています。と言う割には、客数の列が抜けてますよね。仮に、C列に入客数なら、=SUMPRODUCT((Sheet1!$A$1:$A$9=Sheet2!A16)*(Sheet1!$B$1:$B$9...

質問者が納得マクロの必要性がわかりません。たとえば=CHOOSE(MOD(COLUMN()+ROW()-2,4)+1,"A","B","C","D")と、C3に入力するとAを返します。フィルするとそれぞれA～Dがはいります。これだけで十分な気がしますが。マクロでどのようなことがしたいのかがわかりません。補足説明お願いします。

質問者が納得＞A4～A33 A3コピー＞上記の様に設定してあります。この部分が間違いですね。前回の質問を拝見しましたが、A3セル =DATE(YEAR(E1),MONTH(E1)-1,21)A4セル =A3+1 A10までコピー A11セル =IF(A10="","",IF(DAY(A10+1)>20,A10+1,""))A12 A13セル A11セルをコピーA14セル =DATE(IF(MONTH(A3)=12,YEAR(A3)+1,YEAR(A3))...

質問者が納得A1に、=IF(C1="","",INDIRECT("C"&CEILING(ROW()/8,1)*8))これを下へオートフィルして下さい。C列が未入力なら、A列にも日付が表示されないようにしました。

質問者が納得こんな感じで如何でしょうか。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeSet Rng = Intersect(Range("A11:A52"), Target)With ActiveSheet.Calendar1 If Not Rng Is Nothing Then .Visible = True .Value = Date .Top = Rng.Top Else .Visibl...

質問者が納得29日が入るセルD15に、=IF(D14="","",IF(DATE($A$1,$B$1+1,0)=D14,"",D14+1))と、変えて、これを下のD17までオートフィルしてください。IF(DATE($A$1,$B$1+1,0)=D14は、B1の月に1を足すと次月になりますが、日を「0」とすることで、1日の前の日になります。次月の1日の前の日、つまり同じ月の月末ということになります。そこでD15は、「D14が空白もしくは月末日なら空白とする」、「...

質問者が納得Ｃ２セルには=OFFSET(A$1,MATCH($C$1,$A$1:$A$30)+ROW()-ROW(C$2),0)と入力します。これをＣ２～Ｄｘｘセル（xxは必要な行まで）にコピーしてください。なおＣ列とＤ列のセルの表示形式は日付形式など、Ａ列、Ｂ列の書式に合わせておいてください。