| |
３行目がタイトル行で、４〜n行目がデータ行だとします。
データ分新しいブックを作成し、
元ブックの３行目→新ブックの１列目
元ブックのn行目（データ行）→新ブックの２列目
（セルの色や罫線なども保持）
という風にしたいのですが、
以下のコーディングをしてみたところ、
新しいブックを作成すると前面に出てきてしまい、
チカチカしてしまいます。。。
ブックをアクティブにせずに、
裏でこっそりブックを追加する方法はないでしょうか。
例：
Sub お試し_Click()
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
For i = 4 To n
Workbooks.Add
With ActiveWorkbook
For ii = 1 To 4
Call ThisWorkbook.Worksheets("Sheet1").Cells(3, ii).Copy
.ActiveSheet.Cells(ii, 1).Select
Call .ActiveSheet.Paste
Call ThisWorkbook.Worksheets("Sheet1").Cells(i, ii).Copy
.ActiveSheet.Cells(ii, 2).Select
Call .ActiveSheet.Paste
Next
Call .SaveAs("C:\temp\" & ThisWorkbook.Worksheets("Sheet1").Cells(i, 1))
Call .Close
End With
Next
Application.CutCopyMode = False
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
