Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
14064 / 76738 ←次へ　｜　前へ→
【68174】Re:VLOOKUPを使ったデータの参照
発言  UO3  - 11/2/9(水) 11:43 -
引用なし
パスワード
   ▼ケメ子 さん：

こんにちは

う〜ん・・・理解力が乏しく、まだクリアになりません。
ちょっと「妥協案」
以下に、コードサンプルをアップします。
・BookA.xlsのSheet1の5行目から始まるB列、C列にリストがあります。（B列がキー)
・BookB.xlsのSheet1の5行目から始まるD列にコードがあります。このコードを
　BookA.xlsのリストでVLOOKUPをかけ結果をBookB.xlsの5行目から始まるE列に表示します。

このサンプルをご利用頂き、現在の実際のシートレイアウトにあわせて、ちょっと
がんばってコードを作り、行き詰ったら、それをアップいただけませんか？

Sub Sample()
　　Dim tblAddr As String
　　Dim z As Long
　　
　　With Workbooks("BookA.xls").Sheets("Sheet1")
　　　　z = .Range("B" & .Rows.Count).End(xlUp).Row
　　　　If z >= 5 Then
　　　　　　tblAddr = .Range("B5:C" & z).Address
　　　　End If
　　End With
　　
　　With Workbooks("BookB.xls").Sheets("Sheet1")
　　　　With .Range("D5:D" & .Range("D" & .Rows.Count).End(xlUp).Row).Offset(, 1)
　　　　　　If z >= 5 Then
　　　　　　　　If tblAddr = "" Then
　　　　　　　　　　.Formula = "#N/A" 'すべて#N/A
　　　　　　　　Else
　　　　　　　　　　.Formula = "=VLOOKUP(D5,[BookA.xls]Sheet1!" & tblAddr & ",2,FALSE)"
　　　　　　　　　　.Value = .Value
　　　　　　　　End If
　　　　　　End If
　　　　End With
　　End With
　　
End Sub
0 hits
▼ 【68149】VLOOKUPを使ったデータの参照 ケメ子 11/2/7(月) 0:02 質問
【68152】Re:VLOOKUPを使ったデータの参照 UO3 11/2/7(月) 11:14 発言
【68162】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/7(月) 22:43 発言
【68164】Re:VLOOKUPを使ったデータの参照 UO3 11/2/8(火) 12:45 発言
【68173】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/8(火) 22:04 発言
【68174】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 11:43 発言≪
【68175】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 12:12 発言
【68176】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 12:25 発言
【68177】Re:VLOOKUPを使ったデータの参照 UO3 11/2/9(水) 13:09 発言
【68180】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/9(水) 22:11 発言
【68182】Re:VLOOKUPを使ったデータの参照 UO3 11/2/10(木) 12:26 回答
【68183】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/10(木) 23:35 発言
【68232】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/16(水) 23:15 質問
【68237】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 10:29 回答
【68240】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 10:43 発言
【68243】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 11:02 回答
【68254】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/17(木) 22:39 発言
【68255】Re:VLOOKUPを使ったデータの参照 UO3 11/2/17(木) 23:08 発言
【68259】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/18(金) 21:14 発言
【68303】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/22(火) 0:44 質問
【68306】Re:VLOOKUPを使ったデータの参照 UO3 11/2/22(火) 9:28 発言
【68307】Re:VLOOKUPを使ったデータの参照 UO3 11/2/22(火) 9:50 発言
【68308】Re:VLOOKUPを使ったデータの参照 UO3 11/2/22(火) 10:27 発言
【68314】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/23(水) 0:19 発言
【68315】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 13:32 発言
【68316】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 13:36 発言
【68317】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 13:38 回答
【68321】Re:VLOOKUPを使ったデータの参照 UO3 11/2/23(水) 22:04 発言
【68322】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/23(水) 22:04 質問
【68331】Re:VLOOKUPを使ったデータの参照 UO3 11/2/24(木) 11:46 発言
【68333】Re:VLOOKUPを使ったデータの参照 UO3 11/2/24(木) 11:47 発言
【68346】Re:VLOOKUPを使ったデータの参照 ケメ子 11/2/24(木) 22:46 発言
【68421】Re:VLOOKUPを使ったデータの参照2 ケメ子 11/3/3(木) 20:15 質問
【68425】Re:VLOOKUPを使ったデータの参照2 UO3 11/3/4(金) 12:32 回答
【68426】できました！！　ですが・・・ ケメ子 11/3/4(金) 20:31 質問
【68429】Re:できました！！　ですが・・・ UO3 11/3/4(金) 21:51 発言
【68431】Re:できました！！　ですが・・・ UO3 11/3/5(土) 16:58 回答
【68432】Re:できました！！　ですが・・・ ケメ子 11/3/5(土) 18:53 発言
【68441】プロシージャの追加場所 ケメ子 11/3/7(月) 21:21 質問
【68442】Re:プロシージャの追加場所 UO3 11/3/7(月) 21:59 回答
【68479】＼(^o^)／ ケメ子 11/3/9(水) 20:58 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
14064 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free