スキルアップ・問題解決なら、モーグにおまかせ！

いつもお世話になっております。よろしくお願いします。
 
Sub Macro7()
'
' Macro7 Macro
'
 
'
   Sheets("試算表").Select
        Range("D8").Select
     
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-7]C[-3]=5,SUMIFS(仕訳!R6C9:R25000C9,仕訳!R6C1:R25000C1,""<220601"",仕訳!R6C17:R25000C17,RC[-3]))"
       
                    'R[-7]C[-3]　D8から見て　6行目上　3列目左
     
    Range("D8").Select
 
End Sub
自動記録で作りました。A1に入っている数値は5で5月です。
4がつから翌年3月までで　<220601　これも月ごとに変わります。月が変わるごとに下記の通りの
計算式を入れています。VBAで出来る方法を教えてください。82歳の手習い、よろしくお願いいたします。
 
 
　4月　=IF($A$1=4,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<220501",仕訳!$Q$6:$Q$25000,A8))
 
　5月　=IF($A$1=5,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<220601",仕訳!$Q$6:$Q$25000,A8))
 
　6月　=IF($A$1=6,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<220701",仕訳!$Q$6:$Q$25000,A8))
 
　7月　=IF($A$1=7,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<220801",仕訳!$Q$6:$Q$25000,A8))
 
　8月　=IF($A$1=8,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<220901",仕訳!$Q$6:$Q$25000,A8))
 
　9月　=IF($A$1=9,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<221001",仕訳!$Q$6:$Q$25000,A8))
 
　10月　=IF($A$1=10,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<221101",仕訳!$Q$6:$Q$25000,A8))
 
　11月　=IF($A$1=11,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<221201",仕訳!$Q$6:$Q$25000,A8))
 
　12月　=IF($A$1=12,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<230101",仕訳!$Q$6:$Q$25000,A8))
 
　1月　=IF($A$1=1,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<230201",仕訳!$Q$6:$Q$25000,A8))
 
　2月　=IF($A$1=2,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<230301",仕訳!$Q$6:$Q$25000,A8))
 
　3月　=IF($A$1=3,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<230401",仕訳!$Q$6:$Q$25000,A8))
 

余りしっかり検証していませんが。こんなことでしょうか。
 

Sub test()
    Dim ws    As Worksheet
    Dim s     As String
    Dim n     As String
    Dim k     As Long

    Set ws = Sheets("試算表")
    For k = 4 To 15
        n = Format(DateSerial(2023, k, 1), "m")
        s = Format(DateSerial(2023, k+1, 1), "yymmdd")
        ws.Cells(k + 3, "D").FormulaR1C1 = _
            "=IF(R1C1=" & n & ",SUMIFS(仕訳!R6C9:R25000C9,仕訳!R6C1:R25000C1" _
          & ",""<" & s & """,仕訳!R6C17:R25000C17,RC[-3]))"
    Next
End Sub

 
最初の数式と
 
下で説明の数式の関連が分かりませんし、
何故、数式を入力するＶＢＡを作成する理由も分かりません。
 
下の数式は、どこのセルに入力するのですか？
 
 
少なくとも、下の数式については
空いているセルをうまく使えば、
をＶＢＡで作成しなくても対応可能エス。
 
セルＡ１の値で変化する箇所は、'220601のところなので、
「4」と「220501」が対応しているが、年を参照できれば、
数式をＶＢＡで作成する必要はありません。

＞A1に入っている数値は5で5月です。
＞4がつから翌年3月までで　<220601　これも月ごとに変わります。
 
220601 に違和感があるのですが、今年の話なら、
230601 と思うのですが、去年のデータを処理しているのですか？
 

疑問
 
４月のときは、４月分のデータを集計するのではないでしょうか？
<220501
この指定では、３月分以前のデータも集計されてしまいませんか？

ああ、大幅に勘違いしているようです。
式は一つだけでいいんでしたか。
没ですな。
 
考え方で使えるところがあれば使ってください。

簡単なはなし
 
セルＡ１に、1〜12を入力する
セルＢ１に、年を入力する（ex2022）
セルＣ１に、=TEXT(DATE(B1,A1+1,1),"yymmdd")*1
 
セルＡ２の数式
=SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<"&C1,仕訳!$Q$6:$Q$25000,A8)
 
セルＣ１の結果を確認して、セルＢ１を変更すれば、ＶＢＡで数式を作成なくても対応できると思います。
 

追加レス
 
Ａ１セルの判定は、対象月を求めるだけなので、
Ａ２セルの数式の中のＩＦ関数は必要なし。
Ａ１の値が「1」の時には、年を変更する必要があります。
年の情報が参照できれば、Ｂ１セルも必要ないかも？

最初の質問に戻りますが、
ＶＢＡで数式を組み立てるにしても、
説明の中に「年」情報がありませんので、
「年」情報がない限り無理です。

Simpleさん　WinnArrowさん　半平太さん
皆さん有難うございます。これから、お答えをいただいたものを、よく見て少しは考えて、お返事を致します。
よろしくお願いします。

体調不良で申し訳ございません。
 
会員500名ほどの老人会の会計処理です。
毎月のを試算表を作成したいと考えました。
それぞれの月の試算表には前月残高が必要な事から思い立ったことです。
7月の試算表を作成するには、前記繰越残高から6月迄の残高がなければ、7月の試算表が作れないと思い、
A1に数値が入れば計算が出来る様にと思いこの式を作りました。
こんなに多くの式を作るのかと思い短く出来る方法がないかと思い質問を致しました。
時間が一杯ありますので、何時でもよろし御座いますので教えてください。
 
自動記録の方法は少しばかり解ります。
よろしくお願いいたします。
 

(1)
・会計年度(今であれば、2023）は、コードのなかに定数NENDOで持つ。
・A1セルには、対象とする月を、整数で入力する（4月なら、 4)。
・D8セルに入力する式は、
  =SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<230501",仕訳!$Q$6:$Q$25000,A8)
  であり、
・これをマクロでD8セルに書き込みたい、
ということでいいですか？
 
(2)
それなら、例えば、以下のように書けます。

Sub test()
    Dim ws    As Worksheet
    Dim s     As String
    Dim k     As Long

    Set ws = Sheets("試算表")
    k = ws.Range("A1")
    If k <= 3 Then k = k + 12
    s = Format(DateSerial(NENDO, k + 1, 1), "yymmdd")

    ws.Range("D8").Formula = _
            "=SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000," _
            & """<" & s & """," _
            & "仕訳!$Q$6:$Q$25000,A8)"
End Sub

状況に関する情報が不足しています。
 
ここに記述されているシートは「試算表」と「仕訳」です。
(1)「仕訳」シートには、年度単位の仕訳データが記録されていると解釈してよいですか？
とすれば、
➀「収入」金額が記録されている列はどこですか？
�A「支出」金額が記録されている列はどこですか？
➂Ａ列の出納日（？）は、どの様な形式で記録されているのですか？
　説明のコードにるように「yymmdd」形式なんですか？
 
(2)試算表シートは、指定月の出納明細を抽出する出納帳と解釈してよいですか？
とすれば、
➀前期末繰越残高は、何処に記録されているのですか？
�A掲示のセルＤ８は、指定日前日までの「収入額」／「支出額」・・・どちらなんでしょう？
➂仕訳データが記録されている最終日付（抽出用日付）と、操作日は、異なることはお分かりだと思います。
　もし、操作日から抽出用日付を求めるのでしたら、「月」も指定する必要ありません。
　抽出用の日付は、"220601"のように「年」が含まれています。
　この年情報は、どのように取得するのですか？
�C数式の中の「Ａ８」セルは、何が入っているのですか？
 
※今回の数式は、可変部分はあるにしても、１つの数式です。
　わざわざ、ＶＢＡで作成する必要はあるとは思えません。
　可変部分は、「月」です。抽出用日付も、「月から計算」できます。
　１回数式を埋め込んでおけば、わざわざ、マクロを起動する必要のないですよね？　

体調不良で遅くなり申し訳ございません。
帳票は試算表、各月残高、仕訳表の3点です。
試算表は
前月残高　借方コード　借方額　適用　貸方コード　貸方額　残高の7列です。
 
各月残高表は
前記繰越残高　4月集計額　5月集計額・・・・翌年3月集計額　合計額　前月残高設定の15列です。
　
仕訳表は
年　月　日　借方コード　借方金額　適用　貸方コード　貸方金額の8列です。
A1に10とあれば
10月　=IF($A$1=10,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<221101",仕訳!$Q$6:$Q$25000,A8))
 
10月の試算表を出したい時に、各月残高表の前記繰越残高から9月迄の残高を集計額を試算表の前月残高に記入
する為に最初の計算式を作りました。計算式が長いので短くする方法があればと思い質問させていただきました。
 
皆さんからの回答をしっかり理解してない事がありますので、もう一度読ませていただいて、時間がかかりますが、お返事をさせて頂きたいと思います。

説明に矛盾があるように思います。
 

引用:

仕訳表は
年　月　日　借方コード　借方金額　適用　貸方コード　貸方金額の8列です。
A1に10とあれば
10月　=IF($A$1=10,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<221101",仕訳!$Q$6:$Q$25000,A8))

追加の質問
 
 
仕訳シートに記録されているデータの期間は、

>試算表のレイアウトの説明はしなくてよいのでしょうか？
 
と質問しましたが、
レイアウトの説明されていました。
 
どのシートにも言えることですが、
項目名だけではなく、列と行も一緒に説明して頂きたいですね。
 
試算表についていえば、
試算表は、明細データ表ですよね？
そうすると、最初の「前月残高」は、最初の行だけかな？
そのあたりも説明しましょう。

なかなか進みませんね？
  
再度質問します。
  
試算表のセルＤ８に入力すると思われる数式

引用:

=IF($A$1=4,SUMIFS(仕訳!$I$6:$I$25000,仕訳!$A$6:$A$25000,"<220501",仕訳!$Q$6:$Q$25000,A8))

引用:
年　月　日　借方コード　借方金額　適用　貸方コード　貸方金額の8列です。

皆様にご回答頂いて、感謝の限りです。ありがとうございます。
商業簿記も初心者で、何をどのように説明すればいいのか、理解できていません。
ご回答いただいて、大変恐縮ですが、もう少し勉強して、出直します。
本当に申し訳ございません。
よく考えて、よく考えて。又、質問させてください。
ありがとうございました。
 
WinArrowさん、Simpleさん、半平太さん。深く感謝申し上げます。
とりわけ、WinArrowさんには親切にご回答いただいているのに、ご質問にもお答えできない事に伏して
お詫び申し上げます。