| |
▼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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
