Excelの関数およびﾏｸﾛ等に詳しい方におすすめです｡添付ﾌｧｲﾙをご覧いただきたいのですが｡｢ﾃｽﾄﾌﾞｯｸB｣というﾌﾞｯｸの｢ﾃｽﾄｼｰﾄB｣ｼｰﾄのとあるｾﾙ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

Excelの関数およびﾏｸﾛ等に詳しい方におすすめです｡
添付ﾌｧｲﾙをご覧いただきたいのですが｡
｢ﾃｽﾄﾌﾞｯｸB｣というﾌﾞｯｸの｢ﾃｽﾄｼｰﾄB｣ｼｰﾄのとあるｾﾙに､

｢もしﾃｽﾄﾌﾞｯｸAというﾌｧｲﾙのﾃｽﾄｼｰﾄAの1行目に｢26｣という数字があった場合､その数字のあるｾﾙから8列下の文字列(数値)を引用する｣

といった文字列(数値)を表示させたいのです｡

そのような関数等ご存じの方がいらっしゃいましたら､お教えいただきたい次第です｡
よろしくお願い致します｡

●拡大する

●質問者: moon-fondu
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

▽1 ● きゃづみぃ
●50ﾎﾟｲﾝﾄ

Sub main()
 Dim a As Long
 Workbooks.Open Filename:="ﾃｽﾄﾌﾞｯｸA.xls"
 For a = 1 To Columns.Count
 If Workbooks("ﾃｽﾄﾌﾞｯｸA.xls").Sheets("ﾃｽﾄｼｰﾄA").Cells(1, a) = 26 Then
 ThisWorkbook.Sheets("ﾃｽﾄｼｰﾄB").Range("A1") = Workbooks("ﾃｽﾄﾌﾞｯｸA.xls").Sheets("ﾃｽﾄｼｰﾄA").Cells(9, a)
 Exit For
 End If
 Next a
 Workbooks("ﾃｽﾄﾌﾞｯｸA.xls").Close
End Sub

8列下とあるけど列は左右です｡

1行目から 8行下ということは 9行目ということでいいんですよね？

moon-fonduさんのｺﾒﾝﾄ
はい､うまくいきました､ありがとうございます｡でも抽出した文字列がﾃｽﾄｼｰﾄBのA1ｾﾙに出てきましたね｡ R2ｾﾙに抽出した文字列を表示させて､さらにR3ｾﾙには“27”に一致する列の9行目の数値を､R4ｾﾙには“28”に一致する列の9行目の数値を､R5ｾﾙには“29”に一致する列の10行目の数値を･･･とﾏｸﾛを繰り返していき､最終的にR列にﾃﾞｰﾀがないｾﾙに至るまで処理を繰り返して行うようなﾏｸﾛを､もしよろしければお教えいただけないでしょうか？

moon-fonduさんのｺﾒﾝﾄ
すみません間違えました､｢R5ｾﾙには“29”に一致する列の9行目の数値を｣でしたm(_ _)m

▽2 ● うぃんど
●130ﾎﾟｲﾝﾄ

(1)もっとも単純な式

=HLOOKUP(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:9,9,FALSE)

※上の式を入力するときはﾃｽﾄﾌﾞｯｸA.xlsを開いた状態で入力してください
※正常に機能した後であればﾃｽﾄﾌﾞｯｸA.xlsは閉じていてもかまいません｡
※ﾌｧｲﾙを開くときに｢ほかのﾌｧｲﾙへの自動ﾘﾝｸが設定されています｡｣が出ますので､
面倒ですが｢はい｣を選択してください｡以下同様です｡

(2)該当なしの時にｴﾗｰになると嫌な場合はｴﾗｰ処理も入れる

=IF(
 ISERROR( HLOOKUP(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:9,9,FALSE) ),
 "×",
 HLOOKUP(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:9,9,FALSE)
)

※構造をわかりやすくするため行を分けてますが一行に書いてもかまいません｡

(3)関連事項です｡下記も参照しておいてください｡
http://office.microsoft.com/ja-jp/excel-help/HP005209114.aspx
http://office.microsoft.com/ja-jp/excel-help/HP010102338.aspx

余計なお世話
ﾏｸﾛを知ってしまうとうれしくて使いたくなる人が多いのですが､
Excelが本来持っている基本機能をおろそかにするとﾏｸﾛもうまく使いこなせません｡
基本機能を知らない人ほどﾏｸﾛに走ってしまいがちで､
操作する対象の基本を知らずに作ったﾏｸﾛそのものもお粗末になりますので注意しましょう｡

moon-fonduさんのｺﾒﾝﾄ
ありがとうございます､特に(2)のｴﾗｰ処理を含めた関数でうまくﾃﾞｰﾀを引っ張ることができました！が､抽出先のﾃﾞｰﾀが例えば｢=SUM(AD5:AD9)｣等の関数のｾﾙの場合､うまくﾃﾞｰﾀを引っ張ることが出来ないのです(；▽；) ｢=SUM(AD5:AD9)｣にて導かれる､例えば“25000”といった“値”として､関数を無視してﾃﾞｰﾀを引っ張ってこれるような関数はないでしょうか？度々すみません､もしお気が向きましたらで結構ですので､よろしくお願いします｡

うぃんどさんのｺﾒﾝﾄ
＞｢=SUM(AD5:AD9)｣等の関数のｾﾙの場合､＞うまくﾃﾞｰﾀを引っ張ることが出来ないその程度で取得に失敗するようなものではありませんので､もっともｼﾝﾌﾟﾙな(1)の式を使ってどのような結果になるのかが知りたいです｡式を自分なりに改造した場合は､その式も載せてください｡ﾏｸﾛと違って使っている関数は1つだけなので､中身もよくわからないまま回答されたﾏｸﾛを使うよりも､信頼できる結果を得てもらえるのですが使い方を誤るとどっちもどっちに･･･｡実際にはもっともっと複雑な式が入っているという可能性を考慮して､念のため､別の関数(こちらは2つ使います)も用意しておきます｡ (b1)列を得る >|| =MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:1,0) ||< (b2)該当列の9行目の値を得る >|| =INDIRECT("[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!R9C"&MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:1,0),FALSE) ||< (b3)IFでｴﾗｰ対策する >|| =IF( ISERROR( MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:1,0) ), "×", INDIRECT("[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!R9C"&MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:1,0),FALSE) ) ||< http://office.microsoft.com/ja-jp/excel-help/HP010062414.aspx http://office.microsoft.com/ja-jp/excel-help/HP005209139.aspx

うぃんどさんのｺﾒﾝﾄ
ありそうなﾐｽを2つほど･･･｡ (a)ｺﾋﾟｰ貼り付けで1:9が2:10に変わってたという場合変わってほしくない部分に$を付加して絶対参照にしてください｡ (1)の場合 >|| =HLOOKUP(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!$1:$9,9,FALSE) ||< (b1)の場合 >|| =MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!$1:$1,0) ||< (b)修正ﾐｽ IFを使っているほうの修正箇所は二箇所です｡ (2) >> =IF( ISERROR( HLOOKUP(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:9,9,FALSE) ), "×", HLOOKUP(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:9,9,FALSE) ) << (b3) >> =IF( ISERROR( MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:1,0) ), "×", INDIRECT("[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!R9C"&MATCH(26,[ﾃｽﾄﾌﾞｯｸA.xls]ﾃｽﾄｼｰﾄA!1:1,0),FALSE) ) <<

moon-fonduさんのｺﾒﾝﾄ
うまくできました！ありがとうございます(^_^;)

▽3 ● たか
●5ﾎﾟｲﾝﾄ

余計なお世話2
ﾏｸﾛも､関数によるﾘﾝｸも､ﾌｧｲﾙを跨ぐとどうしても､ﾌｧｲﾙの保存場所や随時反映が出来なかったりと色々制約が出てきます｡
僕なら極力一つのﾌｧｲﾙに纏めます｡

自分だけで使うならまだしも人に渡す可能性が有るならあり得ないです｡

moon-fonduさんのｺﾒﾝﾄ
確かにそうですね｡ただ､ﾌﾞｯｸが分かれている状況でして…｡

▽4 ● きゃづみぃ
●130ﾎﾟｲﾝﾄ

Sub main()
 Dim a As Long
 Workbooks.Open Filename:="C:\Users\kopp\Documents\VBA\4\ﾃｽﾄﾌﾞｯｸA.xls"
 For a = 1 To Columns.Count
 b = Workbooks("ﾃｽﾄﾌﾞｯｸA.xls").Sheets("ﾃｽﾄｼｰﾄA").Cells(1, a)
 If IsNumeric(b) Then
 If b >= 26 Then
 c = b - 24
 ThisWorkbook.Sheets("ﾃｽﾄｼｰﾄB").Cells(c, "R") = Workbooks("ﾃｽﾄﾌﾞｯｸA.xls").Sheets("ﾃｽﾄｼｰﾄA").Cells(9, a)
 End If
 End If
 Next a
 Workbooks("ﾃｽﾄﾌﾞｯｸA.xls").Close
End Sub

これで全部ｾｯﾄされるかと思います｡

きゃづみぃさんのｺﾒﾝﾄ
中身もよくわからないまま回答された関数を使うよりも､信頼できる結果を得てもらえるのです

moon-fonduさんのｺﾒﾝﾄ
ありがとうございます､うまくできました(^_^;)