出産前後の痔にはご注意!

保存しておいた名簿などを、エクセルで呼び出したいのですが、検索バーの履歴のように、横の下三角をクリックして複数の名簿などを呼び出すこが出来ますか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

#01です。

補足質問にお答えしたいのですが、何が分からないのか書いていただかないと補足のしようがありません。

#01ではご質問内容の代替案として、EXCELのシートに書かれている名前のEXCELファイルを起動する方法について説明したものです。手順をきちんと書いたつもりだったのですが、ちんぷんかんぷんでしたかw

VBA、マクロについて全く知識がないのであれば、しばらくこのカテをROMしてみることをお勧めします。また「ツール」→「マクロ」→「新しいマクロの記録」を動かしてみて、マクロとはどんなものかをつかんでみるのも良いと思いますよ。
    • good
    • 1
この回答へのお礼

ありがとうございました。
もう少し学習してチャレンジしてみます。

お礼日時:2006/08/18 21:15

フォームとVBAを使用すれば可能です。

もし質問者さまがフォームやVBAをある程度ご存じなら良いのですが、そうでないなら、このサイトのようなテキストだけでの説明は困難です。

そこでEXCELのシートにブック名を入力しておき、そのセルを選択した状態で起動すれば、ブックを開くマクロだけ説明します

任意のセルにブック名をフルパスで記述します(例、D:\名簿\小学校.xls )
そして標準モジュールシートに以下のマクロをペーストします。

Sub OpenBook()
 Workbooks.Open ActiveCell.Value
End Sub

標準モジュールシートとは「ツール」→「マクロ」→「新しいマクロの記録」を動かしたときに作成されるモジュールシートです。上記操作を行ってからAlt+F11でVBE画面を起動すると表示されていると思います。

ここまでの準備を行ってから名簿のファイル名を選択してAlt+F8、もしくは「ツール」→「マクロ」→「マクロの実行」でOpenBookマクロを起動してみて下さい。

この回答への補足

ありがとうございます。
もうしわけありませんが、よくわかりません。
時間のある時にでも、もう少しくわしく
おねがいしたいのですが。

補足日時:2006/08/17 22:51
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelのワークシート上に検索窓とボタンを作りたい

Excelのワークシート上に検索窓とボタンを作ろうとしています。
コントロールツールボックスからテキストボックスとコマンドボタンを1つずつ配置しました。ボタンを押すと検索用マクロが動作してテキストボックスに入力した文字を別のシート上から検索する仕組みです。計画どおりの動作をするようになったのですが、使い勝手についていくつか不満があるので解消したいのです。

1.検索窓のあるシートを開いたとき、カーソルがテキストボックス内にある状態にしたい。

2.カーソルがテキストボックス内にある状態でEnterキーを押すと、検索用マクロが動作するようにしたい。

3.カーソルがテキストボックス内にある状態でTabキーを押すと、コマンドボタンにフォーカスが移るようにしたい。

自分でも色々調べてみたのですが、どうにも分かりません。よろしくお願いします。

Aベストアンサー

こんにちは。
こういうのはユーザーフォームで作ったほうが簡単なんですが。

>1.検索窓のあるシートを開いたとき、カーソルがテキストボックス内にある状態にしたい。

これはシートのActivateイベントで、TextBox1.Activateするだけです。

>2.カーソルがテキストボックス内にある状態でEnterキーを押すと、検索用マクロが動作するようにしたい。

テキストボックスのKeyDownイベントで押されたキーを取得できる。
KeyDownイベントの引数KeyCodeには押されたキーコードが入りますからこれが13(=vbKeyReturn)だったら検索マクロを実行すれいいです。

>3.カーソルがテキストボックス内にある状態でTabキーを押すと、コマンドボタンにフォーカスが移るようにしたい。

同様にKeyDownイベントでTabが押されたことを取得して、コマンドボタンをアクティブにします。Tabキーのコードは9(=vbKeyTab)

Private Sub CommandButton1_Click()
検索マクロ
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then 検索マクロ
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then 検索マクロ
If KeyCode = vbKeyTab Then Me.CommandButton1.Activate
End Sub

Private Sub Worksheet_Activate()
Me.TextBox1.Activate
End Sub

こんにちは。
こういうのはユーザーフォームで作ったほうが簡単なんですが。

>1.検索窓のあるシートを開いたとき、カーソルがテキストボックス内にある状態にしたい。

これはシートのActivateイベントで、TextBox1.Activateするだけです。

>2.カーソルがテキストボックス内にある状態でEnterキーを押すと、検索用マクロが動作するようにしたい。

テキストボックスのKeyDownイベントで押されたキーを取得できる。
KeyDownイベントの引数KeyCodeには押されたキーコードが入りますからこれが13(=vb...続きを読む

Qエクセルで検索窓のようなものを作る

エクセルのシートにテキストボックスとコマンドボタンを配置してシート上のデータを検索することは可能でしょうか?今現在はB列に、複数の文字データが入力してあるので、オートフィルタのオプションから「を含む」で検索してます。
イメージとしては、オートフィルタのオプションから「を含む」を選んでから検索しなくても予めシートに用意してあるテキストボックスに検索したい文字を入れてボタンを押すと、オートフィルタで検索したときと同じような結果が得られるようにしたいと思ってます。

例)
 
 A    B    C    
--------------
1     血液型     

2      A

3      B

4      O

5      AB

上のような表があったとして、テキストボックスにAと入力してボタンを押すとB2とB5が表示されるようにしたと思ってます。いい方法があればご教示願います。

Aベストアンサー

シートにテキストボックス1個、コマンドボタン2個を配置します。
これは出来ますね。
コマンドボタン1個目は検索ボタン、2個目は解除ボタンです。

ツール→マクロ→Visual Basic Editorを選択して
シートに以下のコードを貼り付ける。

------------------ ここから下 ----------------------
Option Explicit

Private Sub CommandButton1_Click()
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd
End Sub

Private Sub CommandButton2_Click()
Selection.AutoFilter
End Sub
---------------- ここまで ------------------

エクセル2000です。
機能は「を含む」です。つまり文字列のどこにでもテキストボックスに入力した文字が含む行を表示します。
ではでは

シートにテキストボックス1個、コマンドボタン2個を配置します。
これは出来ますね。
コマンドボタン1個目は検索ボタン、2個目は解除ボタンです。

ツール→マクロ→Visual Basic Editorを選択して
シートに以下のコードを貼り付ける。

------------------ ここから下 ----------------------
Option Explicit

Private Sub CommandButton1_Click()
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAn...続きを読む

Q検索関数を使って検索窓を作成したいんですが・・・

検索関数を使って検索窓を作成したいんですが・・・

仕事でExcelを使っていて他の人に聞いても解決できなかったのでこちらでご質問させて頂きます。

質問内容は検索です。

データの範囲内にある数値、文字など、全てが対象になります。
条件は下記の通りです。
1.検索窓のようなセルに毎回関数など入力せず、文字や数字を入力するだけ。googleなどの検索窓と同じです。
2.検索結果は検索窓の右側に自動的に表示。検索内容を変更した時に自動的に反映される。
3.検索例
例1) 岡田 ←名前だけで検索
例2) 2010/01/20 ←日付で検索
例3) 岡田 A-102W ←名前と型番で検索
例4) 岡* ←ワイルドカードも使用可能
4.データ範囲はシートをまたぐこともあり。


つまり、A1というセルに文字を入力すればその文字に関する情報が一覧表示されるということです。

上記の条件でやりたいんですが、マクロやVBAなどは全くわかりませんので、
エクセルの関数のみで何とかならないでしょうか。

よろしくお願いします。

検索関数を使って検索窓を作成したいんですが・・・

仕事でExcelを使っていて他の人に聞いても解決できなかったのでこちらでご質問させて頂きます。

質問内容は検索です。

データの範囲内にある数値、文字など、全てが対象になります。
条件は下記の通りです。
1.検索窓のようなセルに毎回関数など入力せず、文字や数字を入力するだけ。googleなどの検索窓と同じです。
2.検索結果は検索窓の右側に自動的に表示。検索内容を変更した時に自動的に反映される。
3.検索例
例1) 岡田 ←名前だけ...続きを読む

Aベストアンサー

次のようにしてはどうでしょう。
1行目は項目名でA1セルはNo,B1セルは伝票No、C1セルは日付、D1セルは担当者、E1セルは型番とします。それぞれのデータが下方に入力されているとします。
F列は作業列でF2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(D2&E2=H$2,MAX(F$1:F1)+1,IF($H$4="","",IF(COUNTIF(INDEX(A:E,ROW(),$H$4),$H$2)>0,MAX(F$1:F1)+1,"")))
H1セルには検索と文字を入力しH2セルには検索したい伝票Noや日付、担当者名、型番などを入力します。なお、担当者と型番を組みで検索する場合には担当者名に続けて型番を入力します。
H4セルには次の式を入力します。
=IF(COUNTIF(A:A,H2)>0,1,"")&IF(COUNTIF(B:B,H2)>0,2,"")&IF(COUNTIF(C:C,H2)>0,3,"")&IF(COUNTIF(D:D,H2)>0,4,"")&IF(COUNTIF(E:E,H2)>0,5,"")
お求めの表はJ列からN列に表示させるとして1行目にはA1セルからE1セルまでの文字をコピーします。
J2セルには次の式を入力してN2セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。
=IF(COUNTIF($F:$F,ROW(A1))=0,"",INDEX($A:$E,MATCH(ROW(A1),$F:$F,0),COLUMN(A1)))
これでH2セルに検索したいデータを入力することで、該当するデータがJからN列に表示されます。
なお、作業に使われている列については非表示にする、セルについては文字の色を白にするなどのことをすればスッキリするでしょう。
シートが別にある場合にもご自分で工夫してみてください。

次のようにしてはどうでしょう。
1行目は項目名でA1セルはNo,B1セルは伝票No、C1セルは日付、D1セルは担当者、E1セルは型番とします。それぞれのデータが下方に入力されているとします。
F列は作業列でF2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(D2&E2=H$2,MAX(F$1:F1)+1,IF($H$4="","",IF(COUNTIF(INDEX(A:E,ROW(),$H$4),$H$2)>0,MAX(F$1:F1)+1,"")))
H1セルには検索と文字を入力しH2セルには検索したい伝票Noや日付、担当者名、型番などを入力します。なお、担当者...続きを読む

Qエクセルで重複しているデータの抽出のしかたを教えてください。

エクセルで重複しているデータを抽出したいのですが・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。
A列に日付 B列に企業名このデータが300件ほどあります。

 Å列      B列
1月 1日    AAAA社
1月 4日   BBBB社
1月 8日   CCCC社
2月 1日   BBBB社
2月20日    DDDD社
3月 2日   AAAA社

と、あるとしてB列の企業名が重複しているものを抽出したいのですが・・・。この場合 AAAA社とBBBB社ですが。
これを簡単に抽出する方法はないでしょうか?
教えてください お願いいたします。

Aベストアンサー

企業名がセルB2からセルB300まで入力されていると仮定します。
セルC2に IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルC300までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。
(注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。

QEXCELマクロで全シート対象の検索マクロを教えて

EXCELマクロで全シート対象の検索マクロを教えてください。
アプリケーションダウンロードタイプでも自作マクロの
どちらでもよいです。

Aベストアンサー

無力のため、いつもFind、FindNextには苦労するのですが、思い切ってあげてみます。VBAの経験がおありなら、欠点は修正してもらえるかもと思って。
標準モジュールに
Sub test01()
s = InputBox("検索文字列=")
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Set x = sh.Cells.Find(what:=s)
If x Is Nothing Then GoTo p1
MsgBox sh.Name & x.Address
b = sh.Name & x.Address
sh.Activate
x.Activate
'---
Do
Set y = sh.Cells.FindNext(after:=ActiveCell)
If y Is Nothing Then GoTo p1
If sh.Name & y.Address = b Then GoTo p1
MsgBox sh.Name & y.Address
y.Activate
Loop
p1:
Next
End Sub
シート名タブの左側のシートから探していきます。
上記はMggBoxで表示にしてますが、特別セルにセルアドレス値を出すなど適当に修正してください。
少数例でテストしてますが、十分テストしてください。

無力のため、いつもFind、FindNextには苦労するのですが、思い切ってあげてみます。VBAの経験がおありなら、欠点は修正してもらえるかもと思って。
標準モジュールに
Sub test01()
s = InputBox("検索文字列=")
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Set x = sh.Cells.Find(what:=s)
If x Is Nothing Then GoTo p1
MsgBox sh.Name & x.Address
b = sh.Name & x.Address
sh.Activate
x.Activate
'---
Do
Set y = sh.Cells.FindNext(after:=ActiveCell)
If y Is Nothing T...続きを読む

QExcelでの検索について

検索のウインドウですが
常に表示しておきたいのですが、最前面に出てしまうので邪魔な時が多いです。
クリップボードのように右端に表示させるか
ツールバーに表示させるようにする方法はありますでしょうか??

住所録と予約の注文をエクセルで管理しておりまして
固定電話に着信があった時にナンバーディスプレイで電話番号を確認し、電話番号の下4桁を検索してから電話を受けるとスムーズに注文がとりやすいのです。

邪魔にならなくてすぐに使えるように検索ウインドウを表示しておきたいのですが…

Aベストアンサー

こんばんは。

マクロで作ってみました。

>クリップボードのように右端に表示させるか
>ツールバーに表示させるようにする方法はありますでしょうか??

こんな感じでしょうか?
一通りの検索機能はあります。次の検索も可能です。

最初だけ、Auto_Open を実行してください。後は、設定したブックを開けば、検索ボックスが現れます。そのブックを閉じると、検索ボックスはなくなってしまいます。

設定されるまで、少し、時間が掛かります。

'標準モジュールに入れてお使いください。

Private c As Range
Private Fadd As String
Private Fdata As String

Sub Auto_Open()
 Call CommandMenu_Add
End Sub

Sub Auto_Close()
Dim myCBCtrl As CommandBarControl
 On Error Resume Next
 With Application.CommandBars("WorkSheet Menu Bar")
   .Controls("検索ツール(&K)").Delete
   .Controls("次検索...").Delete
 End With
 On Error GoTo 0
End Sub
'-----------------------------------
'実行メニュー
'-----------------------------------
Sub CommandMenu_Add()
Dim myCB As CommandBar
Dim cnt As Integer
Dim myCBCtrl As CommandBarControl
 On Error Resume Next
 '二重設定の回避
 With Application.CommandBars("WorkSheet Menu Bar")
   .Controls("検索ツール(&K)").Delete
   .Controls("次検索...").Delete
 End With
 On Error GoTo 0
 '
 Set myCB = Application.CommandBars("WorkSheet Menu Bar")
 cnt = myCB.Controls.Count
 With myCB.Controls.Add(Type:=msoControlEdit, Before:=cnt + 1, Temporary:=True)
  .Caption = "検索ツール(&K)"
  .TooltipText = "現在のシートの文字を検索します"
  .OnAction = "MyFind"
 End With
 With myCB.Controls.Add(Type:=msoControlButton, Before:=cnt + 2, Temporary:=True)
  .Caption = "次検索..."
  .OnAction = "myNextFind"
  .TooltipText = "次検索..."
  .Style = msoButtonCaption
 End With
Set myCBCtrl = Nothing
End Sub
Private Sub myFind()
Dim myFind As String
 myFind = Application.CommandBars("WorkSheet Menu Bar").Controls("検索ツール(&K)").Text
 Set c = Nothing
 Fadd = ""
 Fdata =""
 Set c = ActiveSheet.Cells.Find( _
 What:=myFind, _
 LookIn:=xlValues, _
 LookAt:=xlPart, _
 SearchOrder:=xlByRows, _
 SearchDirection:=xlNext, _
 MatchByte:=False)
      If Not c Is Nothing Then
       Fadd = c.Address
       Fdata = ActiveWorkbook.Name & "!" & ActiveSheet.Name
       c.Select
      Else
       Beep
     End If
End Sub
Private Sub myNextFind()
'次の検索
   On Error GoTo ErrHandler
   If c Is Nothing Then Exit Sub
   If Fdata <> ActiveWorkbook.Name & "!" & ActiveSheet.Name Then
     Fadd = c.Address
     Fdata = ActiveWorkbook.Name & "!" & ActiveSheet.Name
   End If
   Set c = Cells.FindNext(c)
   c.Select
   If c.Address = Fadd Then
     Beep
   End If
   Exit Sub
ErrHandler:
 MsgBox "検索できませんので、新たに、検索ボックスから実行してください。", vbInformation
End Sub

こんばんは。

マクロで作ってみました。

>クリップボードのように右端に表示させるか
>ツールバーに表示させるようにする方法はありますでしょうか??

こんな感じでしょうか?
一通りの検索機能はあります。次の検索も可能です。

最初だけ、Auto_Open を実行してください。後は、設定したブックを開けば、検索ボックスが現れます。そのブックを閉じると、検索ボックスはなくなってしまいます。

設定されるまで、少し、時間が掛かります。

'標準モジュールに入れてお使いください。

Privat...続きを読む

Qエクセルの検索方法教えてください!!

こんばんは、超エクセル初心者です。

エクセルの列に名前がずらっ~と並んでいるとして・・・、
例えばその中から”高橋さん”を見つけたい時の
方法を教えてください!!

一応、編集→検索で高橋と入力してみたのですが
”検索条件に一致するデータはありません”とメッセージが
でてしまいます。どうしてでしょうか??
詳しい方、教えてください、よろしくお願いいたします。

Aベストアンサー

その方法でまったく問題ないはずですが・・・

考えられる原因として、

1."高橋"という文字が Excelシート内にない。

2.検索オプションが「完全一致」になっている。
ようするに、セル内に "高橋さん" という文字列があったとして、検索するときに "高橋" と入力すると、完全に一致していないので、検索されないという状態になります。
一度、検索ウィンドウを開いて、「セル内容が完全に同一であるものを検索する」にチェックが入っていないか確認してください。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

QExcelで入力したデータを他のシートにも反映したいです

Excelでシートに入力したデータだけを他のシートに表示させたいです・・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。

シート1
 Å列    B列 C列    
キャベツ     玉   1
りんご     個   2
オレンジ    個
バナナ     本   10
きゅうり    本
ニラ     Kg  20.5

シート2
 Å列    B列 C列
キャベツ     玉  1
りんご     個  2
バナナ     本  10
ニラ     Kg  20.5

↑のように。シート1に入力したデータを入力した行ごと表示させたいです。

Aベストアンサー

》 なにぶん初心者なもので…

関数を一切使用しない方法(フィルタオプションの設定)をご紹介します。

Sheet1
1   A    B   C
1 品名   単位 数量
2 キャベツ 玉    1
3 りんご  個    2
4 オレンジ 個
5 バナナ  本   10
6 きゅうり 本
7 ニラ   Kg  20.5
8

添付図は[フィルタオプションの設定]を開始する Sheet2 を示しています。
([データ]→[フィルタ]→[フィルタオプションの設定]の手順を実行します)

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む


人気Q&Aランキング