Ｐａｇｅ 362 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼非表示のシートをコピーして貼り付け KUＭＩ 02/11/19(火) 16:36 ┗Re:非表示のシートをコピーして貼り付け Jaka 02/11/19(火) 17:05 ┗Re:非表示のシートをコピーして貼り付け KUＭＩ 02/11/19(火) 17:14 ─────────────────────────────────────── ■題名 ： 非表示のシートをコピーして貼り付け ■名前 ： KUＭＩ ■日付 ： 02/11/19(火) 16:36 -------------------------------------------------------------------------
| いつも教えていただいてありがとうございます。 非表示のシートを表示させ、その内容（B10:G40)をコピーして、 現在のシートの(B10:G40)に貼り付け、また非表示のシートを閉じる。 という処理をしたくて下記のように作ってみました。 "JANUARY"が非表示のシートで、"MONTHLY"が現在のシートです。 これをボタンに貼り付けて実行すると、一瞬"JANUARY"が現れるのですが、 現在のシートにコピペされないのです。 どうしたらいいでしょうか・・・。 Range("B10:G40").Select Selection.ClearContents ←初期化 Sheets("JANUARY").Visible = True Range("B10:G40").Select Selection.Copy Sheets("MONTHLY").Select Range("B10").Select ActiveSheet.Paste Range("B10").Select Sheets("JANUARY").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False |
| ▼KUＭＩ さん： >いつも教えていただいてありがとうございます。 > >非表示のシートを表示させ、その内容（B10:G40)をコピーして、 >現在のシートの(B10:G40)に貼り付け、また非表示のシートを閉じる。 >という処理をしたくて下記のように作ってみました。 >"JANUARY"が非表示のシートで、"MONTHLY"が現在のシートです。 >これをボタンに貼り付けて実行すると、一瞬"JANUARY"が現れるのですが、 >現在のシートにコピペされないのです。 >どうしたらいいでしょうか・・・。 >Range("B10:G40").Select > Selection.ClearContents ←初期化 > Sheets("JANUARY").Visible = True > Range("B10:G40").Select > Selection.Copy > Sheets("MONTHLY").Select > Range("B10").Select > ActiveSheet.Paste > Range("B10").Select > Sheets("JANUARY").Select > Application.CutCopyMode = False > ActiveWindow.SelectedSheets.Visible = False こんにちは。 こうしたらどうでしょうか？ Range("B10:G40").ClearContents ←初期化 Sheets("JANUARY").Visible = True Sheets("JANUARY").Range("B10:G40").Copy Sheets("MONTHLY").Select Range("B10").Select ActiveSheet.Paste Range("B10").Select Sheets("JANUARY").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False |
| Jaka さん、どうもありがとうございます！ 無事出来ました！ >▼KUＭＩ さん： >>いつも教えていただいてありがとうございます。 >> >>非表示のシートを表示させ、その内容（B10:G40)をコピーして、 >>現在のシートの(B10:G40)に貼り付け、また非表示のシートを閉じる。 >>という処理をしたくて下記のように作ってみました。 >>"JANUARY"が非表示のシートで、"MONTHLY"が現在のシートです。 >>これをボタンに貼り付けて実行すると、一瞬"JANUARY"が現れるのですが、 >>現在のシートにコピペされないのです。 >>どうしたらいいでしょうか・・・。 >>Range("B10:G40").Select >> Selection.ClearContents ←初期化 >> Sheets("JANUARY").Visible = True >> Range("B10:G40").Select >> Selection.Copy >> Sheets("MONTHLY").Select >> Range("B10").Select >> ActiveSheet.Paste >> Range("B10").Select >> Sheets("JANUARY").Select >> Application.CutCopyMode = False >> ActiveWindow.SelectedSheets.Visible = False > > >こんにちは。 >こうしたらどうでしょうか？ > > Range("B10:G40").ClearContents ←初期化 > Sheets("JANUARY").Visible = True > Sheets("JANUARY").Range("B10:G40").Copy > Sheets("MONTHLY").Select > Range("B10").Select > ActiveSheet.Paste > Range("B10").Select > Sheets("JANUARY").Select > Application.CutCopyMode = False > ActiveWindow.SelectedSheets.Visible = False |