エクセルの学校：全文検索：Hyper Estraier：関数

Results of 1 - 1 of about 33507 for 関数 (0.006 sec.)

[[20081230004711]]: #score: 2647; @digest: 38b654f9381b2ac49ee1ca504ffb670e; @id: 41474; @mdate: 2008-12-29T22:19:34Z; @size: 2281; @type: text/plain; #keywords: myref (37410), 数自 (3899), ガー (3178), うト (3099), 再計 (2923), 該シ (2895), 度関 (2792), previous (2335), リガ (2238), る引 (1737), トリ (1445), volatile (1268), 手前 (1114), 当該 (1113), 引数 (1077), 成方 (1050), function (1035), 算方 (967), 関数 (891), ルa1 (728), 計算 (678), ブシ (628), sht (620), 更新 (576), も関 (559), 体に (538), 自体 (526), クテ (513), ィブ (471), cell (469), 問題 (442), アク (420); 『ユーザー定義関数の再計算?』（human）
常にアクティブシートの一つ前のシートのセル内容を参照する関数を作成したのですが関数を入力した後に手前のシートのセルの値を変更しても、関数の戻り値が更新されません Application.Calculateを実行しても更新されず、関数を入れ直すと変更した値が表示されます。数十枚のシートがあり、都度関数を入れ直さなければ機能しない状態です。そもそも関数自体に問題があるのでしょうか? 解決策は有りますでしょうか。宜しくお願いします。 WindowsXP Excel2003 Function myref(cel As Range) If ActiveSheet.Index > 1 Then myref = Sheets(ActiveSheet.Index - 1).Range(cel.Address).Text Else myref = "参照できません" End If End Function ---- 再計算させるタイミングを考えないとダメですよね。シートがアクティブになった時とか。 (bbq) ---- >そもそも関数自体に問題があるのでしょうか? まあ、問題があるのかとなれば、「ある」のでしょうねえ!! 再計算を行うトリガーとなる引数がないと言うことですよね? Function myref(cel As Range) この宣言でセルに =myref(a1) 等と関数を記述してしまっては、当該シートのセルA1を引数に渡している事になりますからねえ・・・。上記の記述では、当該シートのセルA1を更新しないと関数は再計算されませんね!! 「再計算を行うトリガーとなる引数がない関数」というのは、出来の良い関数ではありません。他の考え方で対処する方法がないか熟考してください。が、場合によってはこの手の関数が必要なこともあるかもしれません。再計算を行うトリガーとなる引数がない関数の作成方法まず、「ツール」----「オプション」とクリックし、オプションダイアログを表示させ、「計算方法」タブの計算方法を「自動」に設定してください。次に問題の関数ですが、 Function myref(cell_add As Variant) As Variant Dim sht As Object Application.Volatile On Error Resume Next Set sht = Application.Caller.Parent.Previous If Err.Number = 0 Then myref = sht.Range(cell_add).Text Else myref = "参照できません" End If On Error GoTo 0 End Function としてください。運用方法は、セルに =myref("A1") 等と指定して下さい。但し、上記の関数を多用すると、ブックの動作が遅くなりますよ!! 一例ですが、試してみて下さい ichinose ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200812/20081230004711.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ