|
tosi さん、こんにちわ。
>前回の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
こんな感じです。
|
|