マクロをすっきりさせたい・・・
BY mimomosan / DATE 2010-05-31 15:59:41 / ID 9678 / VIEW 1657
マクロをすっきりさせたい・・・
いつもお世話になっております。
下記、マクロを組んだのですが、
簡潔にまとめるには、どうしたら良いでしょうか・・・
宜しくお願い致します。

Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000")
ThisWorkbook.Activate
列番号 = 7
検索値 = (Worksheets("B").Range("B24"))
Range("D14").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)

Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000")
ThisWorkbook.Activate
列番号 = 7
検索値 = (Worksheets("B").Range("B25"))
Range("D15").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)

Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000")
ThisWorkbook.Activate
列番号 = 7
検索値 = (Worksheets("B").Range("B26"))
Range("D16").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
mc-aumscさんからのお返事です
ID:9679 POST:2010-05-31 15:59:49
行番号を変数にしてFor～Nextでループさせてみるのはいかがでしょうか？
以下のような感じで…。


Dim I As Integer
For I=14 To 16
Set 範囲=Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000")
This Workbook.Activate
列番号=7
検索値=(Worksheets("B").Cells(I+10,2))
Cells(I,4).Value=WorksheetFunction.VLookup(検索値,範囲,列番号,False)
Next I



たぶん、これで動くと思います。
ミスってたらごめんなさい。
by モアレ 2010-08-19 22:00:12
チョコットランド 反射 4
　# チョコットランド 壁抜けチート 4
　# 姫とボイン 画像掲示板 3
　# チョコットランド 反射 tempest 3
　# チョコットランド うさみみハリケーン 連射 3
　# オナホSEX画像掲示板 2
　# チョコットランド 反射 ツール 2
　# チョコットランド 反射 やり方 2
　# チョコットランド　うさみみハリケーン　敵変え 2
　# チョコットランド増殖 2
　# チョコットランド 壁抜け 2
　# チョコットランド ミラーマン 2
　# チョコットランド ミラーマン 反射 2
　# チョコットランド チート 2
　# チョコット　反射 2
　# チョコットランド olly 使い方 2
　# チョコットランド olly dbg 1
　# チョコットランド　ミラーマン 1
　# チョコットランド 攻撃反射 1
　# チョコットランド 魔法反射やり方 1
　# http://2pls.net/De/log5/27853.php 1
　# チョコラン アイテムチート 1
　# チョコットランド無敵 1
　# チョコットランド反射ツール 1
　# チョコットランド 増殖 1
　# チョコットランド 無敵 cmoc 1
　# チョコットランド　見えない無敵 1
　# olly 解析 1
　# 不明 1
　# チョコットランド　チート　作り方 1
　# チョコットランド　改造コード 1
　# チョコトランド cmoc無敵 2010 1
　# チョコットランド 反射 ミラーマン 1
　# チョコットランド無敵2010 1
　# チョコットランド 見えない無敵 1
　# チョコットランド チート　 1
　# チョコットランド 無敵 升 1
　# チョコットランド olly　dbg 1
　# チョコットランド ミラーマン 使い方 1
　# チョコットランド ウサミミ　エロ 1
　# チョコットランド まだ権利がないため拾えません 1
　# cmoc?Ũ 1
　# チョコットランド改造ツール 1
　# チョコットランド 反射 tempest 使い方 1
　# チョコットランド 反射って？ 1
　# チョコットランド　うさみみハリケーン　無敵 1
　# チョコットランド 草化 やり方 2010 1
　# チョコットランド 無敵 1
　# リアルアーケードPro 1
　# チョコットランド無敵 見える 1
　# チョコットランド　tempest　反射 1
　# RA5 ブルホーン化 1
　# 反射チート 1
　# チョコットランド増殖の仕方 1