- ベストアンサー
VBA初心者のための2条件検索方法
avanzatoの回答
- avanzato
- ベストアンサー率54% (52/95)
#1ですが確認をしたい点があります。 複数シートとの事ですが生産番号は例えばSheet1に111があるとした時Sheet2に同じく111が存在することはありますか? フォームの生産数はコンボボックスですか?テキストボックスですか?
関連するQ&A
- Excel VBA 条件検索について
ExcelVBAで 「データ検索後リスト表示をして、そのリストから該当するシートを選べば表示される」 というユーザーフォームを作成したいのですが、やり方がよく解りません。どなたか教えて下さい。 具体的には 「コマンドボタンが押された時に、ユーザーフォーム内のテキストボックスに入力された値(名称、日付等)と、複数のシート内のセルの値(名称、日付等)を比較して、一致(全一致、一部一致)した場合、ユーザーフォーム内のリストボックスに表示させる」 というものと 「リストボックスに表示されたものの中から見たいシートを選択すると、そのシートを表示する」 というものです。 リストの表示形式は シート名 名称 日付等 Sheet1 りんご 2013.01.01 Sheet2 りんご 2013.01.02 という具合にしたいと思っています。 ちなみに複数のシートと言いましたが、マスターシートを作りコピーして使用しますので、同一形式のものになります。 以上になります。 色々やってみましたが、うまくいきませんので、どなたか解る方は教えて下さい。 よろしくお願いします。
- 締切済み
- Visual Basic
- 検索値と検索先のシートが別でもOKなVBAはありますか?
「Excel2002」を使用して、内線番号表を 作ろうと思っています。 「表紙」sheetにあるコンボボックスで選んだ 値(各部署名)が、 「内線番号表」sheetの「E1」に入るとします。 (「LinkedCell:内線番号表!E1」) その「E1」を検索値として「内線番号表」内を 探すマクロを、フォームボタンに登録しました (以下。自分で書いたわけではないのですが)。 Sub 部署を表示() With Worksheets("内線番号表") Sheets("内線番号表").Select Cells.Find(What:=Range("E1"), After:=Cells(2, 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True).Activate End With End Sub これはこれでうまくいったのですが、少し問題が 出てきてしまいました。 「内線番号表」sheetはデータを取り込んで、 列や行を大幅にいじる事が頻繁にあるので、 コンボボックスの「LinkedCell」として指定した 「内線番号表!E1」という アドレスが勝手に変更されてしまうのです。 (「$」をつけても駄目でした) そこで、コンボボックスの「LinkedCell」を、 いじる事がない「表紙」sheetの セルに変えたいと思うのですが… 「検索先のシートの中に検索値がなくても 検索出来る」方法はあるのでしょうか? つまり、「表紙」sheetのセルの値を元に、 「内線番号表」sheetを検索するVBAのコードが あれば、教えて頂きたいのですが…。 (これが出来れば、他にも応用したいと思うので) コントロールBOXやVBAは勉強し始めた ばかりなので、うまく説明出来たかどうか 分かりませんが…よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルの関数でIPアドレスのあるブロック部分だけ文字列を取り出したい
A1セルに www.xxx.yyy.zzzというIPアドレスがあります。 このうちyyyの部分だけ、関数を使用してB1セルに自動で入力するようにしたいです。 www.xxx.の文字数は常に固定ですが、yyy.zzzは文字数が変動します。 yyy、zzzの各ブロックは最低1文字、多くて3文字になります。 お手数ですが、ご教授頂きたくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- VLOOKUPの検索値について
エクセルでVLOOKUPの関数を使うときの「検索値」に関する質問です。 この「検索値」が数式結果だと反映されませんよね? そこで範囲指定をして、「値だけコピー貼付」をしたのですが、 やっぱり反映されません。 <sheet1> A B C D 1 123 りんご 10円 XXX 2 124 みかん 20円 YYY 3 125 めろん 30円 ZZZ 4 126 かき 40円 QQQ ↑ この「123」や「124」が 別のシートからVLOOKUPで「DのセルがXXXなら123にする」 という数式の結果なんです。 この<sheet1>を利用して、別の<sheet2>に VLOOKUPで「“123”と入力したら“りんご”となる」 というようにしたいのですが、 この“123”“124”が数式結果のため、反映されません。 値だけ貼り付けても反映されません。 上書きで“123”“124”と入力すれば反映されますが 数が多いので困っています。 初心者なので、できるだけわかりやすく教えていただけたら 嬉しいです。
- ベストアンサー
- オフィス系ソフト
- VBAを使ってセルを検索後別シートのデータを自動入力したいです。
見ていただきありがとうございます。 エクセルの2000VBAを使って次のようなことを考えています。 シート2に以下のようなデータがあります。 2006/7/20 コード 数量 100 200 200 400 データの数は日によって違います。 シート1には以下の表があります。横軸にはコード縦軸には日付が入っており各対応するセルに数量が入っています。 100 200 300 400 ....←コード 2006/7/1 20 40 100 800 2006/7/2 50 60 200 500 . . . 2007/6/30 このような場合、シート2にコマンドボタンを設けて押したときシート2の日付とコード番号によりシート1の表の検索を行って対応するセルにシート2のデータを転記したいのです。シート2のデータは本日分のデータが入った時点でシート1への転記を行います。(1日一回です) また、シート1の表は2007/6/30(これ以降は必要ないので)までの日付がすでに入力されており明日以降のデータの入るセルは空白になっております。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAにてキーになるものを入力すると、その関連データを振り分ける
2つのシートがあり、sheet2に振分けるデータ(下表)を作成しておきます。 (列) 1 2 3 (行) 1 A B C 2 ○ △ × 3 ア イ ウ (1)sheet1にコンボボックスにてAを入力する。AはセルA1(固定)に、BはセルC3(固定)に、Cは、セルE5にそれぞれ決められたセルにコピーされる。 (2)sheet1にコンボボックスにて○を入力する。○はセルA1(固定)に、△は、セルC3(固定)に、×は、セル(E5)にそれぞれ決められたセルにコピーされる。 (1)と(2)のコピーされる場所は、同じ場所です。 というようなものをExcelのVBAにて作成したいのですが、VBAは、あまりよくわかりません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- AccessVBAで複数条件で検索する方法
お世話になります。 複数条件での検索をしたいのですが、分類をコンボボックスから選び、日付をテキストボックスに 2002/08/01 ~ 2002/08/14 と入力してボタンを押すとサブフォームにその結果を出すようにしたいです。 可能でしょうか?? 宜しくお願いします!!
- 締切済み
- Visual Basic
- VBAマクロ・・同一セルの検索と検索したセルの操作
VBAマクロ・・同一セルの検索と検索したセルの操作 VBAのほぼ初心者です。 決められたセル(たとえばE100)に入力された文字列と同一の文字列を その列内の上(E1~E99)で検索する。 そして、検索できれば(たとえばE30)そのセルがある行(行30)を削除する。 なお、複数検索されれば、検索されたすべてのセルに対応する行を削除する。 というようなことをVBAのマクロで作成したいです。 FindメソッドとDo..Loop Whileを使って試行錯誤してみたのですが、うまくいきません。。 いい方法があれば、是非教えていただきたいです。 どうぞよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルでの検索について
初めて質問させていただきます。 エクセルシートに1万個程度の番号が 縦(行)に並んでいます。なお、番号はそれぞれ異なります。 あるフォームに日付と10個の異なる番号を入力すると、 エクセルシートから合致する番号を検索し、 エクセルシートの一行目に日付が自動的に入力され、 その行を色塗りしたいと考えております。 これをVBA(マクロ)にて作成したいのですが、 初心者なのでどのようにやればよい分かりません。 どうか教えていただけないでしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 【エクセルVBA】条件に一致した項目の数を別シートへ表示
はじめまして。VBA初心者です。 sheet1のA列に日付(一ヶ月分)、B列に製品名 sheet2のB2セル~AF1セルに日付、A2セル~A10セルに製品名 が入っています。 Sheet1の製品名の数を日付ごとにカウントして、その結果をSheet2の 各日付へ入力するVBAを作成したいのですが、うまくいきません。 分かり難い質問で、大変申し訳ありませんが、どなたか教えて下さい。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
早速ありがとうございます。 検索対象の生産番号・日付は1bookで1つしかありませんと書きましたが、生産番号はsheet1内に複数ある場合があります。しかし他sheet2,3とかには存在しません。日付はsheet1に存在すると、他シートには存在しません。 生産番号が1sheetに複数存在する場合は、同じ生産番号でも型番が異なります。 フォームは、コンボボックスです。 よろしくお願いします。