Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37912 / 76807

←次へ　｜　前へ→


	【44042】ブックをアクティブにせずに追加する方法

けんけん - 06/11/1(水) 16:55 -


	引用なし

	パスワード

３行目がタイトル行で、４～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

1 hits

▼

【44042】ブックをアクティブにせずに追加する方法 けんけん 06/11/1(水) 16:55

≪