Excel VBA質問箱 IV

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

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


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

1216 / 76734

←次へ　｜　前へ→


	【81172】Re:複数シートのコピー（EXCEL2010）

初心者 - 20/2/17(月) 17:58 -


	引用なし

	パスワード

▼よろずやさん：
>▼初心者さん：
>>複数選択した状態でコピーするマクロを作ったのですが
>
>それを提示した方が回答が付きやすいですよ。

すみません。体調を崩して寝込んでおり返事が遅れてしまいました。

会社でどのようなマクロを作っていたかわからなくなり、
また自宅も2010ではないので再現できないのですが
新たに以下のようなマクロを作って別の問題に直面いたしました。

以下のマクロだと
初期に選択されているシートにより挙動に問題が発生します。
（全て選択されているとそのままになる、testが選択されていると繰り返さない）
原因と訂正方法を知りたいです。
何卒よろしくお願いいたします。

Sub テスト()

Dim ws As Worksheet

　For Each ws In Sheets
　　　　If ws.Name <> "test" And ws.Name <> "test2" Then ws.Select Replace:=False
　Next ws
　　
　ActiveWindow.SelectedSheets.Copy
End Sub

11 hits

▼

【81170】複数シートのコピー（EXCEL2010） 初心者 20/2/14(金) 12:46