【やりたい事】
book1のセルA1からG7までの7つのセルをbook2の台帳へ転記したい。
⇒は、以下コードでできています
さらに
転記元のbook1セルA1からG7の
G7は、黄色の塗りつぶしセル。値はありません。
この黄色の塗りつぶしセルも一緒に転記をしたいです。
7つのセルの値だけの場合は、転記できています
よろしくお願いします
Sub 別ブックへ転記()
【コード:動きます】※本サイトにて教授いただき、作成しました
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row2 As Long
Dim i As Integer
Set ws1 = Worksheets("Sheet1") '転記元シート。開いているシート。
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "book2.xlsx" Then
Set wb2 = Workbooks(i) '転記先のブック。
End If
Next
Set ws2 = wb2.Worksheets("Sheet1") '転記先のブック。シート
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row '転記先のブックi列
row2 = maxrow2 + 1
ws2.Cells(row2, 1).Resize(1, 7).Value = ws1.Range("A1").Resize(1, 7).Value '転記元から転記先へ7セル分を転記.a1から7セル分。天気先。1列目から。
wb2.Save '転記先のブックを上書き
End Sub
No.3ベストアンサー
- 回答日時:
>>以下で、良いでしょうか???
>>ws2.Cells(row2, 1).Resize(1, 7) = ws1.Range("A1").Resize(1, 7).copy
2個間違ってるので駄目です
1個目
copyメソッドなので、=では駄目です。=のところは半角スペースです。
=にすると、真偽値が転記。(TRUEとかFALSE)
2個目
AをBにコピーする時は、A.copy B です。
B A.copyとやると、文法エラーとなります。
ws1.Range("A1").Resize(1, 7).copy ws2.Cells(row2, 1).Resize(1, 7)
が正しいです。
ありがとうございます
コピーメソッドなんですね
代入と勘違いしてました
ありがとうございます
Excel利用環境になりましたら
すぐに、試したいと思います
No.4
- 回答日時:
No2です。
>1.Range("A1048576")は、どういう意味でしょうか?
シートの最大行数が1048576なので、A列の最終セルの意味です。
>2.book2.xlsxが開いていない時のコードは、以下部分ですか?
「開いていない時」というわけではありません。
開いている時もその処理を通りますので・・
その部分としては、「ブックが開いているかをチェックして、開いていなければメッセージを出す」といった感じです。
No.2
- 回答日時:
こんにちは
>book1のセルA1からG7までの7つのセルをbook2の台帳へ転記したい。
A1:G7だと、セル数は47ありますけれど?
>G7は、黄色の塗りつぶしセル。値はありません
雰囲気から、G1セルの間違えと勝手に解釈しました。
>この黄色の塗りつぶしセルも一緒に転記をしたいです。
背景色をコピーしたいという意味と解釈しました。
その他、不明な点は以下のように勝手に解釈しました。
・転記元のブックに当該マクロが記載されている
・転記するのはA1:G1の1行分の7セル
・転記先シートの最終行はA列で判断してよい
(=A列が空であることはない)
・書式をコピーするのはG7セルのみで、背景色以外の書式はコピーしない
Sub Sample()
Dim sRange As Range, dRange As Range
Set sRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:G1")
On Error Resume Next
Set dRange = Workbooks("book2.xlsx").Worksheets("Sheet1").Range("A1048576")
If Err.Number <> 0 Then MsgBox "転記先ブックが開いていません": Exit Sub
On Error GoTo 0
Set dRange = dRange.End(xlUp).Offset(1).Resize(1, 7)
dRange(7).Interior.Color = sRange(7).Interior.Color
dRange.Value = sRange.Value
End Sub
コードの教授ありがとうございました。
しっかりと動きました。
2つ質問ですが
1.Range("A1048576")は、どういう意味でしょうか?
2.book2.xlsxが開いていない時のコードは、以下部分ですか?
On Error Resume Next
Set dRange = Workbooks("book2.xlsx").Worksheets("Sheet1").Range("A1048576")
If Err.Number <> 0 Then MsgBox "転記先ブックが開いていません": Exit Sub
On Error GoTo 0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
- Excel(エクセル) VBA Scripting.Dictionary 連想配列 複数参照する方法 2 2021/12/17 01:52
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
エクセルのハイパーリンクで質問です。
Excel(エクセル)
-
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
-
4
ExcelのVBAで同一フォルダ内にあるファイルに同じ処理をしたい
Excel(エクセル)
-
5
2013Excel保存済みファイルグレーアウト Excelを開こうとするとメニュー以外全てグレーにな
Excel(エクセル)
-
6
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
7
Teamsにあるエクセルファイルに、自分のデスクトップに置いているエクセルファイルの中のひとつのシー
Excel(エクセル)
-
8
【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい
Excel(エクセル)
-
9
エクセルの行を巾を変えずに増やす方法
Excel(エクセル)
-
10
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
11
【マクロ】for nextステートメントがわかりません。例あり。
Excel(エクセル)
-
12
[大至急!]ExcelSheetFreeの使い方がわかりません
Excel(エクセル)
-
13
指定した範囲から、文字A、文字Bの数をそれぞれカウントする数式が知りたいです。よろしくお願いします。
Excel(エクセル)
-
14
Excelでオートフィルをした時に,値のバグについて
Excel(エクセル)
-
15
こんにちは。Excelのことで教えてください。特定のセルへの入力時に、ある特定の文字の入力ができない
Excel(エクセル)
-
16
対応するExcelの計算式はありますか?
Excel(エクセル)
-
17
エクセル 関数
Excel(エクセル)
-
18
セル内の数式をVBAで書くと
Excel(エクセル)
-
19
マクロについて
Excel(エクセル)
-
20
データから単位文字を除去して計算する方法は?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2010でふりがなが漢字にな...
-
エクセルの文字間スペースを入...
-
VBAで横データを縦データに変換...
-
【マクロ】セルの塗りつぶし色...
-
短文をランダムに組み合わせ、...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
オペランドが足りませんとコメ...
-
エクセル/マクロ Exit Subが実...
-
VBA シートの切り替えができな...
-
pythonでrequestsが使えない
-
mfc42.dllファイルってなんです...
-
マクロ実行ボタンがコピー出来ない
-
VBAでシートコピー後、シート名...
-
貼り付けをマクロで禁止させたい。
-
WordPressをインストールしてい...
-
(int)キャストとintvalの違い
-
AUTOCAD 2010でdwlファイルの場...
-
OBSが起動できません
おすすめ情報
丸ごとコピーの上→転記ですね
サワタケさんのを参考にしました
以下で、良いでしょうか???
ws2.Cells(row2, 1).Resize(1, 7) = ws1.Range("A1").Resize(1, 7).copy