|
▼ichinose さん:
お恥ずかしながら
シートの値が同じで気づかなかったのですが
値を変えて試してみたら
最後、tukeのシートの値が上書きされ・・
再度奮闘しなおしています。
お気遣いありがとうございます。
ループに問題ありですか・・
>こんばんは。
>解決したのですか?
>
>
>>>
>>下記のコードで
>>エラーはインデックス範囲が有効でないとでます。
>>番号は9番です。
>
>このエラーがなくなっただけではないですか?
>
>
>>■シート名
>>世界、eigo、tuke
>>■転記するセル
>>A2,A3,A4+A5
>>
>>仮にどのシートのセル値も
>>A2が1、A3が2、A4+A5が5
>>だとすると
>>
>>まとめ
>>A B C
>>1 2 5
>>1 2 5
>>1 2 5
>>のように結果として出したいのです。
>>ただし、行は7から始める。
>どのシートも同じ値なら、
>上記のような結果にはなりますが・・・。
>
>
>>
>option base 1
>>
>>Sub test()
>> Dim may As Variant
>> Dim ws As Variant
>> Dim i As Variant
>> Dim k As Long
>> Dim num As Variant
>>
>> ws = Array("世界", "eigo", "tuke")
>> For num = 1 To UBound(ws)
>>
>> With Worksheets(ws(num))
>> may = Array(.Cells(1, 2), .Cells(1, 3), .Cells(1, 4) + .Cells(1, 5))
>>
>> For k = 7 To 9
>> For i = 1 To 3
>> Worksheets("まとめ").Cells(k, i) = may(i)
>> Next i
>> Next k
> 'このループに問題がありますが、大丈夫ですか?
>
>> End With
>> Next num
>>End Sub
|
|