[[20050510134616]]　『各シートへの入力について』（はち）　ページの最後に飛ぶ

『各シートへの入力について』（はち）

それぞれのｓｈｅｅｔに、次のような関数を入力します（入力するセルはそれぞれＡ１）。

ｓｈｅｅｔ１　　　＝ＩＦ（ｓｈｅｅｔ５０!Ａ１＝"","",ｓｈｅｅｔ５０!Ａ１）

ｓｈｅｅｔ２　　　＝ＩＦ（ｓｈｅｅｔ５０!Ｂ１＝"","",ｓｈｅｅｔ５０!Ｂ１）

ｓｈｅｅｔ３　　　＝ＩＦ（ｓｈｅｅｔ５０!Ｃ１＝"","",ｓｈｅｅｔ５０!Ｃ１）

　　・
　
　　・
　
　　・

これをｓｈｅｅｔ４０までつくりたいのですが、これと同じ作業が多々あるのでかなり大変です。関数を入力するシートを変えると自動的に関数内のセルの値を変えるような方法はありませんでしょうか？　よろしくお願いします。

 おはようございます！以下の方法はいかがでしょうか？
1) Ctrlを押しながらSheet1から40をクリック。(めんどくさかったら、Sheet1を
クリックして、CtrlとShftを押しながらPage Down連打でも大丈夫です)
2) Sheet1をクリックしてA1をクリックして、以下の数式を貼り付ける。
=IF(Sheet50!$A$1="","",OFFSET(Sheet50!$A$1,,MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME",A1))+6,100)-1,))
3) Enterを押す。
→すべてのSheetに数式が入って、Sheet50の該当セルを参照してますでしょうか？

 「関数を入力するシートを替えると自動的に関数内のセルの値を変える」という意味が
ちょっと分からなかったので、はずしてるかもです。。。。(dude)

 自己レスです。IFの条件式もA1,B1と増えてくんですね、見落としてました（^^;)

 こっちの式に変更してください。。。ってながすぎ（涙）。

 =IF(OFFSET(Sheet50!A1,,MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME",A1))
+6,100)-1,)="","",OFFSET(Sheet50!A1,,MID(CELL("FILENAME",A1),FIND("]",CELL
("FILENAME",A1))+6,100)-1,))

 駄作なので他の方のアイデアも是非みてみたいところです。(dude)

 おはようございます。
Sheetが左から右に順番に並んでいるとして
メニューバーのファイルの隣のエクセルのマークを右クリック→コードを表示させて
そこに貼り付けます。左から順番にクリックしていってください。
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index < 41 Then
    Sh.Range("A1").FormulaR1C1 = _
    "=IF(Sheet50!RC[" & Sh.Index - 1 & "]="""","""",Sheet50!RC[" & Sh.Index - 1 & "])"
End If
End Sub
(SoulMan）

dudeさん、SoulManさん、ありがとうございました。

夕方頃に試してまたご報告せせていただきます。

（はち）

Soul Manさんのご説明どうりでできそうです。ありがとうございました。

これがマクロというのでしょうか？

初めての試みだったので少しずつ勉強していきたいと思います。

 こちらに統合しました。
 （kazu）

『各シートへの入力２』（はち）

昨日同じ題名の質問に対して的確なお答えをいただいたのですが、もう少し変更する必要がでてきました。大変申し訳ないのですが、質問を変えますのでもう一度よろしくお願いします。

それぞれのｓｈｅｅｔに、次のような関数を入力します（入力するセルはそれぞれＣ５）。

ｓｈｅｅｔ１　　　＝ＩＦ（ｓｈｅｅｔ５０!Ｃ３＝"","",ｓｈｅｅｔ５０!Ｃ３）

ｓｈｅｅｔ２　　　＝ＩＦ（ｓｈｅｅｔ５０!Ｄ３＝"","",ｓｈｅｅｔ５０!Ｄ３）

ｓｈｅｅｔ３　　　＝ＩＦ（ｓｈｅｅｔ５０!Ｅ３＝"","",ｓｈｅｅｔ５０!Ｅ３）

　　・
　
　　・
　
　　・

セルの値が微妙に変えてあります。同じような質問で恐縮ですがよろしくお願いします。

 続きで質問された方がいいですよ。
 20050510134616『各シートへの入力について』（はち）
昨日のとあわせて、こんな感じでどうでしょうか？
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index < 41 Then
    Sh.Range("A1").FormulaR1C1 = _
    "=IF(Sheet50!RC[" & Sh.Index - 1 & "]="""","""",Sheet50!RC[" & Sh.Index - 1 & "])"
    Sh.Range("C5").FormulaR1C1 = _
    "=IF(Sheet50!R[-2]C[" & Sh.Index - 1 & "]="""","""",Sheet50!R[-2]C[" & Sh.Index - 1 & "])"
End If
End Sub
（SoulMan）

ありがとうございました。うまくいきそうです。

掲示板の使い方も含めて参考にさせていただきます。
（はち）

コメント返信：

[ 一覧(最新更新順) ]

[[20050510134616]] 『各シートへの入力について』（はち） ページの最後に飛ぶ

[[20050510134616]]　『各シートへの入力について』（はち）　ページの最後に飛ぶ