Excel VBA質問箱 IV

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

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


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

41712 / 76732

←次へ　｜　前へ→


	【40099】Re:vlookupについて

ｋａｏｒｕ - 06/7/6(木) 21:52 -


	引用なし

	パスワード

▼Statis さん：
Statis さん　こんばんは
全体が下記のとおりです。
Sub 予定()
Dim SKGYOMAX As Long
Dim rret As Long
Dim wret As Long
Dim wk1 As Long
Dim wk3 As String
Dim wk4 As String
Dim wk5 As String
Dim wk6 As String
Dim wk8 As Variant
Dim KGYO As String
Dim KGYO2 As String
Dim wGYOMAX As Long
SKGYOMAX = Worksheets("予定").Range("D65536").End(xlUp).Row
wk3 = 0
KGYO = 5
KGYO2 = 5
Do Until KGYO > SKGYOMAX
rret = 8
wret = 6
wk1 = 4
Do Until rret > 38
　wk6 = Worksheets("実績表").Cells(KGYO2, 4)
　wk8 = Application.VLOOKUP(wk6, Worksheets("予定")
　　　　 .Range("B7:AJ55").Value, wk1, 0)
　On Error GoTo 0
　　　　　　
　Worksheets("実績表").Cells(KGYO2, wret).Value = wk8
　wk1 = wk1 + 1
　rret = rret + 1
　wret = wret + 1
Loop
KGYO = KGYO + 1
KGYO2 = KGYO2 + 2
Loop
　　
End Sub

>こんにちは
>
>変数に何が入っているか不明ですが？
>変数「Wk1」は数値なので宣言を変更
>
>Dim wk1 As Long
>Dim wk6 As String
>Dim wk7 As String
>Dim wk8 As Variant
>
>wk6 = Worksheets("実績表").Cells(KGYO2, 4).Value
>wk8 = Application.VLookup(wk6, Worksheets("予定").Range("B7:AJ55"), wk1, 0)
>　　　　　　
>Worksheets("実績表").Cells(KGYO2, wret).Value = wk8

>こんにちは
>
>変数に何が入っているか不明ですが？
>変数「Wk1」は数値なので宣言を変更
>
>Dim wk1 As Long
>Dim wk6 As String
>Dim wk7 As String
>Dim wk8 As Variant
>
>wk6 = Worksheets("実績表").Cells(KGYO2, 4).Value
>wk8 = Application.VLookup(wk6, Worksheets("予定").Range("B7:AJ55"), wk1, 0)
>　　　　　　
>Worksheets("実績表").Cells(KGYO2, wret).Value = wk8

0 hits

▼

【40086】vlookupについて ｋａｏｒｕ 06/7/6(木) 20:17