|
意味をおしえてください
本・ヘルプ等見たのですがいまいち?です。
よろしくお願いします。
>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つおき
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
F10〜3行おきなんですがどこがF10を意味すんでしょうか
> Case Else: RR = 24 + II: CC = 5 '残りはE列
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
E32〜毎行ですがE32はどこで判断するのですか。
> End Select
> '
> Worksheets("sheet1").Cells(RR, CC).Resize(1, 2) _
~~~~~~~~~~~~~
↑この辺の意味もいまいち?です
> .Value = "=Calendar!H" & (4 + II)
> Next
>End Sub
|
|