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

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

[[20111022152118]]: #score: 2646; @digest: 84383badc3f59f085f871474f50df686; @id: 56386; @mdate: 2011-10-22T15:07:50Z; @size: 4916; @type: text/plain; #keywords: 者検 (124416), 索2 (52211), 南山 (37410), 山市 (15415), volatile (10145), 当" (9870), 阻害 (9701), 索1 (7696), stem (7230), 当者 (6626), sasa (5526), 義関 (4394), 該当 (3906), ばd1 (3763), 数内 (2700), 思考 (2429), caller (2360), 。d2 (2126), 検索 (2103), 理速 (1884), ェー (1764), ー定 (1654), フェ (1638), 引数 (1614), function (1448), 数( (1210), myr (1209), 速度 (1130), 住所 (1123), 定義 (1028), ユー (1006), 関数 (1002); 『ユーザー定義関数で見出しを検索条件に』（stem）
お世話になります。下記のコードで住所が「○○南山市○○」及び年齢が70歳以上の人を抜き出すユーザー定義関数を書きました。 Function 該当者検索1(myr As Range) As String Application.Volatile If myr.Value Like "*南山市*" And myr.Offset(0, -1).Value >= 70 Then 該当者検索1 = "南山市該当" Else End If End Function うまく抽出できました。次に上のコードでは検索する住所を直接「"*南山市*"」と指定していますが見出しに入力されているデータ（D列ならばD1）で指定したくて Function 該当者検索2(myr As Range) As String Dim i As Long Dim j As String Application.Volatile i = myr.Column j = Cells(1, j).Value If myr.Value Like "*" & j & "*" And myr.Offset(0, -1).Value >= 70 Then 該当者検索2 = j & "該当" Else End If End Function A列に個人名 B列に年齢 C列に住所のデータ D1には「南山市」と入力があり、C2には「○○南山市123番地」と住所の入力があります。 D2に「=該当者検索2(C2)」結果 #VALUE! になりました。 XP エクセル2007ですご教示宜しくお願い致します。 ---- ロジックはみていないけど、とりあえず j = Cells(1, j).Value は j = Cells(1, i).Value だよね。追記）ちょっとだけロジックをながめた。 j = Cells(1, i).Value だと D1 じゃなく C1 を参照するけどいいの? (ぶらっと) ---- ---- ぶらっとさんご指摘ありがとうございますドジとバカがなおりません＞＜。。＞j = Cells(1, i).Value だと D1 じゃなく C1 を参照するけどいいの? D1を参照させたいです。 D2に=該当者検索2(C2)の入力があればD1を参照 E2に=該当者検索2(C2)の入力があればE1を参照のようはコードは可能でしょうか?ご教示願います。 ※先ほど一度書きこみましたが、訂正しました（stem) ---- コードを見たところユーザー定義関数としての基本から外れているように思います。組み込みの普通の関数(SUMなど)を考えてみてください。その関数内で用いる値は全て引数で与えます。だからVolatileメソッドも用いません。 (Volatileメソッドを用いる事の処理速度の阻害については理解されていますか) で、一例として以下のようなコードにすれば良いでしょう。 D2に =該当者検索2($C2,$B2,D$1) Function 該当者検索2(Address, Age, What) As String If InStr(Address, What) And Age >= 70 Then 該当者検索2 = What & "該当" End Function (sasa) ---- Application.Caller というプロパティを調べて見てください。そうすれば、とりあえず >D2に=該当者検索2(C2)の入力があればD1を参照 >E2に=該当者検索2(C2)の入力があればE1を参照これの実現は出来ます。でも・・・。私が作るなら、このインタフェースにはまずしないと思いますよ!! 提示したApplication.Callerを使った間接的なセルの取得やコード中のmyr.Offset(0, -1).Value Application.Volatile の記述がなければ、 D2に=該当者検索2(C2) の場合、B2の値を変更しても、結果が変わりませんよね? 変わらないので再計算を促すためのApplication.Volatileなんでしょうが・・・。これは、C2やB2以外のセルを変更しても、常に再実行しているということを考えてください。沢山使えば、処理にも影響してきます。第一、関数なのに引数に指定したセル以外の影響を受けるという分かりづらい仕様になっています。 D2に=該当者検索2(C2)の入力があればD1を参照これなら、 =該当者検索2(C2,b2,d1) という指定で結果を出す関数の方が引数がなんであるか分かりやすくないですか? また、このようなインターフェースであれば、Application.Volatileは、要りません。更にこのそれぞれの引数の意味とそもそもの関数の機能をきちんとドキュメントとして、記述してみてください。これがきちんと表示できないような仕様なら、根本から練り直すことも検討してください。 ichinose ---- sasaさん ichinoseさん有難うございます＞組み込みの普通の関数(SUMなど)を考えてみてください。＞その関数内で用いる値は全て引数で与えますああ!ユーザー定義関数も関数なので...引数で...。今理解しました。＞ (Volatileメソッドを用いる事の処理速度の阻害については理解されていますか) まったく理解していませんでした。ユーザー定義関数を検索したらこのコードがあったのでユーザー定義関数では使うのが標準なのかと... なんとなく入力して安心してました。御二方がおっしゃっている基本の =該当者検索2(C2,b2,d1)を勉強します。こんな関数が作れればと挑戦して最初の方法で意外とうまくいったのでそれ以上の思考をまったくしていませんでした。＞Application.Caller 検索してみました。使いこなせるのはまだまだ後ですが自分の位置を取得するプロパティみたいですね。ユーザー定義関数に関しての支離滅裂な思考を正していただきました。有難うございました。（stem) ---- >御二方がおっしゃっている基本の >=該当者検索2(C2,b2,d1)を勉強します。 ↑ この関数の一例はすでに示しています。 D2に =該当者検索2($C2,$B2,D$1) のように入力すると右や下方向等にドラッグして入力出来ます。 (sasa) ---- sasaさんへ＞Function 該当者検索2(Address, Age, What) As String 使わせていただいています。ただ理解の方はまだでしたので、あのように書かせていただきました。 InStr関数を検索してみて、先ほどやっと理解できたように思います。有難うございました (stem) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201110/20111022152118.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ