vbaで他のブックに転記したい。
vba初心者です。
コマンドボタンを押すと、別ブックにA2からD2を転記するようにしたいです。
転記先は「帳簿」としています。
現状下記のプログラムでは「帳簿」の 5行目にのみ転記されてしまいます。
そこで下記質問です。
①帳簿ファイルの一番下の行からひとつ下に転記させるにはどこをどう直したら良いでしょうか。
②値だけの転記にする場合、どうしたらいいでしょうか。
よろしくお願いします。
Private Sub CommandButton1_Click()
'別ブックを開く
Workbooks.Open Filename:=ThisWorkbook.Path & "\帳簿.xlsx"
Dim A, B
'別ブックに転記
Set A = ThisWorkbook.Worksheets("Sheet1").Range("A2:D2")
Set B = Workbooks("帳簿.xlsx").Worksheets("Sheet1").Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1)
A.Copy B
'別ブックを保存して、閉じる
Workbooks("帳簿.xlsx").Save
End Sub
No.1ベストアンサー
- 回答日時:
おはようございます。
マクロブックのセルA2:D2のデータを、帳簿へ記載するで良いでしょうか?
下記で、どうでしょうか?
①帳簿ファイルの一番下の行からひとつ下に転記させるにはどこをどう直したら良いでしょうか。
→Offset(行,列)が良いかと思います。 Offset(1)で1行下を指します。
②値だけの転記にする場合、どうしたらいいでしょうか。
よろしくお願いします。
→.Valueで、値の取得や設定ができます。
Private Sub CommandButton1_Click()
Workbooks("帳簿.xlsx").Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 4).Value = _
ThisWorkbook.Worksheets("Sheet1").Range("A2:D2").Value
End Sub
No.2
- 回答日時:
こんにちは
すでに回答は出ていますが A.Copy B だけを書き変えるのであれば
B.Resize(, A.Count).Value = A.Value
.Value = .Valueで値の代入が出来ます。
ただし、左辺と右辺は同じサイズ(セル範囲の数)にする必要があります
なので、Resizeで 左辺を右辺のサイズで大きさを変えます。
(大きさが同じなら変えなくて良い)
Offset と Resize はとても便利なので、調べて覚えると良いと思います
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【マクロ】【VBA】別ブックへのデータ転記について
Excel(エクセル)
-
参照先のブックを開かずに内容をコピーしたい
Excel(エクセル)
-
excel vbaで日付一致の行にデータ転記
Excel(エクセル)
-
-
4
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
5
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
6
VBAでワークブックの名前を変数にして開かせる?
Excel(エクセル)
-
7
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
8
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
9
VBA 日付一致で転記
Visual Basic(VBA)
-
10
VBA 既に開いているBookに継続作業(転記)する追加コード
Visual Basic(VBA)
-
11
Excel vbaで別ブックのコマンドボタンをクリック
Visual Basic(VBA)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
別のシートから値を取得するとき
Visual Basic(VBA)
-
14
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
15
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
16
ブックを開かずに、フォルダ内にある複数ブックの、特定セルの値を抽出した
Excel(エクセル)
-
17
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
20
マクロの転記について教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワイルドカード「*」を使うとう...
-
エクセルVBAが途中で止まります
-
(マクロ)データをAブックからB...
-
VBA シート名が一致した場合の...
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
VBA コードを実行すると画面が...
-
複数のエクセルブックをひとつ...
-
【VBA】全シートの計算式を全て...
-
VBAで別ブックのシートを指定し...
-
EXCELのブック名を引数(変数)...
-
【前回の続き続きです、ご教示...
-
別ブックの列同士の値が一致し...
-
ブックの選択について
-
VBS Bookを閉じるコード
-
現在開いているbook全てを対象...
-
拡張メタファイルにて貼り付け
-
エクセルのマクロについて教え...
-
VBA アプリケーション定義また...
-
vbaで他のブックに転記したい。...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBS Bookを閉じるコード
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】zip圧縮されたCSV...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
ExcelのVBAです。フォルダ内の...
-
vbaで他のブックに転記したい。...
-
フォルダ内の全てのファイルに...
-
VBAで複数のブックを開かずに処...
-
VBSでExcelのオープン確認
-
VBA 実行時エラー 2147024893
-
【Excel VBA】書き込み先ブック...
-
VBA シート名が一致した場合の...
おすすめ情報