Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8980 / 13644 ツリー ←次へ | 前へ→

【29932】2つの入力値からデータを検索させる方法 マクロ初心者 05/10/16(日) 22:07 質問[未読]
【29933】Re:2つの入力値からデータを検索させる方法 かみちゃん 05/10/16(日) 22:14 発言[未読]
【29935】Re:2つの入力値からデータを検索させる方法 ichinose 05/10/17(月) 7:55 発言[未読]
【29991】Re:2つの入力値からデータを検索させる方法 マクロ初心者 05/10/17(月) 20:07 お礼[未読]

【29932】2つの入力値からデータを検索させる方法
質問  マクロ初心者  - 05/10/16(日) 22:07 -

引用なし
パスワード
   はじめて書き込みさせていただきます
    A     B     C     D
1 2001年   2月    ホ
2  ここからデータベース
3       1月    2月   3月 
4 2000年   イ    ロ    ハ
5 2001年   ニ    ホ    ヘ
6 2002年   ト    チ    リ


A1のセルに年を入力
B1のセルに月を入力

この2つの条件の重なったデータベースの数値をC1に出力させたいのですが
どういったマクロを組めばいいでしょうか?

【29933】Re:2つの入力値からデータを検索させる...
発言  かみちゃん  - 05/10/16(日) 22:14 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>この2つの条件の重なったデータベースの数値をC1に出力させたいのですが

年、月、データベースの年は、すべて数値になっていますか?
データベースの横方向は、1〜12ですか?
この前提であれば、まず「年」の値をデータベースから検索して、一致する行を
見つけます。
その行のA列から月数分Offsetすればいいと思います。

検索は、Findメソッド
Findメソッドで見つかったところから1月なら、.Offset(,1)、2月なら.Offset(,2)です。

以上をまずはヘルプで調べてみてください。

【29935】Re:2つの入力値からデータを検索させる...
発言  ichinose  - 05/10/17(月) 7:55 -

引用なし
パスワード
   ▼マクロ初心者 さん、かみちゃんさん、おはようございます。

>はじめて書き込みさせていただきます
>    A     B     C     D
>1 2001年   2月    ホ
>2  ここからデータベース
>3       1月    2月   3月 
>4 2000年   イ    ロ    ハ
>5 2001年   ニ    ホ    ヘ
>6 2002年   ト    チ    リ
>
>
>A1のセルに年を入力
>B1のセルに月を入力
>
>この2つの条件の重なったデータベースの数値をC1に出力させたいのですが
>どういったマクロを組めばいいでしょうか?

まず、書式の確認から・・・。

上記例の
セルA1及び、A4〜A6の年を入力するセルの書式は
ユーザー定義で「####年」と設定し、それぞれのセルには、
2001、2000 等の数値が入り、書式により2001年と表示されているものとします。

セルB1及び、B3〜D3の月を入力セルの書式は
ユーザー定義で「##月」と設定し、それぞれのセルには、
1、2 等の数値が入り、書式により1月と表示されているものとします。

以上の設定だとして、セルC1には、

=INDEX($B$4:$D$6,A1-$A$4+1,B1)

という数式で年と月の交差するデータが表示されるはずです。
後は、これをマクロ初心者 さんの本当の事例にどのようにマッチさせていくか?
だと思います。

【29991】Re:2つの入力値からデータを検索させる...
お礼  マクロ初心者  - 05/10/17(月) 20:07 -

引用なし
パスワード
   かみちゃんさん、ichinoseさん こんばんは
回答をいただきましてありがとうございました。
FIND、OFFSET、INDEX について
HELPを見ながらなんとか自分の必要としている形にしました
大変感謝しております
よいアドバイスありがとうございました

8980 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free