複数のシートに数値を入力したい - 年間支払金額一覧

質問

• 複数のシートに同じフォーマットの表があり、特定のセルに日付を入力すると支払金額が表示されます。
• TOP画面のチェックボックスがついたシートにのみ日付を入力したいです。
• チェックがついたシートのデータを週払いデータなど他のシートに表示することは可能でしょうか？

回答No.4

Zeus_Sphere

メインで表示されている表を1行1レコードとしたデーターベースとして定義し、
マクロでそのデーターベースをレコード単位で処理すれば可能です。
サンプルマクロは最も単純で基本的な物を作りました。
対象シートNo.の取得部分をデーターベースのチェックされたレコードにすればOK。

補足

ありがとうございます。
何度もスミマセン
私のほうのセルに合わせて書いたのですが、
見ていただけますか、

Sub フィールドクリア()
'
' フィールドクリア Macro
メインのM３５からＯ３８をクリアします。
'
'
Range("Ｍ３５:Ｏ３８").Select
Selection.ClearContents
Range("Ｌ４０") = ""
Range("D4").Select

End Sub

処理実行マクロ

Sub 処理実行()
'
' 処理実行 Macro
'

'
' 内部変数宣言
'
Dim S_NO As Integer
Dim Itm1 As Integer
Dim Itm2 As Integer
Dim Itm3 As Integer
Dim Itm４ As Integer
Dim MSG$

'
' 内部変数初期化
'
S_NO = 0
Itm1 = 0
Itm2 = 0
Itm3 = 0
Itm４ = 0
MSG_OK$ = "正常に処理されました。"
MSG_NG$ = "シートNo.に誤りがあります。"
'
' メイン処理
'
Sheets("メイン").Select
S_NO = Range("D4")
Itm1 = Range("Ｍ５３：Ｎ３５")
Itm2 = Range("Ｍ３６：Ｎ３６")
Itm3 = Range("Ｍ３７：Ｎ３７")
Itm４ = Range("Ｍ３８：Ｎ３８")
Range("Ｌ４０") = MSG_OK$

Select Case S_NO
Case 1
Sheets("シート１").Select
Case 2
Sheets("シート２").Select
Case 3
Sheets("シート３").Select
Case Else
Range("Ｌ４０") = MSG_NG$
GoTo Exit1
End Select

Range("ＡＦ４：ＡＧ４") = Itm1
Range("ＡＦ５：ＡＧ５") = Itm2
Range("ＡＦ６：ＡＧ６") = Itm3
Range("ＡＦ７：ＡＧ７") = Itm４

Exit1:

Sheets("メイン").Select
Range("D4").Select

End Sub

あと　対象シートのNo取得部分をデーターチエックされたレコードにかえるのは、

Range（”Ｄ４”）を変えるのでしょうか

Ｂ３からチエックボックスがあるのですが、ＴＲＵＥの時だけそのセルの、ページリンクに飛ばす
方法は　どのようにすれば出来ますか、
スミマセンがよろしくおねがいします。