Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31954 / 76734

←次へ　｜　前へ→


	【50021】Re:VLOOKUPでエラー値のセルをクリアに･･･

syugyoutyu - 07/7/4(水) 9:45 -


	引用なし

	パスワード

▼（。。ｊ）さん：

私は、ここに回答が出来るほどのレベルではありませんが、マクロを勉強中ならVLooK UP　もマクロでやってみたらどうでしょう。つい最近、ここでのレスを参考に作ったものです。

Sub VLookの代わり()
Dim sh1　　　　 As Worksheet　　'Sheets("Sheet1")VLooK UP を入れるシート
Dim sh2　　　　 As Worksheet　　'Sheets("Sheet2")データが入ってるシート
Dim dsuu1　　　 As Long　　　　 'Sheets("Sheet1")が何行あるか
Dim dsuu2　　　 As Long　　　　 'Sheets("Sheet2")が何行あるか
Dim kensaku　　 As String　　　 '検索値
Dim xyz　　　　 As Range

Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")

'Sheets("Sheet1")が何列あるか（検索値が何点あるか）
With sh1.UsedRange
　　dsuu1 = .SpecialCells(xlLastCell).Row
End With

'Sheets("Sheet2")が何列あるか
With sh2.UsedRange
　　dsuu2 = .SpecialCells(xlLastCell).Row
End With

For i = 2 To dsuu1
　　kensaku = sh1.Range("A" & i)　　　’kensakuの値のループ開始
　　　　For y = 1 To dsuu2　　　　　　’kensakuの値を探すループ開始
　　　　Set xyz = sh2.Range("A" & y)
　　　　　　If kensaku = xyz Then　　　’見つけたら
　　　　　　sh1.Range("B" & i) = xyz.Offset(0, 1)
　　　　　　sh1.Range("C" & i) = xyz.Offset(0, 2)
　　　　　　sh1.Range("D" & i) = xyz.Offset(0, 3)
　　　　　　End If　　　　　　　　　　
　　　　Next　　　　　　　　　　　　　’kensakuの値を探すループ終了
Next i　　　　　　　　　　　　　　　　’kensakuの値のループ終了
MsgBox "在庫数反映完了"
End Sub

こんなコードです。一応出来てますが私も勉強中です。どなたか、もっと良いコードが有れば教えて下さい。

5 hits

▼

【50003】VLOOKUPでエラー値のセルをクリアに･･･ （。。ｊ） 07/7/3(火) 11:16