複数あるシートの特定セルに数値を入力したい。

質問

複数あるシートの特定セルに数値を入力したい。
同じフォーマットのシートが54枚あります。
各シートの　ＡＦ４・・ＡＧ４
　　　　　　　　ＡＦ５・・ＡＧ５
　　　　　　　　ＡＦ６・・ＡＧ６
　　　　　　　　ＡＦ７・・ＡＧ７　計８か所に日付を入れると支払金額が出る表があるのですが、

この日付をＴＯＰ画面から入れたいのですが、できれば、

ＴＯＰ画面　Ｂ3から現在はＢ55まで、チエックボックスがあります。
チエックが入ると　ＴＲＵＥ表示されセルが青になるのですが、各セルにページリンクされているので、
チエックがついたシートにだけ　8個の日付をいれたいのですが
可能でしょうか、　　

それにチエックがついた　シートデータ　ＡＢ３：ＡＫ８を他のシート
仮に　週払いデータ等に上から表示させる事は、可能でしょうか
私では　とても無理なので　力を貸してください。
お願いします。

回答No.5

Zeus_Sphere · ベストアンサー

希望に沿っているか自信ありませんが、別のサンプルを作りました。
http://m17xr2.at.webry.info/201006/article_7.html

回答No.6

KURUMITO

回答Ｎｏ1です。要はＢ列にＴＲＵＥのある、すなわち空でない、人についてのシートでトップシートのＭ３５からＮ38までに入力した日にちがＡＦ４からＡＧ7セルに表示されればよいのですね。
ここではトップのシートの名前　トップ　として式を建てることにします。また、Sheet1からSheet58までのシート名はそのままにしてトップのシートで4行目に人がSheet1、5行目の人がSheet2、以下同様になっているとします。
初めにトップシートは別にしてSheet1からSheet58までをシート見出しで左から右方向に順番に並べます。その上でＳｈｅet1を選択したのちにShiftキーを押しながらシート見出しのSheet58をクリックします。
それによってSheet1からSheet58までが同じ作業グループになります。
その上で、Sheet1のＦ4セルには次の式を入力してＧ4セルまでオートフィルドラッグしたのちにＡＦ7やＡＧ7セルまで下方にもオートフィルドラッグします。また、これらのセルの表示形式は日付にしまっす。

最後にトップシートを選択することで作業グループを解除します。

これでＢ列にＴＲＵＥのある人に該当するシートにトップシートで設定した期間のデータが入力されることになります。一度お試しください。

お礼

お礼が遅くなりスミマセンでした。
皆さまに色々考えていただき　なんとか解決できました。
ありがとうございます。

回答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（”Ｄ４”）を変えるのでしょうか

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

回答No.3

Zeus_Sphere

簡単なマクロのサンプルを作ってみました。
参考にどうぞ。
http://m17xr2.at.webry.info/201006/article_6.html

お礼

回答ありがとうございます。
マクロが組めれば、広がりますね。
作っていただいた　サンプルですが
シートＮＯを指定しなくても　たとえば　Ｂ３～Ｂ55までの　Trueの各当シートにだけ
飛ばすなんて事も　マクロは出来ますか？

回答No.2

KURUMITO

どのような状況なのか分かりにくいのですがトップ画面のところでどんなデータがどのセルに入力されたら度のシートのどのセルの日付を今日の日付にしたいというのでしょう。
上記のようなことでしたらマクロを使わなくとも関数で対応することもできますね。シートが54枚とのことですがどのような名前のシートになっているのでしょう。できれば連続した番号の入ったシート名になっているのがよいでしょう。あるいはトップ画面で日付を入力したい該当のシート名が表示されるようになっていればより簡単でしょう。

補足

検討ありがとうございます。

トップ画面の状態は、

・・・・・・・Ａ・・・・・・・・Ｂ・・・・・・・・・Ｃ・・・・・・・・・Ｄ・・・・・・・・Ｅ・・・・・

１

２・・・・・出勤数・・・・・週払い・・・・・・ＮＯ・・・・・・コード・・・・・・名前・・・

３・・・・・・15・・・・・・True・・・・・・・１・・・・・・・7725・・・・・・田中・・・・

４・・・・・・20・・・・・・　　　・・・・・・・２・・・・・・・3312・・・・・・鈴木・・・・

５・・・・・・3・・・・・・・TRUE・・・・・・・・３・・・・・・・2289・・・・・・山田・・・・

このような感じで、シート名は、スタッフ一覧と言う名前になっています。
データは、右のE・F・G・　とつづきます。

１シートに1名分の勤怠・明細表がありまして、　Ｂ列とＥ列の３行目から各個人シートに
ページリンクしてあります。　シート名は３行目から　Sheet１から下に向かって増えていきます。
田中さんは、Sheet１・　山田さんは、Sheet３で、　シート名は、順番になってます。

スタッフ一覧（トップ画面）の　　　スタッフ一覧　　　　当確各シート（SHEET１～54）

　　　　　　　　　　　　　　　　・・・・・・　M35・・・・⇒・・・・・・ＡＦ４
　　　　　　　　　　　　　　　　　・・・・・・N35・・・・⇒・・・・・・ＡＧ４　　
　　　　　　　　　　　　　　　　　・・・・・・M36・・・・⇒・・・・・・AF５
　　　　　　　　　　　　　　　　・・・　・・・N36・・・・⇒・・・・・・AG5
　　　　　　　　　　　　　　　　・・・　・・・M37・・・・⇒・・・・・・AF6
　　　　　　　　　　　　　　　　　・・・・・・N37・・・・⇒・・・・・・AG6
　　　　　　　　　　　　　　　　　・・・・・・M38・・・・⇒・・・・・・AF７
　　　　　　　　　　　　　　　　　・・・・・・・N38・・・・⇒・・・・・・AG８

　　　このような感じでスタッフ一覧のM35のデータを　各シートのAF4にとばしたいのです。

　　　入力データーは、　日付で　５/1　などです。
各シートの　AF4：AG8に　日付を入れると支払額が出るようになってます。
これは、週払い希望者用ですので　　AF４　５/1 AG4 5/4 と記入すると
　　　　　4日フ分の賃金がでます。　　一月に多くて、週払いは　4回なので

　　計　8個のデーターを　とばしたいのです。

このデーターは、　週払い希望者だけですので、B列３に、チエックボックスがついていて
週払い希望者は、TRUE　表示され　セルが青に変わります。

また　Ｂ３から　各シートにページリンクされているので、（Ｂ３は、山田でシート１へページリンク）
Ｂ列のＴＲＵＥ表示されたシートだけに　データー飛ばせれば、
最高なのですが　　

よろしくお願いします。

回答No.1

Zeus_Sphere

エクセルのセルは基本的に直接入力あるいは他のセルの参照という形をとります。
従って、トップのシートの内容を判断し特定のシートに書き込む処理は通常出来ません。
しかし、トップのシートにフォームボタンを設置し、これにVBAでマクロを記述すれば可能です。
これを実現するためには、VBAのプログラミングをしなければなりません。
VBAで自由にプログラミングが出来るようになれば、ほぼすべての処理が可能になるでしょう。

お礼

回答ありがとうございます。
やはりセル参照になりますか・・・
マクロは、基本自動登録メインなので、さっぱりです。
本読んでも、なかなか　頭に入りません。
やはりだめですね。
ありがとうございました。