【ExcelVBA】初心者です。 コードを教えてください。

Question

【ExcelVBA】初心者です。

フォームのテキストボックス（TextBox1）に入力された値を、シート（Sheet1）の中から検索し、その右隣のセルの値を別のシート（Sheet2）に挿入するというプログラムを作ろうと考えています。ですが、ネットで検索してもいまいちよくわかりません。どのように作ればいいのかコードを教えてください。検索するセルは必ずしも同じ列にあるとは限りません。よろしくお願いします。

Comments

[m.ts10806]

タイトルには要件を書きましょう。 https://teratail.com/help/question-tips#questionTips3-1 >ありがちな失敗としては、「助けてください」「初心者です」という表題をつけてしまうことです。 これでは質問ページを開いて本文を読むべきかどうかを判断する情報が何も含まれていません。

Answer 1

質問内容へのアドバイス

手のつけどころがわからなくて本当に困って質問されているのだと思いますが、典型的な叩かれる質問になってしまっています。

たぶん質問に
①自身で行ったことの具体性がない
・自分なりに調べた結果わかったこと、わからなかったこと
・自分なりに作成したコードの提示（動作しないものでも）

②自身の見解がない
・わからないこと、うまくいかない原因は何か
・○○を利用すればできそうな気がするけどうまくいかない

といったあたりの記載が足りないからだと思います。

ここは無料サンプルコード提供場ではなく、最終的には質問者さんの経験値アップを目的とした場ですので、質問する側にもそれなりの姿勢が大事なのだと思います。

本題のアドバイス

本題ですが、まずご自身で作成されたコードの提示がありませんのでコードの提供は控えめとさせていただきます。

参考までに、処理の流れの一例をご紹介します。

===
①フォームのテキストボックスから値を取得する(sTxt = Textbox1.text)

②検索対象のシートから、検索対象セル範囲を取得する
※例えばシート1のA1～A100の範囲から検索するのであればSet rngS = Sheet1.Range("A1:A100")

③対象のセル範囲(Range変数)に対して検索を行う。Set rngF = rngS.Find(What:=sTxt)

④検索結果の判定
・見つかった場合、見つけたセルから右隣のセルを取得。その値を出力シートの対象セルに出力。
・見つからなかった場合、何もしない

===
といった具合で実現できそうです。

検索範囲の特定と、Findの結果判定のあたりが山場になりそうでしょうか。
この方法なら、Range.Find関数について検索すれば具体的な使い方がいろいろ見つかると思います。

この他にも
・VLookupを利用する
・MATCH＆INDEXを利用する
・対象範囲を自力でループする
など実現方法はいくつもあると思います。

まずはExcelのさまざまな検索方法に好奇心を持って、それぞれのメリット/デメリットなどを調べてみてはどうでしょうか？
その過程で、この程度のコードは自然と出来上がってしまう気がします。

がんばってみてください。

Answer 2

開発メニューにマクロの記録というのがあるので、そちらで記録を取ってみるのが近道だと思います。
やっていることを追いかけたり、自身で調べる事が重要と考えますので、一先ずマクロの記録でどうなったのか提示されてはいかがでしょうか。

Answer 3

どのように作ればいいのかコードを教えてください。

コードを書くのはそんなに難しくないですが、
まずは、どのように作るのかということです。

というか、
どのように作業をしたら、希望の結果が得られるのか、
そして、その作業をするためにはどのような前提条件が必要なのか、
を説明できるようになることが重要です。

例えば、
操作対象のブック＆シートはどれか？
検索するセル範囲の左上のセルはどれか？
そして検索するセル範囲の右下のセルはどれか？
等をプログラムの中に盛り込まねばなりません。

そして、エクセルで何かをするのならば、
不特定なセル範囲を自由自在に取得できるようになることが肝要だと思います。
一足飛びにコードをという前に、基礎を覚えたり、
作業の流れを自分で説明できるようになりましょう＾＾