Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17167 / 76732 ←次へ | 前へ→

【65022】Re:おまけ。
発言  komo  - 10/4/2(金) 20:13 -

引用なし
パスワード
   ありがとうございます。
検索しまして、ご教示の内容を入れて、下記のような別のプロシージャーを組んでみたところ、なんとなく分かってきました。

相変わらずエラーになるのですが、第一引数の

.Cells("D2")

には、マクロを実行しているメインのブックを参照させたいのですが、
プロダクトマスターのブックを参照していまいた。
そうしますと、データは「文字列」になりますので、型が合わない
というエラーも納得です。
恐らくこの辺が怪しいかなと思います。

第一引数と、第二、第三引数の参照ブックが違う場合に
どのように記載すればいいのかということを少し研究してみます。

取り急ぎ、ご報告させて頂きます。


Dim Results As Variant
 
  'ファイルパス
  Dim filePath As String
  filePath = ThisWorkbook.Path & "\pm.xls"
  
  'Excelブックオブジェクト
  Dim book As Workbook
  Set book = Workbooks.Open(filePath) '他Excelブックを開く
  
  'レコードの行数を取得する pm側
  Dim rowCountpm As Long
  rowCountpm = book.Sheets(1).Range("A2").End(xlDown).Row
  
  'レコードの行数を取得する Main側
  Dim rowCountmain As Long
  rowCountmain = ThisWorkbook.Sheets(3).Range("A2").End(xlDown).Row
 
 
Results = Application.WorksheetFunction.VLookup(.Cells("D2"), _
book.Sheets(1).Range(book.Sheets(1).Cells("A2"), book.Sheets(1).Cells("V", rowCountpm)), 22, False)

  
If Not IsError(Results) Then
  MsgBox Range("D2").Value & " was found, results: " _
   & Results
   
Else

  MsgBox "Not found"
 
End If
1 hits

【65005】Vlookupの結果がゼロになってしまいます komo 10/4/1(木) 17:00 質問
【65006】Re:Vlookupの結果がゼロになってしまいます Jaka 10/4/1(木) 17:25 発言
【65008】おまけ。 Jaka 10/4/1(木) 17:29 発言
【65011】Re:おまけ。 komo 10/4/1(木) 17:46 発言
【65018】Re:おまけ。 Jaka 10/4/2(金) 9:49 発言
【65020】Re:おまけ。 komo 10/4/2(金) 10:22 発言
【65021】Re:おまけ。 Jaka 10/4/2(金) 10:32 発言
【65022】Re:おまけ。 komo 10/4/2(金) 20:13 発言
【65036】Re:おまけ。 Jaka 10/4/6(火) 9:34 発言
【65037】Re:おまけ。 komo 10/4/6(火) 9:40 発言

17167 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free