|
▼りん さん:
ありがとうございました。
コードの意味はよく解りませんがバッチリです。
お時間ありましたらII RR CC 意味おしえてくだせい。
>>Sub 転記()
>>
>> Range("F10:G10").Value = "=Calendar!H5"
> 略
>> Range("F28:G28").Value = "=Calendar!H11"
>↑ここはF列で10行目から3行ごと
>> Range("E32:F32").Value = "=Calendar!H12"
> 略
>> Range("E38:F38").Value = "=Calendar!H18"
>↑ここはE列で32行目から毎行
>>End Sub
>
>以上の条件を踏まえて分岐。
>
>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つおき
> Case Else: RR = 24 + II: CC = 5 '残りはE列
> End Select
> '
> Worksheets("sheet1").Cells(RR, CC).Resize(1, 2) _
> .Value = "=Calendar!H" & (4 + II)
> Next
>End Sub
>
>ただしF10:G10が結合セルを意味するなら、.Resize(1, 2)の部分は不要です。
|
|