エクセルの学校：全文検索：Hyper Estraier：別のブックコピーオブジェクト明示

Results of 1 - 1 of about 11 for 別のブックコピーオブジェクト明示 (0.020 sec.)

別のブック (602), コピー (26158), オブジェクト (4985), 明示 (842)

[[20220501162306]]: #score: 11252; @digest: ad9d8e63eceaf16cdda48de5eb3e28ff; @id: 91173; @mdate: 2022-05-02T02:35:03Z; @size: 5042; @type: text/plain; #keywords: serchkey (33837), outputrange (29052), serchrange (24754), 囲今 (23246), 値今 (21016), 今開 (13657), ト?@ (13187), 索← (12932), 別ブ (6690), b1000 (6409), 力範 (4191), トミ (4190), ケイ (3769), る別 (3649), ド表 (3358), トdi (2838), ブシ (2508), a1000 (2162), ブッ (1869), プッ (1710), 索値 (1646), screenupdating (1617), activesheet (1550), クテ (1282), 明示 (1237), ィブ (1177), 索範 (1148), 検索 (1139), 研究 (1083), thisworkbook (1066), アク (1050), クの (983); 『検索して取得』（ケイ）
よろしくお願いします。初心者です。開いている別ブックのシートに値をVlookupのように入れたいのですが上手くいきません。ご教授お願いします。 Sub 検索() Dim SerchKey As Range '検索値今開いている別ブックのシート Dim SerchRange As Range '検索範囲 Dim OutputRange As Range '出力範囲今開いている別ブックのシート Dim i As Long Set SerchKey = ActiveSheet(Range("A2:A1000") Set SerchRange = Worksheets("Sheet1").Range("A2:B1000") Set OutputRange = ActiveSheet(Range("A1:A1000") Application.ScreenUpdating = False For i = 1 To SerchKey.Rows.Count OutputRange(i, 1) = WorksheetFunction.Vlookup(SerchKey(i, 1), SerchRange, 2, False) Next Application.ScreenUpdating = True End Sub ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- ＞Dim SerchKey As Range '検索値今開いている別ブックのシート＞Dim OutputRange As Range '出力範囲今開いている別ブックのシート＞Set SerchKey = ActiveSheet.Range("A2:A1000") '検索値今開いている別ブックのシート＞Set OutputRange = ActiveSheet.Range("A1:A1000") '出力範囲今開いている別ブックのシート何がしたいん? ＞Set SerchRange = Worksheets("Sheet1").Range("A2:B1000") 別ブックかThisWorkbookか、どっちやねん（通行人） 2022/05/01(日) 20:59 ---- すいません。よろしくお願いします。 ?@と?Aの2つのブックがあります。 Dim SerchKey As Range '検索値（B列）検索←別ブックのアクティブシート?@ Dim OutputRange As Range '出力範囲（A列）コード表から取り出し←別ブックのアクティブシート?@ Dim SerchRange As Range '検索範囲はマクロが入っているブックのシートSheet1にコード表がある ?A 別のブックのアクティブシート?@ シート1にコード表が入っているマクロブック?A A B A B ああああいい ↑ 「いい」と入れたいです。（ケイ） 2022/05/01(日) 23:01 ---- マルつきの数字は文字化けします。もう一度投稿してください。（プレビューを活用してください。） SerchKeyもOutputRangeも同じA列です。なにか特別な意図があるんですか? 普通は上書きしないと思うが。 SerchRangeには、ThisWorkbookというブックの指定をすべき。また、 ActiveSheet( という書き方はあり得ない。投稿上のインプットミスなのか。実際の動かしたコードをコピーペイストしたらどうか。あなたのインプットミスの検証はしたくない。（GW） 2022/05/01(日) 23:28 ---- >Dim SerchKey As Range '検索値（B列）検索←別ブックのアクティブシート?@ 参考に Sub 検索2() Dim c As Range, ret As String On Error Resume Next Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Sheet1") For Each c In ActiveSheet.Range("B2:B1000") ret = WorksheetFunction.VLookup(c.Value, .Range("A2:B1000"), 2, False) If Err Then ret = "該当なし" Err.Clear End If c.Offset(, -1).Value = ret Next End With Application.ScreenUpdating = True On Error GoTo 0 End Sub Sub 検索3() Dim c As Range, myR As Variant Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Sheet1") For Each c In ActiveSheet.Range("B2:B1000") myR = Application.Match(c.Value, .Columns(1), 0) If Not IsError(myR) Then c.Offset(, -1).Value = .Cells(myR, 2).Value Else c.Offset(, -1).Value = "該当なし" End If Next End With Application.ScreenUpdating = True End Sub （ピンク） 2022/05/01(日) 23:45 ---- ■1 一部書かれていたコメントが消されてしまいましたが、指摘があるようにタイプミスなのか、そうでないのかわかりませんが、提示のコードには構文エラーとなる部分があります。事情があるのかもしれませんが、私もVBE（エディタ）から直接コピペするようにすると、お互い無駄なキャッチボールが減ると思いますので当該を推奨します。 ■2 VBAの世界では基本的にブックやシート、セルなど（オブジェクトと言います）はきちんと明示すればいちいちアクティブにしたり選択したりする必要はありません。また、【標準モジュール】でシートの指定を省略した場合、【ActiveSheet】が指定されたものと見なされるルールです。よって、複数のブックやシートを相手にした処理を考えるならば、きちんと対象のオブジェクトを明示するようにすることをオススメします。 ■3 ＞Vlookupのように入れたい難しく考えずに、 (1)VLOOKUPを使った数式を目的のシートの【作業列】に書き込む (2)(1)をコピーしてA列に値のみ貼り付ける (3)作業列をクリアするといった処理を考えてみてはどうでしょうか? 例えばこんな感じです。 Sub 研究用() Stop 'ブレークポイントの代わり With ActiveSheet.Range("B2:B1000") .Formula = "=VLOOKUP(A2," & ThisWorkbook.Worksheets("シート1").Range("A2:B1000").Address(External:=True) & ",2,FALSE)" .Offset(, -1).Value = .Value .Clear End With End Sub 興味があれば、【ステップ実行】してどの命令が何をしているのか研究してみてください。（もこな2 ） 2022/05/02(月) 11:35 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202205/20220501162306.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ