- ベストアンサー
検索結果の値を返すマクロ
以下のような表で列「A」にある値を「C1～I1」より検索し 一致するものがあれば、列名を「B列」に返すマクロを作りたいのですが、どのようにマクロを記述したら良いでしょうか？ A B C D E F G H I 10 20 30 40 50 60 80 10 20 10 50 60 勉強してみたのですが、変数をどのように使っていいか判りません。 ご助言いただければと思います。
- junna_hana
- お礼率60% (3/5)
- オフィス系ソフト
- 回答数3
- ありがとう数2
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- DoragonFang
- ベストアンサー率41% (91/221)
マクロの勉強のためでしょうか？ それなら、ANo.2さんの回答でいいと思いますが。 蛇足ながら、ご質問のコトを関数でも可能です。 =CHAR(66+MATCH(A3,$C$1:$I$1,0))
お礼
勉強のためというわけではなく、関数の勉強がたりなかったようです。関数で出来るとは思いませんでした。 最終的には、返ってきた列にある数値から、検索値と同じ行数にあるものを拾いたいと思っていたのでマクロでしか出来ないと思っていました。 必要な運賃を表示するエクセルを目指してます。 マクロと関数の方法を教えていただけましたので、使い分けれるようになればいいなと思います。 ありがとうございました。
関連するQ&A
- 照合した結果によって決めた値を転記するマクロ
シート１には Ａ～Ｆ列まで値があり、行数は都度相違し約15,000行くらい。 データは2行目から開始です。 シート２には Ａ～ＡＥ列まで値があり、行数は都度相違し約5,000～25,000行 あり同じくデータは２行目からです。 シート１の行ごとに A列,B列,C列の順で連結した値と シート２の行ごとに F列,G列,B列の順で連結した値を 照合させます。 その値が （１）シート１にもシート２にもある場合は シート２のＡＦ列に１と転記 （２）シート１には無いがシート２にはある場合は シート２のＡＦ列に２と転記 （３）シート１には有るがシート２には無い場合は シート２のＡＦ列に３と記入 シート２のデータのある行まで 作業を繰り返すマクロの記述を教えてください。 VLOOKUPを使用したマクロを作成しましたが 判定1,2,3の転記がうまく出来ないのと VLOOKUPが重すぎて処理が遅すぎるので 速く処理が出来るとうれしいです。 例 シート１ A2=XXXX B2=1234 C2=5678 シ－ト２ B2=1234 F2=XXXX G2=5678 シート１の値＝XXXX12345678 シート２の値＝XXXX12345678 照合する ↓（一致なので） シート２のセルＡＦ2に１と転記
- ベストアンサー
- オフィス系ソフト
- VBAマクロ作成について
A B C -------------- 1 ○○ 123 456 --------------- 2 □□ 789 123 --------------- 3 △△ 456 789 -------------- 上記のような表でInputBoxを使い「○○」と入力すると同じ行のB列「123」とC列「456」 「□□」なら「789」「123」のように値を取得し、変数に代入するような マクロを作成したいのですが、どのように記述すれば良いでしょうか。 初歩的な質問ですが、宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- Excel マクロでの検索
大量のデータ(約40000件)をDB(約3000件)から検索し該当する値を返す作業をしています。 マクロを今日初めて組んだのですが、うまく行きません。 だれか教えてください。 例：※同Sheet内での作業です。 DB(列1・2) データ(列3・4)※ランダムに並んでます。 1 2 3 4 1 a A c Cを返したい(cを1列より検索し2列の値を返す) 2 b B e Eを返したい(eを1列より検索し2列の値を返す) 3 c C d Dを返したい(dを1列より検索し2列の値を返す) 4 d D d Dを返したい(dを1列より検索し2列の値を返す) 5 e E h Hを返したい(hを1列より検索し2列の値を返す) 6 f F @ @が1列に無い場合は空欄でよい ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ 今日、私は4列のワードを変数とし、1列より検索する方法をとりました。(Loopで組みました) Find.で組むと、不要なワードまで検索してしまう状況です。 例:aaaaで検索→aaaaaaがhitしてしまう。 同一ワードで検索する方法も試したのですが、エラーが出てしまいます。 自分なりにFindNextなども試してみましたが、無限Loopになってしまいます。 Loopを使わなくてもいいので、方法を教えてください。 本来自力で調べるべきですが、急ぎの仕事な為、ご協力ねがいます。
- 締切済み
- オフィス系ソフト
- Excel 2007のマクロ記述について
Excel 2007で、B4セルからＩ最終行までの整数のみを小数点以下１桁にする処理をマクロで実行したいのですが、どのように記述したらよいか教えてください。 最終行とはＩ列にセルの値がある最後の行です。 下記の例のマクロ実行結果は、1→1.0、2→2.0となります。 （例） 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2 2 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1 1 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1 1 1.5 1.5 CIRCLE CIRCLE マクロ実行結果 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2.0 2.0 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1.0 1.0 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1.0 1.0 1.5 1.5 CIRCLE CIRCLE
- 締切済み
- Visual Basic
- Excelでマクロを使用した削除に関して
マクロ初心者です。 Excelにて、以下のような表データがあるとします。 A列 B列 C列 D列 E列 … 1行 51 50 52 51 2行 50 a b c d 3行 51 e f g h 4行 52 i j k l この表の中で、A列と1行目の値が同じになる交点となるセルの値"以外"を 削除して以下のように表示させたいのですが、 その方法がわかりません。 A列 B列 C列 D列 E列 … 1行 51 50 52 51 2行 50 b 3行 51 e h 4行 52 k 単純な行削除・列削除ではないため、 頓挫しています。お知恵を拝借したく、よろしくおねがいします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルでカンマ区切り文字を各行に分解するマクロを書きたい
WindowsXP Excel2003 エクセルで以下ができるマクロを書きたいです。 B列にはカンマ区切りで文字列が入っています。 カンマ区切りの数は行によって様々です。 この表をB列のカンマ区切り文字を各行に分解したいです。 その際、A列とC列は分解前の値と同様です。 このようなマクロは書けますかね？ A列 B列 C列 あ a,b,c 100 い d,e 200 う f 300 え g,h 400 ↓ A列 B列 C列 あ a 100 あ b 100 あ c 100 い d 200 い e 200 う f 300 え g 400 え h 400
- ベストアンサー
- オフィス系ソフト
- マクロ（Ｅxcel）で検索して値の返し方について
マクロの初心者です。関数でいうvlookupなどを使って、 検索した値を反映させるマクロをお教え下さい。 ファイル名「担当ID.xls」のB列へ「顧客名簿.xls」から 検索したC列（地域）を返したいです。 お手数おかけしますが、全くの初心なので、マクロの 説明コメントも記載して頂けると助かります。 ■ファイル名：担当ID.xls 列A B C 顧客番号 地域 担当ID A-1111 ？ os123 A-2222 ？ nr456 A-3333 ？ wk789 ■ファイル名：顧客名簿.xls ■シート名：Sheet1 列A B C 顧客番号 名前 地域 A-1111 A 大阪 A-2222 B 奈良 A-3333 C 和歌山 以上です。よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル マクロでセルを自動移動
例1のようになっているエクセル表があります。 データは右方向、下方向へ増えます。 Cの列以降は4つ単位でしかデータは増えません。 それを例2の表のように列A,Bのデータはそのままに Cの列以降の4つのセルを区切りに下の行に移動して、 空白の列まで言ったらA2の行以降を最後の行まで繰り返しするという マクロを書くことは可能でしょうか。 出来ましたらそのマクロを教えてください。 例1 A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1 A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 A3 B3 C3 D3 E3 F3 G3 H3 I3 J3 K3 L3 M3 N3 例2 A1 B1 C1 D1 E1 F1 A1 B1 G1 H1 I1 J1 A1 B1 K1 L1 M1 N1 A2 B2 C2 D2 E2 F2 A2 B2 G2 H2 I2 J2 A3 B3 C3 D3 E3 F3 A3 B3 G3 H3 I3 J3 A3 B3 K3 L3 M3 N3
- ベストアンサー
- オフィス系ソフト
- Excelのマクロを教えてください。
Excelのマクロを教えてください。 Sheet1 F列（商品） F2テレビ、F3DVD、F4携帯電話、サプライ、、、F32まで商品あり。 I列～N列の１段目（人＊増える場合あり） I1佐藤、J1高橋、K1田中、L1中村、、、 I2～N32まで、１、２、３と個数が入力されています。 A列～E列とG列とH列は今回の処理に不要なデータがいます。 これをSheet2に A列に人、B列に商品、C列に数 例） A1 佐藤、B1 テレビ、C1 1 A2 佐藤、B2 DVD 、C2 3 A3 高橋、B3 携帯電話、C3 2 のように、書き出すマクロを教えていただけませんか？ 別にマクロでなくても、Excel2007までの機能でできることであればそれでもいいです。 丸投げして申し訳ありません。
- 締切済み
- その他MS Office製品
- オートフィルタ後の、マクロでの値の参照に関して
オートフィルタ後の、マクロでの値の参照に関して 下記を悩んでいます。教えて頂ければ幸いです。 マクロで、あるデーター表から、オートフィルタを使用し、必要なデーターを 抽出し、マクロ内に戻し、その後の計算で使用したいと考えています。 A列、B列、C列にそれぞれ、検索条件を指定し、オートフィルタ後、下記のような状態になります。 参照したい値は、D列になります。 下記のような例では、2.5と2.7の値をマクロ内に戻したいです。 (例：オートフィルタ後) 1行 A▼ B▼ C▼ D 16行 ** ** ** 2.5 20行 ** ** ** 2.7 ＊2～15行目は見えなくなっています。 *17～19行目は見えなくなっています。 セルを参照し、マクロ内に戻すには、どのような構文(マクロ)の記述が必要でしょうか？ 【備考】 ・上記の例では、セルはD16、D20となりますが、抽出条件によっては、行番号が変わってしまいます。 ・抽出後のD列のデーター数は、常に2つです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 助言どころか、丸々教えてくださり感謝です。 普段ならもう少し勉強するのですが、会社からせかされていたのでとても助かりました。 本当にありがとうございました。