
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
実際の業務での運用の場合ですが
準備
1、BookA の別シート(仮に 設定と云う名前)を準備
2、BookB へのパスとファイル名を入れておく
仮に
A B
ファイルへのパス Z:\
ファイル名 BookB.Xlsx
この方が、後々、変更があった場合に、マクロを修正する事がなく使えます。
BookAのマクロ
①Book BのSheet2を開く
③列 D、E、F、Gの最終空セルに、BookAの所定のセルの値を入れる。
④データをセーブし、Book Bを閉じる
この様にした方が良いと思います。
Workbooks.Open Sheets("設定").Range("B2").Value & "\" & Sheets("設定").Rnage("B3").Value
Sheets("Sheets2").Activate
Gyou=Range("D" & Rows.Count).End(Xlup).Row+1
Range("D" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル1).Value
Range("E" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル2).Value
Range("F" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル3).Value
Range("G" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル4).Value
ActiveBook.Save
ActiveBook.Close
の様な流れ
実際には、
マクロを重複して操作できない様に
コピー元のデータをクリアして、BookAも上書き保存してしまう。
再度、マクロを実行しても何も起こらない様にする
既に、BookBを誰かが開いていた場合
BookBが読み取り専用で開いてしまったら、メッセージを出して
何もせずに終了
ミスがあって、BookBを修正する時のルール
などと発展させていきます。
No.1
- 回答日時:
こんばんは!
>Book A のSheet 1上の4セルのコピー
が具体的にどのセルかが判らないので、仮にA2~D2セルとしています。
↓のコードをBookAの標準モジュールにしてみてください。
Sub Sample1()
Dim wB As Workbook, wS As Worksheet
Dim myPath As String, fN As String
myPath = "ファイル保存場所のパス" & "\"
fN = "B.xlsx"
Workbooks.Open myPath & fN
Set wB = Workbooks(fN)
Set wS = wB.Worksheets("Sheet2")
ThisWorkbook.Worksheets("Sheet1").Range("A2").Resize(, 4).Copy '←Sheet1のA2~D2セルをコピー&ペースト★//
With wS.Cells(Rows.Count, "D").End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
.Select
End With
wB.Save
wB.Close
End Sub
※ こんな流れになると思います。m(_ _)m
初めまして、
GWの貴重な時間に回答いただき、誠に有難うございました。
回答いただきました内容を検討し、実際のソフトに対応したコーヂングを行いたいと思います。
重ねてお礼申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) 同じExcelのBOOK内で 1枚目のシートのA1のセルにデータを 入れると2枚目のシートのC1のセ 1 2022/10/25 09:40
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
別シートの最終行に貼り付けするマクロを教えてください。 シートYのE3からE15までをコピー シート
Excel(エクセル)
-
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
-
4
【マクロ】対象データを別シートの最終行の下へ貼り付けをしたい。
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
別のブック最終行最終列の次への転記
Excel(エクセル)
-
7
VBA 空白行に転記する
Visual Basic(VBA)
-
8
マクロ転記で指定した列の最終行に転記するコードを教えてください。
Excel(エクセル)
-
9
【マクロ】【VBA】別ブックへのデータ転記について
Excel(エクセル)
-
10
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
11
マクロ セルに入力されたシートを選択する
Excel(エクセル)
-
12
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
13
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
14
エクセルvbaで、別シートの最下行にデータを取り込むコードを教えてください。
Visual Basic(VBA)
-
15
VBA 別ブックから条件に合うものを転記したいです
Visual Basic(VBA)
-
16
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
17
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
18
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
19
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの結果でマクロ実行
-
特定のセルが空白だったら、そ...
-
ExcelVBAを使って、値...
-
エクセルVBAでコピーして順...
-
Excelで指定した日付から過去の...
-
Excel VBA マクロ ある列の最終...
-
VBAでマクロ実行中はExcelのマ...
-
i=cells(Rows.Count, 1)とi=cel...
-
セルの値だけクリップボードに...
-
RC表示に変数を入れる
-
Excel VBA、 別ブックの最終行...
-
ExcelVBA データを消去すると罫...
-
ExcelのVBA・チェックボックス...
-
Excel VBAで、 ヘッダーへのセ...
-
VBAでセル同士を比較して色付け
-
エクセルマクロでアニメを作る...
-
VBA実行後に元のセルに戻りたい
-
エクセルvbaで、別シートの最下...
-
エクセルのvbaでのふりがなにつ...
-
連想配列を配列に格納したいで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
【Excel】指定したセルの名前で...
-
”戻り値”が変化したときに、マ...
-
【EXCEL VBA】Range("A:A").Fi...
-
エクセルvbaで、別シートの最下...
-
連続する複数のセル値がすべて0...
-
セル色なしの行一括削除
-
Excel VBA マクロ ある列の最終...
-
特定の文字を条件に行挿入とそ...
-
Excel vbaで特定の文字以外が入...
-
VBAでセルをクリックする回...
-
Excelのプルダウンで2列分の情...
-
VBからEXCELのセルの値を取得す...
-
EXCELで変数をペーストしたい
-
vba 隣のセルに値がある行だけ...
おすすめ情報