Excel VBA質問箱 IV

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

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


6737 / 13644 ツリー ←次へ | 前へ→

【43437】開いてないシートのデータを別のシートにコピー ピーチ 06/10/15(日) 19:19 質問[未読]
【43438】Re:開いてないシートのデータを別のシート... かみちゃん 06/10/15(日) 19:43 発言[未読]
【43439】Re:開いてないシートのデータを別のシート... Hiroko 06/10/15(日) 19:44 回答[未読]
【43440】Re:開いてないシートのデータを別のシー... ponpon 06/10/15(日) 19:47 発言[未読]
【43441】Re:開いてないシートのデータを別のシート... ピーチ 06/10/15(日) 20:33 お礼[未読]

【43437】開いてないシートのデータを別のシートに...
質問  ピーチ  - 06/10/15(日) 19:19 -

引用なし
パスワード
   エクセルシートに
 A   B  C  D  E
1ああ いい うう ええ おお
2 :  :  :  :  :




というデータがあります。
このデータをシートを開かずに別のシートにコピーする
方法がわかりません。

【43438】Re:開いてないシートのデータを別のシー...
発言  かみちゃん  - 06/10/15(日) 19:43 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>このデータをシートを開かずに別のシートにコピーする

シートを開かずというのは、ブックは開いていて、シートをアクティブにせずに
という前提のことであれば、以下のような感じになります。

Sub test()
 With Range("A1:E2")
  Sheets("Sheet2").Range("A1").Resize(UBound(.Value, 1), UBound(.Value, 2)).Value = .Value
 End With
End Sub

なお、ブックを閉じている状態でコピーしたい要件がわかりません。

【43439】Re:開いてないシートのデータを別のシー...
回答  Hiroko  - 06/10/15(日) 19:44 -

引用なし
パスワード
   ▼ピーチ さん:
こんばんは

シート2に下のシート1(シート1と仮に決めました)を
貼り付けるコードです。

>エクセルシートに
> A   B  C  D  E
>1ああ いい うう ええ おお
>2 :  :  :  :  :
>3
>4
>5
>
>というデータがあります。

Sub Copy_PasteSpecial()
  With Sheets("Sheet2")
    .Activate
  Sheets("Sheet1").Range("A1:E5").Copy
   With .Range("A1")
     .PasteSpecial 1
     .Select
   End With
  End With
  Application.CutCopyMode = False
End Sub

>このデータをシートを開かずに別のシートにコピーする
>方法がわかりません。

【43440】Re:開いてないシートのデータを別のシー...
発言  ponpon  - 06/10/15(日) 19:47 -

引用なし
パスワード
   ▼ピーチ さん:
>エクセルシートに
> A   B  C  D  E
>1ああ いい うう ええ おお
>2 :  :  :  :  :
>3
>4
>5
>
>というデータがあります。

何というブックの何というシートのデータでしょうか?
データ範囲は?出来れば保存先も。

>このデータをシートを開かずに別のシートにコピーする

何というブックの何というシートのどこに?

開かずに、リンク貼り付けして、値に直す方法もありますが。
開いて貼り付け、閉じてしまう。その間画面描画を止めるという方法の方が、
速いと思いますが・・

このあたりをちゃんと書いて質問すると回答しやすいと思います。

【43441】Re:開いてないシートのデータを別のシー...
お礼  ピーチ  - 06/10/15(日) 20:33 -

引用なし
パスワード
   ありがとうございました。
動きました。

6737 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free