• ベストアンサー

エクセルVBAで選択していないシートのセルコピー

エクセルVBAで質問させてください。 現在選択していないシートから、セルの書式ごとコピーして貼り付けたいのです。 たとえば Sheets(1).Range(Cells(1, 1), Cells(4, 1)).Copy Sheets(2).Range("A1") 等とすると、Sheets(2)が選択されている状態だとエラーになってしまいます。 おそらく、Copyメソッドというのは、選択されているシートにのみ有効だからなのではないか、と思いますが、セルの値だけでなくフォントその他の書式を、別のシート（現在アクティブでない）から持ってくる方法はありますか？

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

Sheets(1).Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(4, 1)).Copy Sheets(2).Range("A1") ではどうでしょうか？ ちなみに、 >Sheets(1).Range(Cells(1, 1), Cells(4, 1)).Copy Sheets(2).Range("A1") が、 Sheets(1)のモジュールなら常にエラーになりません。 Sheets(2)のモジュールなら常にエラーになります。 標準モジュールのモジュールならSheets(1)がActiveSheetならエラーになりません。

woihtg
質問者

お礼

やってみたところできました。 どうもありがとうございました。

その他の回答 (1)

noname#57896
noname#57896
回答No.1

先頭に Sheets(1).Select を入れるのは邪道ですか？

woihtg
質問者

お礼

はい。私が聞きたかったのはselectでシートを選択せずに行えるのかということなんです。 無理なんでしょうかね・・・？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他(ソフトウェア)

関連するQ&A

  • VBAのCopyコマンドについて

    エクセルVBAでシート3のRangeの値をからシート2のRangeへデータをコピーしようとしているのですが Sheets(3).Range("B3:B100").Copy _ Sheets(2).Range(Cells(3, col2 - 1), Cells(100, col2 - 1)) がうまくいって、 Sheets(3).Range(Cells(2, col1), Cells(100, col1)).Copy _ sheets(2).Range(Cells(2, col2), Cells(100, col2)) が何故、オブジェクト定義エラーになってしまうのがわかりません。 col1、col2は列の変数です。 よろしくお願いします。

  • Excel VBA 指定シートの取込

    こんにちは。 ExcelのVBAを使用して、異なるBookのシートを取込みたいのですが、 シートが無かった場合の処理方法がわかりません。 現在のコードは下記の様になっております。 With Workbooks.Open"BOOK1.xls" .Worksheets("Sh1").Cells.Copy ThisWorkbook.Sheets("Sheet1").Range("A1") .Worksheets("Sh2").Cells.Copy ThisWorkbook.Sheets("Sheet2").Range("A1") .Worksheets("Sh3").Cells.Copy ThisWorkbook.Sheets("Sheet3").Range("A1") .Close End With Book1に指定したシートが無い場合、何もしないようにしたいのですが、 どの様に書き換えれば宜しいでしょうか？ よろしくお願いします。

  • エクセル２００７マクロ　シート間のセルコピー

    [Sheet1]にあるデータを[Sheet2]にコピーするマクロボタンを[Sheet2]に作りたいのですが、マクロがよく分からないので、「マクロの記録」で作成してみました。 Sub siken() ' ' siken Macro ' ' Sheets("Sheet1").Select Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B3").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B3").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B6:D6").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B6").Select ActiveSheet.Paste End Sub （実際はもっと多くのセルをコピーします） マクロを実行すると、ちゃんとコピーできるのですが、セルをコピーする都度[Sheet1]と[Sheet2]が交互に表示されます。 コピー元の[Sheet1]を表示させずにマクロを実行させるにはどのようにしたらよいのでしょうか？ よろしくお願いします。

  • VBA セルコピーのエラー

    こんにちは。 Excel VBAの初心者です。 セルコピーについて教えてください。 シート1のセル範囲e4~aj4を、シート2の同じ場所に、そのままコピーします。 Worksheets(1).Range("e4:aj4").Copy Destination:=Worksheets(2).Range("e4:aj4") 上記だと普通に通るのですが、コピー元の行に変数を使用したくて、その前に一度下のように書き換えました。 Worksheets(1).Range(Cells(4, 5), Cells(4, 36)).Copy Destination:=Worksheets(2).Range(Cells(4, 5), Cells(4, 36)) するとエラー1004（アプリケーション定義またはオブジェク定義のエラー1004（アプリケーション定義またはオブジェク定義のエラー）が出て、通らなくなります。 単純なことだと思うのですが、初心者ゆえ困っております。 どなたかご教示いただけますと幸いです。 よろしくお願いいたします。

  • エクセル　ＶＢＡ　シートの選択　

    windows XP でエクセル２０００を使っています。 Sub aaa() Sheets("Sheet1").Select Dim a As String a = Cells(2, 4) Sheets(a).Select Range("A1").Select End Sub というマクロだと　セルに入っている値のシート名を探してくれます。 ですが Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Intersect(Target, Range("B11:b683")) Is Nothing Then Exit Sub Worksheets("Sheet1").Range("C2").Value = Target.Value Dim b As String b = Range("C2).value （←ここをcellsにしてもダメ） Sheets(b).Select Range("A1").Select End Sub これだとsheets(b)を選びません。Sheets(b).Selectのところが黄色くなります。 何処が間違えているのでしょうか。 全くの素人ですが、仕事で必要に迫られています。 わかりやすく回答・解説くれると助かります。

  • エクセルVBAでセル選択するコードが変

    エクセルのワークシートでVBAでセル選択するコードで理解に苦しむことがあります。 通常、Cells(2, 1)はセル番地で言えばA2セル Cells(4, 1)はセル番地で言えばA4セルです。 しかし、 With .Range("B5:B15")でくくれば　 .Cells(2, 1)はセル番地で言えばB6セルだと思います。 .Cells(4, 1) はセル番地で言えばB8セルだと思います。 ところが下記のコードを動かすと、なぜかC10:C12が選択されてしまいます。 この理屈がわかりません。 Sub test02() 　　With Sheets("Sheet1") 　　　　With .Range("B5:B15") 　　　　　　.Range(.Cells(2, 1), .Cells(4, 1)).Select 　　　　End With 　　End With End Sub なお、 .Range(.Cells(2, 1), .Cells(4, 1)).Selectを .Range(“A2:A4”).Selectに書きかえると、希望のB6:B8が選択されます。

  • アクティブでないシートのセルを選択

    Excel VBAでアクティブでないシートのセルをSelectすることはできないのでしょうか。 Selectメソッドというのは，もともとそういうものなのでしょうか。 エラー： 「RangeクラスのSelectメソッドが失敗しました。」 コード Sub aaa() With Worksheets("Sheet2") .Range(.Cells(44, 1), .Cells(48, 21)).Select End With End Sub

  • ExcelでVBAで選択範囲の値のみを挿入

    始めて質問いたします。よろしくお願いします。 Excel2010にて作成された選択範囲(Sheet1)のセルを同じブックの別シート(Sheet2"A1:AB20")で参照しています。その参照部分をVBAにてコピーして、そのすぐ下("A21:AB40")に挿入していきます。自分で作成したコードでは、数式もコピーするので当然参照しているセルからずれてしまいます。(Sheet1)の数値はその度に変わりますので絶対参照にすることもできません。 作成したVBAに値のみをコピーするコードを追加したいので教えて下さい。 Private Sub CommandButton1_Click() Sheets("Sheet2").Range("A1:AB20").Copy Sheets("Sheet2").Range("A21:AB40").Insert Shift:=xlDown Application.CutCopyMode = False End Sub このコードだと、参照している　"A1:AB20"　がテキストなどの場合はうまくいきます。数式が入っていると当然ですが、数式をコピーしてしまいます。 いろいろなサイトを見ていると Paste:=xlPasteValues　　が、値のみペーストだと書いてありますが、適応の仕方がわかりません。 Insert　の場合はどうなるのかもわかりません。 同じような質問も探しましたが見つからなくて困っています。 よろしくお願いいたします。

  • VBA　特定のシートが選択されていたら、セル入力

    Excel365。簡略化したVBAです。 現在、「あ」というシートが選択されていたら、「あ」シートの「A1」セルに「a」と入力 「い」というシートが選択されていたら「い」シートの「A1」セルに「i」と入力。 それ以外のシートが選択されていたら、何もしない。 If Sheets("あ").Activate Then Range("A1") = "a" ElseIf Sheets("い").Activate Then Range("A1") = "i" Else　以下省略 「い」シート選択中でも、「あ」シートの「a1」セルに入力され、シートを増やしても、「あ」シートの「a1」セルに入力されます。 「い」シートを入力していません。 簡単だと思っていたのですが…。 どんなコードになるのでしょうか？

  • Excel VBScript VBA セルコピー

    当方、Windows7 Pro 64bit 、Excel2010の環境です。 出来れば、VBScript希望ですが、VBAでも結構ですので 教えてください。 あるエクセルのファイルの特定のセルを 別のエクセルのファイルにコピーするとき、 x.Cells(1, 1).Value = y.Cells(1, 1).Value などとするのは分かっているのですが、 コピーされる元のセルの中身だけでなく、 フォントやフォントの色、 罫線の状況など、 設定されているそのままをコピーしたいのです。 上記のような情報を「設定する」方法は 調べると分かるのですが、 そのまま持ってくる方法は 私が調べた中では、出てきませんでした。 もちろん、 x.Cells(1, 1) = y.Cells(1, 1) とやってみましたが、ダメでした。 何か、方法はあるでしょうか？ 教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する