nor********

2022/6/21 19:53

22回答

エクセルマクロでコピペするコードについて 教わりたいです。 ２つのエクセルブックを開いています。 １つのエクセルブック名はA.xlsmで固定ですが

エクセルマクロでコピペするコードについて 教わりたいです。 ２つのエクセルブックを開いています。 １つのエクセルブック名はA.xlsmで固定ですが もう１つのブック名はいつも変わります。 A.xlsmのsheet1のA2:K50の範囲を もう１つのブック.xlsmのsheet1のA2:K50にコピペしたいのですが そのコードを教えていただけますか。 尚マクロコードはA.xlsmブックに書きます。 毎回変わるブック名○○.xlsmを取得する必要もあり いろいろ調べてみたのですが書き方がわからず よろしくお願いします。

Visual Basic | Excel・94閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0
tak********

2022/6/21 20:05

以下のようなものでしょうか？ ・「Private Sub CommandButton1_Click()」はACTIVEXのボタンの場合です。実施環境にあわせてください。 Private Sub CommandButton1_Click() Dim wb As Workbook For Each wb In Workbooks If wb.Name <> ThisWorkbook.Name Then ThisWorkbook.Sheets("sheet1").Range("A2:K50").Copy wb.Sheets("Sheet1").Range("A2") Exit For End If Next wb End Sub

nor********

質問者2022/6/23 10:34

ご回答ありがとうございます。 自分が理解できてから お礼のメッセージをしようとしていたのですが 調べてもまだ理解できておらず 返事が遅くなってしまいました。 ACTIVEXのボタンの使い方を昨夜勉強しようとしたのですが まだ理解できておらず また勉強できてわかってから いただいたコードを試してみます。

ThanksImg質問者からのお礼コメント

ご回答いただいたみなさま 本当によくしていただいて みなさまにベストアンサーしたかったのですが。 どうもとても助かりました。 どうもありがとうございました。

お礼日時：6/29 11:32

その他の回答（1件）

0
1150246010

2022/6/22 11:21

素人の考え方ですが、 「毎回変わるブック名○○.xlsmを取得する必要もあり」 ⇒パソコンに不慣れな担当者でも対応できるようにA.xlsmのシート内でコピペ先ブック名とシート名を書き換えを行なわせます。 そのブックを開いて、フォームコントロールボタンをクリックさせます。 Sub Sheet4_ボタン1_Click() Range(Cells(2, 1), Cells(50, 11)).Select Selection.Copy Workbooks(Cells(1, 3).Value).Worksheets(Cells(1, 5).Value).Activate Cells(2, 1).Select ActiveSheet.Paste End Sub

画像
nor********

質問者2022/6/23 10:33

ご回答ありがとうございます。 自分が理解できてから お礼のメッセージをしようとしていたのですが 調べてもまだ理解できておらず 返事が遅くなってしまいました。 特に Workbooks(Cells(1, 3).Value). の部分でワークブックなのにセル指定があるところ 範囲は１つA2:K50の範囲であるのに その後ろも (Cells(1, 5).Value)と またセル指定があるところが わからず調べているところです。