- ベストアンサー
マッチングの簡素化
- エクセルVBAで予想数字のマッチングと結果出力を自動化する方法を教えてください。
- ナンバーズ３やナンバーズ４の予想をする際に、エクセルVBAを使用して予想数字のマッチングと結果のみを表示するシートを作りたいです。
- 予想数字をシートに貼り付ける作業以外は自動化し、予想数字のマッチング結果のみを表示するエクセルVBAのコーディング方法を教えてください。
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは！ すべて自動とはいきませんが・・・ VBAでの一例です。 ↓の画像でA列が「予想数字」・B列に予想数字をコピー＆ペーストするとします。 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 （Alt+F8キー → マクロ → マクロ実行です） Sub test() 'この行から Dim i, j As Long Application.ScreenUpdating = False j = Cells(Rows.Count, 3).End(xlUp).Row If j > 1 Then Range(Cells(2, 3), Cells(j, 3)).ClearContents End If For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If WorksheetFunction.CountIf(Columns(2), Cells(i, 1)) Then Cells(Rows.Count, 3).End(xlUp).Offset(1) = Cells(i, 1) End If Next i Application.ScreenUpdating = True End Sub 'この行まで ※ コマンドボタンを使えば、クリックするだけでマクロを走らせることが可能です。 ご希望の方法でなかったらごめんなさいね。m(_ _)m
その他の回答 (3)
- 某HN クロメート(Chromate)（@CoalTar）
- ベストアンサー率40% (705/1742)
＞これまでは、VLOOKUP等の関数を使用してましたが、 ＞毎回、毎回セルに予想数字を貼りつけて、関数も貼りつける作業が ＞面倒くさくなり、エクセルでシート予想数字の貼り付け後は、 関数を張り付ける作業をマクロの自動記録で記録しても良いと思います。 その後の作業も記録してみてください。 [Alt]+[F11]でプログラムの中身を見てみましょう。 標準モジュール内です。(記録中も見られます)
お礼
回答ありがとうございます。 マクロの自動記録の方法ですか、 思いつきませんでした。 ありがとうございます。
- imogasi
- ベストアンサー率27% (4737/17068)
丸写しすれば仕舞いのような解答は出ているようだが、こんなので、出来ました、といっていると進歩しないよ。 だからコードは書かない。１つの方法でも自力でやって見ては。 ーー 例えば 色々なロジックがあるが （１）探す対象 Ｓｈｅｅｔ１ のＡ列 （２）探す数字 Ｓｈｅｅｔ２ のＡ列 として、 （１）Ｓｈｅｅｔ１のＡ列のセル範囲Ｒａｎｇｅが、その作業の都度変わるようだから、最終行(d1)を掴み（このコードぐらいわかるだろう） Ｒａｎｇｅ（”Ａ２：Ａ" &d1)でセル範囲が出来る （２）Ｓｈｅｅｔ２のデータも同じく最終行をd2に掴む。 そしてＳｈｅｅｔ２の２行目から最終行までの各セルをＦｏｒ Ｎｅｘｔで繰り返し検索語にする。 （３）ＦｉｎｄメソッドでＳｈｅｅｔ２の語（１セルの値）でＳｈｅｅｔ１のＡ列を検索する。 （４）見つかればそのＢ列にサインとして１でも立てる。 （５）Ｓｈｅｅt２の最終行までＦｉｎｄを実行して、Ｓｈｅｅｔ１でＢ列に１となってない行を、捜してどこかへ抜き出す ーー （６）そもそも１件の検索はマクロの記録をやってみよ。どういうコードかすぐ判る。これもやっていないで質問しているのか。 （７）見つからない場合の処理は，Ｇｏｏｇｌｅででも「ＶＢＡ Ｆｉｎｄ 見つからない」で照会でもしたか。 http://officetanaka.net/excel/vba/cell/cell11.htm ほか多数の記事があるじゃないか。 ＝＝＝ ほかのロジックだが、両者ソートして、マッチングのアルゴリズムというのを使う方法（オフラインバッチ処理でよく使われる）があるが、質問者には説明が長くなるので略。わたしも回答に使ったことがあるが。 ＝＝＝ 質問は情況を説明するので精一杯のようだ。 ロジックを自分で考え出す訓練をしないと、ＶＢＡの文法やメソッドを覚えても先に進めない。 これは経験を積まないと、整理して解説した書物は見つけにくいのだ。 幼稚なロジックでも自分で１方法なり、数日掛けて考えること。ＷＥＢに直ぐ質問してはだめ。
お礼
いつもご指導ありがとうございます。 確かにスキル以上の事を質問していて 回答がすぐ得られるので満足している所はあります。 それは、予想数字を抽出（決定）するための補助として エクセルを使用するという考えがあるので、 １から分厚いエクセルの本を見ても自分がやりたい事がそのまま載っている 訳でなくロジックを１つずつ考えていても終わりが見えないため、 それなら皆様に質問して得た回答で得たい結果が得られればそれで良いと思ってます。 なので、今後もこのような質問はすると思いますがご容赦下さい。 しかし、ご指摘の通り単純なロジックから考える事の積み重ねである事は解っています ので、こちらは、亀のペースで勉強してゆきます。
- MackyNo1
- ベストアンサー率53% (1521/2850)
マスターシートのA列のデータと別シートのA列に貼り付けたデータで重複するデータを抜き出すなら以下のような関数で表示できます。 =IFERROR(SMALL(IF(COUNTIF(マスター!$A$1:$A$1000,Sheet2!$A$1:$A$1000),$A$1:$A$1000),ROW(A1)),"") 配列数式ですので入力後Ctrl+Shift+Enterで確定して適当数オートフィルコピーしてください。 再計算に時間がかかる場合は、Excelのオプションの詳細設定から計算方法を「手動」にして、必要な時に（データをコピー後に）F9キーを押すことで再計算した方が動きが軽くなるので良いと思います。
お礼
いつもお世話になります。 早速のご回答ありがとうございます。 ちょっと試してみます。
関連するQ&A
- エクセルでマッチングが上手く行きません
エクセル2007を使っています。 マッチングをしても「0」としか表示されません。 何が原因でしょうか？ マッチングに使うマスターは、同じブック内にあります。 他の作業でも使っているマッチング用の式を修正して使用しています。 マッチングは、全て数値です。
- ベストアンサー
- その他(業務ソフトウェア)
- EXCEL 複数シートにおけるマッチング処理
悩んでいます、添付画像のような3つのEXCELファイルがあり、結果1のような表にマッチング処理したいのですがなかなか考えがまとまりません。おそらく関数では難しくVBAで処理するのだろうかと思いますが経験が浅く手詰まり状態です。恐れ入りますがご指南のほどよろしくお願いします。 １．A列がキー項目となります。 ２．表１、２、３とも列数は固定です。 ２．表１は行が一意です。（マスター） ３．表２、３は行が複数行存在します。（必ず１行以上は存在します） ４．キー項目に関して表２、３は行数がイコールの場合もありますし異なる場合もあります。 ５．上記４の場合、結果１または結果２のように表示したいのです。 ５番の要件で苦慮しています。どうかよろしくお願い致します。
- 締切済み
- その他（プログラミング・開発）
- エクセルVBA 初期処理
エクセルVBA初心者の中年オヤジです。 あるエクセルブックを開く毎、不必要なシートを削除するための方法を、出来るだけ具体的に教えて下さい。 あるエクセルブックに「検索条件入力・名称マスタ・検索結果」の固定３シートがあります。 検索条件を入力し検索ボタンを押下する事で、別シートから該当データを抽出するのですが、検索条件を変更し検索ボタンを押下する毎に「結果シート」が増えて行く仕様としています。 抽出部分や結果シートのコピー部分の作成、及びクリアボタンを押下した場合の「結果」シート削除のプログラミングは完了しましたが、このエクセルブックを開いた時に、初期処理として全「結果シート」を削除するにはどの様にしたら良いのか教えて下さい。 ブック利用者が「結果シート」を残したまま保存した場合を考慮し、初期処理としてこの全「結果シート」を削除したいのです。 宜しくお願い致します。
- 締切済み
- その他MS Office製品
- 抽選結果の桁別ビジュアル化
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじのナンバーズ３、ナンバーズ４の抽選結果をエクセルに登録しております。 【抽選結果（ナンバーズ３）】 313 457 123 【抽選結果（ナンバーズ４）】 1133 8415 5551 上記結果を見やすくするために桁別に３つに0～9にわけてその桁の抽選結果数字に該当すれば 「○」をつける方法が知りたいです。 また、桁毎に前回の抽選数字と今回の抽選数字を「結線」する方法もあれば教えてください。 【抽選結果（ナンバーズ３）】 N3 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 313 ○ ○ ○ 457 ○ ○ ○ 123 ○ ○ ○ 【抽選結果（ナンバーズ４）】 N4 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 1133 ○ ○ ○ ○ 8415 ○ ○ ○ ○ 5551 ○ ○ ○ ○ 使用しているエクセルは2007です。 エクセル操作またはＶＢＡのソースで回答願います。 以上
- ベストアンサー
- オフィス系ソフト
- ＶＢＡでスケジュール表を作成しています
業務短縮化のために、ＶＢＡを使って社内のスケジュール管理ファイルを制作しています。 つくろうとしているのは、こんな感じです。 １、まず、罫線だけのマスター用紙があります。 ２、別シートに設置した「スケジュール作成」ボタンをクリックすると、マスター用紙がコピーされ、新しいシートが作成されます。 この新しいシートの「Ａ」列に、自動的にカレンダーが入力されます。 この２の部分をＶＢＡで自動化したいと考えています。 すでにボタン押下→シートをコピーするところはできました。 カレンダーを作るには、月の最終日の日にちと曜日をとればいいのかな？とか予想はしているのですが。。。 手掛かりなどありましたらお願いします
- ベストアンサー
- オフィス系ソフト
- ＶＢＡによりマッチング操作
ＶＢＡによりマッチング操作 基本的な知識がないので、まずはそこが課題ですが、ＶＢＡのコードとしてはどんな形になりますか。 まったくの初心者です (1)２つのファイルがあり共通するキーを照合することにより得られたマスターファイルから得られた係数をもとにトランザイクションデータの各列の係数と掛け算をして、その結果をトランザクションデータのＡ列からＧ列とともに別のファイル（シート１）に書き込む。 (2)アンマッチデータは結果の書き込まれたファイルのシート２にトランザクションデータの内容をそのまま書き込むというものです。 (3)トランザクションデータのデータ数は未知ですが、列数は定まっています。 やりことのあらましは以上のようなことです。
- ベストアンサー
- Visual Basic
- VLOOKUPで入力結果をマッチングする方法
こんにちは！ 明日仕事でEXCELのVLOOKUPを使って一人でマッチング作業をしなければならなくなったのですが、何をどうすればいいのか全然わからないので、助けてください！！ 今日までにバイトの人達２人が同じフォーマットのEXCELのシートにそれぞれに入力してくれていて、明日私のところにそれぞれのシートが届きます。で、２人の入力が間違っていないかどうかをVLOOKUPをかけてマッチングしてほしい、という指示です。 一人で作業をするので周りに聞ける人もいないし、どうしよう。。。（涙）ヒントだけでもけっこうですので、回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 婚活パーティーのマッチング関数について
お世話になります。 婚活パーティーで、男女それぞれ第１～第３希望までお相手を選んでもらいます。そして１位でも２位でも３位でも関係なく、誰と誰がマッチングしたかを関数で割り出したいです。添付のようなエクセルシート（例）ですが、関数とどの行と行を選ぶなど、初心者でもわかるように教えていただけませんでしょうか。同じ質問も検索に出てくるのですが、なかなか理解できず…どうかどうかよろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excel VBA ダイアログシートのボタン操作
お世話になります。 宜しければ、お力をお貸し下さい。 現在、業務にて、ExcelのVBAをやっておりますが、VBAが初めてであること、ダイアログシートについての情報がインターネット等で少ない事から、作業が難航しております。 作業環境は、WindowsXP+Excel2003です。 ダイアログシートにて表示させたダイアログのボタンを押下した後に、押下したボタンを一時的に無効にしたいと考えております。 しかし、下記のようなソースを組みましたが、成功致しませんでした。 Sub Auto_Open() ThisWorkbooks.Dialogsheets(シート名).Show() '…(1) End Sub Sub Button1_Click() 'ボタン押下時に呼ばれる ThisWorkbooks.Dialogsheets(シート名).Buttons(ボタン名).Enabled = False '…(2) '以下、処理が続く End Sub 簡単ではありますが、一部を抜き出しました。 上記を動かしても、ボタンが無効になりませんでした。 また、(2)を(1)の手前にすると、ボタンが無効になったのを確認致しましたので、構文自体は間違いではないと思うのですが… あと、自宅のPCにはExcelがなく、確認が出来ません。 確認が出来るのは、月曜日になってしまいますが、どうかお力をお貸し下さい。 宜しくお願い致します。
- 締切済み
- Visual Basic
- マッチング処理（１：N)
はじめまして。cobol(easy)でマッチングしたいのですが、うまくいきません.jclデータなので ファイル内に重複はあります（ソートしても結果うまくいかず） 下記のようにＰＧしてます。 マスタは修正はいることはないので 1:N N:1マッチングです。 大小（＝,＜,＞）比較ではうまくいかないので (=と^=)でマッチングしないとだめでしょうか？ cobol、ｖｂａの命令でも意味わかりますので ロジックのアドバイスいただけないでしょうか？ よろしくお願いします。 ＝＝＝＝＝＝ＰＧ＝＝＝＝＝＝＝＝＝＝＝ 初期リード（マスタ、トラン） メイン処理 do key1 ^= 999999 and key2 ^= 99999 key1 < key2(マスタ:トラン） マスタ出力 マスタ読み込み key1 > key2(マスタ:トラン） トラン出力 トラン読み込み key1 = key2(マスタ:トラン） do key1 = key2 ← key1 not key2 で抜ける マスタリード end-do トランリード end-do ＝＝＝＝＝＝＝データ＝＝＝＝＝＝＝＝＝＝＝ 変更前（マスタ） 0001 //d0001 dd ssssssssss 0002 //dddd2 dd dddddddddd 0003 //d00003 dd 1111111111 0004 //d55454 dd 4444444444 -------------------------------- 変更後（トラン） 0001 //d0001 dd ssssssssss 0002 //dddd33 dd aaaaaaaa 0003 //d00099 dd 88888888 0005 //dd0000 dd 444444444 結果 -------------------------------------- 0002,0003のレコードは変更されている 0005は追加されている
- ベストアンサー
- その他（プログラミング・開発）
お礼
いつもお世話になります。 早速のご回答ありがとうございます。 私が意図していた形の回答を頂き嬉しいです。 さっそく、試してみます。