Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
307 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81170】複数シートのコピー（EXCEL2010） 初心者 20/2/14(金) 12:46 質問[未読]
【81171】Re:複数シートのコピー（EXCEL2010） よろずや 20/2/15(土) 16:52 発言[未読]
【81172】Re:複数シートのコピー（EXCEL2010） 初心者 20/2/17(月) 17:58 質問[未読]
【81173】Re:複数シートのコピー（EXCEL2010） 初心者 20/2/17(月) 18:10 お礼[未読]
【81170】複数シートのコピー（EXCEL2010）
質問  初心者  - 20/2/14(金) 12:46 -
引用なし
パスワード
   1つのファイルに、2つの固定シートと、数と名前が可変のシートが複数付いたファイルがあります。シート数はあわせて4つ以上は存在します。
このファイルを開いた状態で、2つの固定シート以外を新しいファイルにコピーするマクロが作りたいです。
複数選択した状態でコピーするマクロを作ったのですが、EXCEL2010のため、複数同時にシートをコピーできないようでエラーとなりました。
【81171】Re:複数シートのコピー（EXCEL2010）
発言  よろずや  - 20/2/15(土) 16:52 -
引用なし
パスワード
   ▼初心者 さん：
>複数選択した状態でコピーするマクロを作ったのですが

それを提示した方が回答が付きやすいですよ。
【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
【81173】Re:複数シートのコピー（EXCEL2010）
お礼  初心者  - 20/2/17(月) 18:10 -
引用なし
パスワード
   ▼初心者 さん：

別の掲示板にうつります。すみません。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
307 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free