|
▼改造したいな さん 今晩は。
>他のデータ領域・・・ | 35 36 37
> |集計日 05/4/24 05/4/25
>__________| 数 50 60
>毎日の集計を仮に上のように表示させているのですが、
>集計日が今日であるならば、”60”を選択し、それをコピーし、他のシートに貼り付けたいのですが、
>Sub hirui()
>Sheets("B").Select
>NN2 = 36
>For i2 = 36 To 100
> If Cells(2, i2 ).Value = Now Then
> NN2 = Cells(2, i2-1).Value
> ActiveCell.Select
> Selection.Copy
> Sheets("C").Select
> Range("AN12:AY12").Select
> ActiveSheet.Paste
> Application.CutCopyMode = False
> End If
>Next i2
>End Sub
>といったとこなんですが...
確かに説明不足です。よく理解できていないけれど、勝手に解釈して
次のようにしてみました。
Sub hirui()
Sheets("sheet1").Select
For i2 = 36 To 100
If Cells(2, i2).Value = Date Then 'Now でなくDAte です
Cells(3, i2).Copy Sheets("sheet2").Range("AN12:AY12")
'↑Range("AN12:AY12")の意味がよく分からないので、
' とりあえずこのようにしました。
End If
Next
Application.CutCopyMode = False
'
Sheets("sheet2").Select
Range("AN12").Select
End Sub
|
|