エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1981)

[[20050510134616]]: #score: 11170; @digest: 1911f735c32ed4a859800457f47bc28f; @id: 13915; @mdate: 2005-05-12T06:36:04Z; @size: 3915; @type: text/plain; #keywords: sheet50 (101991), sheet40 (13353), 駄作 (4510), 数内 (4052), sheetactivate (3511), 連打 (3001), 日同 (2149), filename (1911), formular1c1 (1636), cell (1408), 力2 (1368), （sh (1331), 各シ (1241), 題名 (1158), 的確 (991), soulman (984), 昨日 (836), index (673), 見落 (664), リッ (637), クリ (630), 動的 (619), sh (601), explicit (544), workbook (519), sheet (512), 力に (482), 変申 (482), 順番 (475), 入力 (469), 関数 (445), 統合 (439); 『各シートへの入力について』（はち）
それぞれのsheetに、次のような関数を入力します（入力するセルはそれぞれA1）。 sheet1 =IF（sheet50!A1="","",sheet50!A1） sheet2 =IF（sheet50!B1="","",sheet50!B1） sheet3 =IF（sheet50!C1="","",sheet50!C1）・・・これをsheet40までつくりたいのですが、これと同じ作業が多々あるのでかなり大変です。関数を入力するシートを変えると自動的に関数内のセルの値を変えるような方法はありませんでしょうか? よろしくお願いします。 ---- おはようございます!以下の方法はいかがでしょうか? 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） ---- 『各シートへの入力2』（はち）昨日同じ題名の質問に対して的確なお答えをいただいたのですが、もう少し変更する必要がでてきました。大変申し訳ないのですが、質問を変えますのでもう一度よろしくお願いします。それぞれのsheetに、次のような関数を入力します（入力するセルはそれぞれC5）。 sheet1 =IF（sheet50!C3="","",sheet50!C3） sheet2 =IF（sheet50!D3="","",sheet50!D3） sheet3 =IF（sheet50!E3="","",sheet50!E3）・・・これをsheet40までつくりたいのですが、これと同じ作業が多々あるのでかなり大変です。関数を入力するシートを変えると自動的に関数内のセルの値を変えるような方法はありませんでしょうか? よろしくお願いします。セルの値が微妙に変えてあります。同じような質問で恐縮ですがよろしくお願いします。 ---- 続きで質問された方がいいですよ。 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） ---- ありがとうございました。うまくいきそうです。掲示板の使い方も含めて参考にさせていただきます。（はち） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200505/20050510134616.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ