|
▼ペーロケ さん:
こんばんわ。
ただ単純に、シート(集計)を表示しないようにすると言うことであれば、
>Sub test()
>
>Dim i As Long
>Dim j As Long
>Dim ws As Worksheet
>
>Set ws = Worksheets("集計")
>i = 27
>j = 2
>
Application.ScreenUpdating = False
>ws.Range("b5:h14").ClearContents
>
>With ws
> Do While .Cells(25, i) <> ""
> '空欄になるまで実行
>
> If .Cells(25, i) = .Cells(20, 27) And _
> .Cells(26, i) = .Cells(21, 27) Then
>
> Range(.Cells(29, i), .Cells(38, i)).Select
> Selection.Copy
> Cells(5, j).Select
> Selection.PasteSpecial Paste:=xlValues
> j = j + 1
>
> End If
>
> i = i + 1
>Loop
>
>End With
>
Application.ScreenUpdating = True
>
>グラフ1.Select
>End Sub
を試してみてください。
|
|