Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12701 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9102】任意のシート以外にマクロを実行させる ゆう 03/11/18(火) 16:40 質問
【9104】Re:任意のシート以外にマクロを実行させる INA 03/11/18(火) 16:55 回答
【9108】Re:任意のシート以外にマクロを実行させる ゆう 03/11/18(火) 17:41 お礼
【9109】Re:任意のシート以外にマクロを実行させる ゆう 03/11/18(火) 17:42 質問
【9110】Re:任意のシート以外にマクロを実行させる INA 03/11/18(火) 17:47 回答
【9112】Re:任意のシート以外にマクロを実行させる ゆう 03/11/18(火) 17:58 お礼
【9102】任意のシート以外にマクロを実行させる
質問  ゆう  - 03/11/18(火) 16:40 -
引用なし
パスワード
   はじめまして。
シートが複数存在します。
シート「データ元」をコピーして、
各シートにはりつけしたいのです。
sheet1の分までは何とかできたのですが、
そこで行き詰ってしまいました。
シート「データ元」とシート「Data」以外のシート全てに
貼り付けを行いたいのですが、
どのように変更すれば良いでしょうか？
教えてください。
よろしくお願いします。

Sub Clear()
　　Sheets("データ元").Select
　　Range("A2:V200").Select
　　Selection.Copy

　　'シート「データ元」のA2:V200をコピーする

　　Sheets("sheet1").Select
　　Range("A2").Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False

　 'Sheet1のA2に貼り付ける
　　
End Sub
【9104】Re:任意のシート以外にマクロを実行させる
回答  INA  - 03/11/18(火) 16:55 -
引用なし
パスワード
   どうぞ〜

Sub Clear()
Dim myWs As Worksheet

　　For Each myWs In Worksheets
　　　　If myWs.Name <> "Data" Or myWs.Name <> "データ元" Then
　　　　　　Worksheets("データ元").Range("A2:V200").Copy myWs.Range("A2")
　　　　End If
　　Next myWs

End Sub
【9108】Re:任意のシート以外にマクロを実行させる
お礼  ゆう  - 03/11/18(火) 17:41 -
引用なし
パスワード
   ▼INA さん
ありがとうございます！！
助かります！！
【9109】Re:任意のシート以外にマクロを実行させる
質問  ゆう  - 03/11/18(火) 17:42 -
引用なし
パスワード
   申し訳ないです。
１つエラーが出てしまいました。
「Data」シートにも、貼り付けがされてしまいます。
直し方を教えてもらえないでしょうか？
よろしくお願いします。
【9110】Re:任意のシート以外にマクロを実行させる
回答  INA  - 03/11/18(火) 17:47 -
引用なし
パスワード
   論理を間違えてました。

>If myWs.Name <> "Data" Or myWs.Name <> "データ元" Then
「または」でなく

If myWs.Name <> "Data" And myWs.Name <> "データ元" Then
「かつ」でした。
【9112】Re:任意のシート以外にマクロを実行させる
お礼  ゆう  - 03/11/18(火) 17:58 -
引用なし
パスワード
   ▼INA さん
ありがとうございました！！
ご指摘通りです。。。
解決しました！
自分で気づけないなんて、お恥ずかしい。。。

ありがとうございました！

>>If myWs.Name <> "Data" Or myWs.Name <> "データ元" Then
>「または」でなく
>
>If myWs.Name <> "Data" And myWs.Name <> "データ元" Then
>「かつ」でした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12701 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free