Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2007)
VBVで他のシートから情報を選んで抽出したいです。
投稿日時: 19/02/16 07:29:06
投稿者: kuni160531

記録シートに情報を打ち込み、別シートの関数で情報を引き出せる物を作りましたが、動作が遅すぎて使えません。
情報を引き出すシートは以下の表です。赤字所、B5から関数【=IFERROR(INDEX(記録ページ!B:B,1/LARGE(INDEX((記録ページ!$C$3:$C$30000<>"")*ISNUMBER(FIND($B$2,記録ページ!$B$3:$B$30000)*FIND($C$2,TEXT(記録ページ!$C$3:$C$30000,"m月"))*FIND($D$2,記録ページ!$D$3:$D$30000)*FIND($E$2,記録ページ!$E$3:$E$30000)*FIND($F$2,記録ページ!$F$3:$F$30000))/ROW($3:$30000),),ROW(A1))),"")】を貼り付けて横と下にペーストして、青字の所。B2から横に検索したい文字を打ち込むと、他シートから情報を検索出来るのですが、重すぎます。VBAでこの作業を行う事は可能でしょうか?VBAはあまり得意ではないので、コードを書いて頂けると助かります。分かる方教えて下さい。宜しくお願い致します。
 
病棟    月     氏名     活動     担当者                    
2病棟                レク      秋保                                        
病棟    日付     氏名     活動     担当者    所見     参加人数  基本運動  棒運動・・
2病棟 12月27日 美香みみ レク     秋保     動けている     1        ○      ○
2病棟 10月22日 美香みみ レク     秋保                1        ○       ○
2病棟 10月5日 佐藤健太 レク     秋保     怠けている     1           ○      ○
2病棟 11月19日 佐藤健太 レク     秋保               1       ○      ○

 
[/color]

回答
投稿日時: 19/02/16 08:29:46
投稿者: WinArrow
投稿者のウェブサイトに移動

最初に
↓にも書いてありますが、コードの作成依頼は、禁止されています。
>https://www.moug.net/faq/kiyaku.html
 
重いのは、数式の中に配列があります。この配列の多用にあります。
いきなり、このような長〜い数式をそのまま掲示されても、
検索対象の別シートの説明もないし、・・・・
 
>B2
と書いてあるが、どこがB2かわからないし・・・・・
 
数式を言葉で説明できますか?

投稿日時: 19/02/16 08:41:10
投稿者: kuni160531

そうなんですね、ちゃんと読んでなかったです。すいません。