|
▼りん さん:
ありがとうございました。
分岐は不要と言うことですね
わかりました。
>
>>前回のHはそのままで今回のみI列としたいのですが
>>転記先はJ10.13.16.19.22.25.28です。
>
>実行結果をみたところ、Hの転記に加えて、Iも転記するということでいいのですね。
>
>条件が分かれないときは分岐を入れる必要はないですよ。
>> Select Case III
>> Case 1 To 7: SS = 7 + III * 3: CC = 10
>> End Select '
>
>今回の場合はループを纏められるので。
>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列とJ列で3つおき
> Case Else: RR = 24 + II: CC = 4 '残りはD列
> End Select
> Worksheets("sheet1").Cells(RR, CC) _
> .Value = "=Calendar!H" & (4 + II)
> '7まではJ列にも転記
> If II < 8 Then
> Worksheets("sheet1").Cells(RR, 10) _
> .Value = "=Calendar!I" & (4 + II)
> End If
> Next
>End Sub
>
>こんな感じです。
|
|