
EXCEL VBAの質問です
'選択したファイルを取り込み、別のファイルに貼り付ける。
マクロを組んでいるのですがそこにシート"項目M"のA1セルと"項目"のA1セルが一致したらコピーを行えるようにしたいです どうしたらよろしいでしょうか?
以下、コード
Sub マスターデータ取込02() '選択したファイルを取り込み、別のファイルに貼り付ける。
Dim RC As Integer
Dim OpenFileName, fileName, Path, SetFile As String
Dim wbMoto, wbSaki As Workbook
Set wbMoto = ActiveWorkbook 'マスターデータ取り込み元をセット
Application.DisplayAlerts = False
RC = MsgBox("マスターデータ取込みますか?", vbYesNo + vbQuestion, "確認")
If RC = vbYes Then
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
'ダイアログボックスを表示して、マスターデータファイルを指定します。
If OpenFileName <> "False" Then
SetFile = OpenFileName
Else
MsgBox "キャンセルされました"
Exit Sub 'マスターデータの取り込みをキャンセル
End If
Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
'ダイアログボックスで指定したマスターデータファイルを開きます。
Set wbSaki = Workbooks.Open(Path & SetFile)
'ワークブック間のシート「項目」をコピーします。
wbSaki.Worksheets("項目M").Range("A1:B20").Copy
wbMoto.Worksheets("項目").Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
'ワークブック間のシート「顧客データ」をコピーします。
wbSaki.Worksheets("顧客データM").Range("A1:G20").Copy
wbMoto.Worksheets("顧客データ").Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False 'コピー切り取りを解除
wbSaki.Close False 'マスターデータ取り込み先のファイルを閉じる
Else
MsgBox "処理を中断します"
End If
Application.DisplayAlerts = True
End Sub
'
'
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
郵便番号のことで困ってます
-
C# でDataTableの更新を高速化...
-
S9タイプからXタイプにデータ...
-
ウィンドウ枠の固定を行の2箇所...
-
CString型の文字列連結について
-
VBA 毎日取得するデータを順番...
-
メモ帳(テキストデータ)をExc...
-
配列の勉強をしています。使用...
-
ACCESS VBA インデックスが有効...
-
ACCESSからEXCELに出力する際、...
-
Matlab:plotで特定の値だけをプ...
-
配列でデータが入っている要素...
-
チェックサムの実装方法について
-
外部データの更新がうまくでき...
-
VBA HPからのデータ摘出...
-
特定のデータの抽出方法を教え...
-
VBA 判定文で理解できない結果...
-
VBA 空白セルを削除ではない方...
-
[C言語] コメント文字列を無視...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
【エクセル】測定時間がバラバ...
-
配列でデータが入っている要素...
-
VBA 空白セルを削除ではない方...
-
メモ帳(テキストデータ)をExc...
-
EXCELVBAでSQLserverからデータ...
-
多量のSUMIF式を軽くしたい
-
この行は既に別のテーブルに属...
-
CString型の文字列連結について
-
ACCESSからEXCELに出力する際、...
-
ユーザーフォームのテキストボ...
-
エクセルで2つの時系列のデー...
-
C# でDataTableの更新を高速化...
-
特定のデータの抽出方法を教え...
-
C# ソケット通信でデータ受信時...
-
二分探索の平均探索回数
-
Excel VBAでのオートフィルター...
-
ブレーカー落ちで壊れたりしな...
-
Accessで該当データにフラグを...
-
VBAを使ってOutlookメール本文...
おすすめ情報