|
▼りん さん:
>>Sub 転記()
>> Dim II As Integer, RR As Long, CC As Long
>> For II = 1 To 14
>> Select Case II
>> Case 1 To 7: RR = 7 + II * 3: CC = 6 '上から7つはF列3つおき
>>★★ここにJ列に3つおきを追加したい。
>> Case Else: RR = 24 + II: CC = 5 '残りはE列
>> End Select
>> '
>> Worksheets("sheet1").Cells(RR, CC).Resize(1, 2) _
>> .Value = "=Calendar!H" & (4 + II)
>>★★.Value = "=Calendar!I"に変更する。
>> Next
>>End Sub
>
>分岐(転記)する回数は14回のままですか?
>また、参照先は、全部Iに変更するのですか?
>何行目から何行目まで○列に転記する等、詳細を書かないと答えようがないと思います。
りんさん返事ありがとうございます。
>分岐(転記)する回数は14回のままですか?
7回でいいのですが
>また、参照先は、全部Iに変更するのですか?
前回のHはそのままで今回のみI列としたいのですが
転記先はJ10.13.16.19.22.25.28です。
下記のようにコード修正してみたのですが
いかがでしょうか
Sub 転記()
Dim II As Integer, RR As Long, CC As Long, SS As Long
For II = 1 To 14
Select Case II
Case 1 To 7: RR = 7 + II * 3: CC = 6 '上から7つはF列3つおき
Case Else: RR = 24 + II: CC = 4 '残りはD列
End Select
Worksheets("sheet1").Cells(RR, CC) _
.Value = "=Calendar!H" & (4 + II)
Next
For III = 1 To 7
Select Case III
Case 1 To 7: SS = 7 + III * 3: CC = 10
End Select '
Worksheets("sheet1").Cells(SS, CC) _
.Value = "=Calendar!I" & (4 + III)
Next
End Sub
|
|