2020年12月11日

Excel 特定のシートを複数のブックへコピーする

'特定のシートを複数のブックへコピーする
'【使い方】
'任意のシートで、"A1"から下方向に自身のブック内にあるコピー元対象のシート名を列挙する。
'"B1"から下方向にコピー先対象のブック(ファイル名)を列挙する。ファイルを自身のファイルと同じ場所に置く。
'ActiveXボタンを配置し当プロシージャを貼り付ける
Private Sub CommandButton1_Click()

'定数
Const SHEET_MAX As Integer = 10
Const BOOK_MAX As Integer = 10

'確認メッセージ
Dim res
res = MsgBox("処理を開始します。" & vbNewLine & "よろしいですか?", vbYesNo + vbDefaultButton2 + vbQuestion, "確認")
If res = vbNo Then Exit Sub

Dim curSheet As Worksheet
Set curSheet = ThisWorkbook.ActiveSheet

Dim path As String
path = ThisWorkbook.path

'コピー元シート取得
Dim sheetsBase As String
sheetsBase = "A1"
Dim sourceSheetList As Range
Set sourceSheetList = curSheet.Range(sheetsBase, curSheet.Range(sheetsBase).Offset(SHEET_MAX, 0))
'Set sourceSheetList = curSheet.Range(sheetsBase, curSheet.Range(sheetsBase).End(xlDown))

'コピー先ブック取得
Dim bookBase As String
bookBase = "B1"
Dim targetBookList As Range
Set targetBookList = curSheet.Range(bookBase, curSheet.Range(bookBase).Offset(BOOK_MAX, 0))
'Set targetBookList = curSheet.Range(bookBase, curSheet.Range(bookBase).End(xlDown))


Dim targetBook As Workbook
Dim sourceSheet As Worksheet

' 各ブックを開く
For Each bookName In targetBookList
On Error Resume Next
Set targetBook = Nothing
Set targetBook = Workbooks.Open(path & "\" & bookName.Value)
On Error GoTo 0
If Not targetBook Is Nothing Then
' 各シートをコピー
For Each sheetName In sourceSheetList
'シートを特定
On Error Resume Next
Set sourceSheet = Nothing
Set sourceSheet = ThisWorkbook.Worksheets(sheetName.Value)
On Error GoTo 0
If Not sourceSheet Is Nothing Then
'ワークブックへシートをコピー
sourceSheet.Copy After:=targetBook.Sheets(targetBook.Sheets.Count)
End If
Next
'保存する
targetBook.Save
'閉じる
targetBook.Close
End If
Next

res = MsgBox("終了しました。", vbOK + vbInformation, "メッセージ")

End Sub
タグ:Excel VBA
posted by Hiro at 19:38| Comment(10) | プログラム
この記事へのコメント
Google SketchUp Pro2020テ」ニ陳ゥテ」窶堋、テ」窶堋サテ」ニ陳ウテ」窶堋ケテ」窶堋ュテ」ニ陳シテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッ{テヲナ凪ぎテヲ窶督ー},TinymodelSonnyテ」窶堋サテ」ニ槌津」ニ塚�1テ」ツ≫ケテ」窶壺ー110テ、ツクナテ・ツ最ティツコツォティツ」ツクテ」ツ�ツョテァ窶敖キテ」ツ�ツョテ・ツュツ静」ニ陳「テ」ニ停。テ」ニ陳ォNewstar
Posted by patrlaqu at 2022年07月02日 01:37
HDテ」窶堋ェテ」ニ陳ウテ」ニ陳ゥテ」窶堋、テ」ニ陳ウテ」ニ停氾」ニ陳ャテ」ニ陳シテ」ニ陳、テ」ニ陳シテッツシヒ�Mardaani hd 1080p movie torrent downテッツシ窶ー,テ・竄ャ窶ケテ、ツコツコテ」ツ�ツョティツカツ」テ・ツ絶佚ゥナク窶愿・窶コツステ」ニ停ーテ」ニ陳ゥテ」ニ椎セティ窶ケツアティツェナセテ」窶堋オテ」ニ停禿」窶壺凖」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,idencnsテ」ニ陳ュテ」ニ槌津」窶堋ッティツァツ」テゥ邃「ツ、テ」ニ陳静」ニ陳シテ」窶堋クテ」ニ陳ァテ」ニ陳ウ7.135
60a1537d4d takoisad
https://colab.research.google.com/drive/1kc16DORm4l8bSPH54KIqFjf0LZSf-QW_
https://colab.research.google.com/drive/1Y6soac98PuDfudO-oBc7FaMFrKVQAY35
https://colab.research.google.com/drive/1Q16p_n_2WGClWVZ1Ra8eITPM8CcyzmdD
https://colab.research.google.com/drive/1nUIBKHJgVivoZ2AAKitSxSSJC4HQRp7P
https://colab.research.google.com/drive/1goyet3bpNMisIZSVSqRuf11alfcPz5mU


https://jewcy.com/post/jewish_mothers_guide_style_rent_runway
Posted by takoisad at 2022年08月07日 08:06
Posted by jaesher at 2022年08月07日 09:36
Dynasty.Warriors.8.Xtreme.Legends.Update.v1.02.incl.DLC-CODEXテ」ニ陳静」ニ陳シテ」窶堋クテ」ニ陳ァテ」ニ陳ウテ」ツ�ツョテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,テ」窶堋キテ」ニ陳」テ」ニ陳静」ニ陳ゥテ」ニ陳ウテ」窶堋ッテ」窶堋ケ-テ」ニ停。テ」窶堋」テ」窶堋ケテ」窶堋ウテ」窶堋ーテ」ニ陳ゥテ」ニ停「テ」窶堋」テ」ニ陳シテッツシヒ�1989-2001テッツシ窶ー.torrent,Jotun Paints Catalogue.pdf
60a1537d4d waninig
https://colab.research.google.com/drive/1_OhmzFDCB_2MKKvEddehq8lyPoO9lH4_
https://colab.research.google.com/drive/1Mc_lNUh8aX2Fs7XrfoHakJ4lOyMrB3Oj
https://colab.research.google.com/drive/1fTBp3APREwTgsMgw-umA3pTeqVSv7M_H
https://colab.research.google.com/drive/1sYbPhxHP41l5hfagz1bSdY5QzaBNrLmM
https://colab.research.google.com/drive/1CDZ5QWxYOqrh2Z1KXFJJnYogX0aRq0Bh


https://www.sdssocial.world/funsgoneldiss
Posted by waninig at 2022年08月07日 11:05
テゥツォヒ愿・ツコツヲテ」ツ�ツォテ・ナ督ァテァツクツョテ」ツ≫「テ」窶塲津」ツ�ナクテヲナ。窶氾ヲツョツコティ竄ャ窶ヲテ」ツ�ツョテ、ツソツ。テヲツ敖。テァツオツアテ、ツク竄ャPCテ」窶壺凖」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,Express Burn Plus9.11テ」ニ停┐テ」ニ陳シテ」窶堋ソテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」窶堋キテ」ニ陳ェテ」窶堋「テ」ニ陳ォテ」窶堋ュテ」ニ陳シkeygen,Maharashtra Shikshan Sevak GR For Maternity Leave
60a1537d4d lareve
https://colab.research.google.com/drive/1EwRPEj1zwHOSBkN5Lb5KDkj1MCMc6-7e
https://colab.research.google.com/drive/10PuLn7U_Y-2b5SoP125Y2D8cpmQxFM52
https://colab.research.google.com/drive/1MAzR8y64Y3adtqmh4QZjEY8ZT2GVwZgn
https://colab.research.google.com/drive/1ETjeyO42J9QKttEEaeNmR0JKb6BpM9nt
https://colab.research.google.com/drive/1XXNiYxsNU1yL9A6ztouP4PXxnmY7qfQY


https://hydiamonds.com/lorem-ipsum-dolor-sit/
Posted by lareve at 2022年08月07日 13:44
IVECOPOWERテ」ニ陳ゥテ」ニ停テ」ニ陳ウテ」窶堋「テ」ニ陳。テ」ニ陳ェテ」窶堋ォ,テ」窶堋ェテ」ニ陳シテ」ニ塚�テ」ニ陳�テ」ニ陳・テ」ニ陳シテ」ニ陳ウEfx3テ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」ニ椎セテ」窶堋ォテ」ニ陳ュテ」ニ停ケテ」ニ陳ォ,HDテ」窶堋ェテ」ニ陳ウテ」ニ陳ゥテ」窶堋、テ」ニ陳ウテ」ニ停氾」ニ陳ャテ」ニ陳シテ」ニ陳、テ」ニ陳シテッツシヒ�Mitwa Marathi Movie Download Hd 1080テッツシ窶ー
60a1537d4d millat
https://colab.research.google.com/drive/1hjtGXhWKIxIuPHBWXZMkm_yFQ_iJyC2l
https://colab.research.google.com/drive/165_6r9eEwrJjEs1ozcZt0QOZlUSrA1CB
https://colab.research.google.com/drive/1kQWaEowrJlE-f5MvTpUbCEawftjpeDpV
https://colab.research.google.com/drive/1vn0QJJeCxuusvh1xBrtjJE4iSmJ2h4sB
https://colab.research.google.com/drive/1CaNwwle0nOljD4UswNSQK4t7scDNKt6R


http://asiandreamland.com/2007/02/01/the-perfect-ass/
Posted by millat at 2022年08月07日 22:13
CRACK Windows 10 Enterprise 2019 LTSC X64 ESD en-US OCT 2018,odeonテゥナクツウテゥナクツソテ」窶堋ステ」ニ停「テ」ニ塚�テ」窶堋ヲテ」窶堋ァテ」窶堋「テ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,Microsoft Sql Server 2008R2テ」窶堋キテ」ニ陳ェテ」窶堋「テ」ニ陳ォテ」窶堋ュテ」ニ陳シ
60a1537d4d amalchum
https://colab.research.google.com/drive/180HsQQ2yPzXsqZP3r-4ZUgO-byu9373l
https://colab.research.google.com/drive/1KzUQ-fv1r9pFS-PUnyd--KA4ysGNHhoP
https://colab.research.google.com/drive/1Bo06t-vAz53FL84fkjTipQxv3sbZ25Lx
https://colab.research.google.com/drive/1PAXyeWgLfsfpFCGvjKIUI_k0GC9IQwRD
https://colab.research.google.com/drive/1rZkaQpVxFjC4rlB2Q8sSrRluxO7J6pAA


https://aakritisdelight.com/product/boraca-chocolate-cake/
Posted by amalchum at 2022年08月08日 00:42
Autocad 201164テ」ニ停愿」ニ槌津」ニ塚�テ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテァ窶楪。テヲ窶凪┐テヲ竄ャツ・テヲツオツ�テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,Lopgoldテ」ニ陳ュテ」窶堋ーテ」窶堋、テ」ニ陳ウテ」ニ停佚」窶堋ケテ」ニ陳ッテ」ニ陳シテ」ニ停ー,テァ窶コ窶氾ァ窶敖ィテ」ニ陳�テ」窶堋ァテ」ニ槌津」窶堋ォテ」ニ陳シXテ」窶堋キテ」ニ陳ェテ」窶堋「テ」ニ陳ォテ」窶堋ュテ」ニ陳シ2017
7193e21ce4 ulaern
https://crackwhale.com/
https://winkeys.net/
https://appscracks.com/
https://softscollection.com/
https://newcracks.org/


http://sego-don.com/archives/1/
Posted by ulaern at 2022年09月12日 07:05
X-force Civil 3D2016テ」窶堋ュテ」ニ陳シ,テ」窶堋キテ」ニ陳テ」窶堋コ3テ」窶堋キテ」ニ陳シテ」窶堋コテ」ニ陳ウ16.0CDテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」ツ�ツェテ」ツ≫�,テ」ニ停凖」ニ陳ウテ」ニ停。テ」窶堋」テ」ニ陳シティツェナセ720pテ」ツ�ツョGudduRangeela https://thecracks.net/
74cd785c74 quyfou
Posted by quyfou at 2022年09月23日 04:13
adobe dreamweaver cc2015テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」ツ≫堙」窶塲,CRACKテ」窶壺凖、ツスツソテァ窶敖ィテ」ツ≫氾」ツ�ナクTI-SmartViewテッツシヒ�テ」ニ塚�テ」ニ陳ゥテ」窶堋、テ」窶堋「テ」ニ陳ォテッツシ窶ー,テ・ナ陳サテァ邃「窶堙」窶堋ウテ」ニ陳シテ」ニ停。テ」窶堋」テ」ニ陳ウテ」窶堋ーティツウ窶。テヲ窶凪┐pdfテァ窶楪。テヲ窶凪┐テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー
74cd785c74 farines
https://filesduck.com/
https://fatfolder.com/
https://fatfiles.net/


https://www.vandenplas.de/two-more-shows-of-everyman/
Posted by farines at 2022年09月23日 20:32
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント: