[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『データの転記、シート振り分けについて』(f)
皆様
お世話になります。fと申します。
VBAのデータ転記、シートの振り分けについて2点教えていただきたいことがあります。
目標は転記元エクセルファイルからマクロワークブックにデータを転記しようとしております。
1.シートの振り分けについて
現在は指定のパスにあるエクセルファイル(複数)を転記先の1つのシートに転記するところまで何とかできたのですが、転記元「B2セルの値」に応じて転記するシートを振り分けたいのです。
B2は仮にA,B,C,Dのいずれかのデータのみが入力されると仮定して、それらを左から転記先シートA、シートB、シートC、シートDに振り分けたいです(転記元Bの値がAならシートAに転記、CならシートCに転記するイメージです)。
2.別シートからのデータの転記について
転記元エクセルのデータ入力してあるシートではなく、別のシート(マスタシート)からデータを転記したいのですが、うまくいきません。
■転記元データ入力シート
B5セル:都道府県名
C5セル:市町村名
■転記元データマクロシートを
D列:都道府県
E列:市町村名
C列:D,Eの各行に応じた地域コード的な数字5桁が入力されている
※DとEの値で主キーになります。
■希望処理
B5、C5セル内容に応じた地域コードを転記先シートのBR列に転記したいのです。
VLOOKUPやINDEX、MATCH関数などが該当すると思うのですが、恥ずかしながらこのコードに組み込むことができませんでした。
お知恵を貸していただけると幸いです。
以上、よろしくお願いいたします。
以下現状のコードです。
Sub 転記()
Dim fpath As String, fname As String
Dim wb As Workbook Dim sh1 As Worksheet, sh2 As Worksheet
Application.ScreenUpdating = False
fpath = ThisWorkbook.Path & "\転記元\" Set sh1 = ThisWorkbook.Worksheets("転記先") i = 2 fname = Dir(fpath & "*.xlsx", vbNormal) Do Until fname = "" If fname <> ThisWorkbook.Name Then Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh2 = wb.Worksheets("転記元データ") Set sh3 = wb.Worksheets("マスタ") i = i + 1 With sh1 .Range("A" & i).Value = sh2.Range("B2").Value .Range("B" & i).Value = sh2.Range("D6").Value
省略
.Range("BS" & i) = 2の地域コードを転記
End With wb.Close SaveChanges:=False End If fname = Dir() Loop Application.ScreenUpdating = True
End Sub
< 使用 Excel:Excel2016、使用 OS:Windows10 >
(隠居じーさん) 2019/02/15(金) 18:53
質問:転記先のセルアドレスは何処なのでしょうか。
回答:SH1のBS列になります。BS列に転記すべき情報である地域コードはマスタシートのSh3にしかないもので、それの主キーがD列とE列量列の情報というイメージです。
■転記元データ入力シート
B5セル:都道府県名 (北海道)
C5セル:市町村名 (札幌市)
■転記元データマスタシート
県情報:北海道(D列)
市町村情報:札幌市(E列)
地域コード:00001(C列)
データ内容をB5セル C5セルで判断してそれに対応する地域コードを転記先のBS列に引っ張るというイメージです。
以上、よろしくお願いいたします。
(f) 2019/02/15(金) 19:19
いえ、こちらこそ、理解力が乏しく申し訳ありません。 転記元は詳しくご説明戴き、輪郭は、何となく解りました。 転記先の件ですが 空のシートに入力シートの情報を全て転記、 地域コード:00001(C列)を マスターシートより判別して転記先シートの BS列に追加書込み との理解でよろしいでしょうか。 複数book処理との事なので。 転記先、シート振り分けで、どんどん追加書込みでしょうか。 重複する情報はありえませんか。あれば、どの様に、無視、主キーで上書き、重複も追加 それとも 既に情報は書込み済で地域コード:00001(C列) のみ処理でしょうか。 BS列の左右の列はどうなっていますか。右端、中間?は無いとは思いますが なにせ、シートの状態を拝見するわけにはいきませんので。 項目は何行目で情報は何行から〜等実際の情報と1セルでも食い違いが有ると誤動作します。 出来れば A B C D 〜 BS 1 県名 町名 地域 担当 2 山県 川町 海 担当A 3
情報名は実名ではではなく仮名、で結構です。 シート名、セル番地が分かるようにお願いしてよろしいでしょうか。
(隠居じーさん) 2019/02/15(金) 20:05
追伸 BS列 BR列 どちらが本当ですか。 もし既に情報は入力済みで地域コード:00001(C列)を 上記いづれかに書き込みだけでしたら転記先のシートのどの列を見て 書込み行を判定するのか教えて下さい。 多分想像ではシートを分けるとおっしゃっておられるので 全件、もしくは上記のみ?書込めば良いのでしょうか。 質問ばかりで済みません。でも想像で書いてもまた書き直し みたいな感じになりますのでご理解ください。 でわ m(__)m
(隠居じーさん) 2019/02/15(金) 20:26
A B C D E F G H I J K 1 2 シート名 C 3 4 項目-1 県名 市町村 項目-4 項目-5 項目-6 項目-7 項目-8 項目-9 項目-10 項目-11 5 I X9村 13,505 59,386 70,416 17,603 38,463 77,315 23,861 29,268 6 D X4村 27,595 44,547 33,008 79,130 13,140 6,154 72,177 89,291 7 B X2村 93,831 24,650 80,366 23,187 69,059 62,366 14,896 13,459 8 A X1村 21,181 93,243 27,944 47,417 89,002 71,469 97,807 27,892 9 E X5村 24,721 2,542 8,988 2,305 73,227 45,518 72,615 28,154 10 J X10村 99,819 81,974 39,553 40,765 49,583 9,703 3,702 11,287 11 H X8村 19,169 11,724 19,982 44,795 95,230 40,795 99,876 88,000 12 G X7村 87,203 95,944 38,346 12,322 50,950 59,426 9,957 11,800 13 C X3村 93,459 7,121 66,357 17,968 29,983 26,816 63,748 28,121 14 F X6村 96,690 44,217 20,868 77,523 69,364 89,473 12,941 35,553 とりあえず、転記元BOOKの、"転記元データ"、ーシートが上記の様な フォーマットであると推測してコード書いてみますね。 暫時お待ちください。。。^^ w できるかなぁ。。。( ̄▽ ̄)。。。m(__)m
(隠居じーさん) 2019/02/15(金) 21:41
転記元BOOKの、"マスタ"、シート。。。想像、アンド、仮定図
A B C D E 1 県名 ID 市町村 2 A 10001 X1村 3 B 10002 X2村 4 C 10003 X3村 5 D 10004 X4村 6 E 10005 X5村 7 F 10006 X6村 8 G 10007 X7村 9 H 10008 X8村 10 I 10009 X9村 11 J 10010 X10村 (隠居じーさん) 2019/02/15(金) 21:47
A B C D E F G H 〜 BS まで 1 2 項目-1 項目-2 項目-3 項目-4 項目-5 項目-6 項目-7 項目-8 〜 3 4 5 6 7 8
転記先BOOKの"転記先"、シート ↑
転記元BOOKの、"転記元データ"、シートも、BR列まで情報有り で。。。 でわ
(隠居じーさん) 2019/02/15(金) 21:54
♪〜(´ε` )ひゅ〜ひゅ〜〜 冷やかしの口笛です。(^^; >Sub お題作成最終版しっかり頼むぜSoulMan今度こそ() 使っちゃいますぅ??? (SoulMan) 2019/02/15(金) 22:31
こんばんは ^^ おおおおをぉ〜〜〜 SoulMan 様、お師匠様。。。今、何とかコードは書いたのですが。。。 なんと心強い。。。お言葉。。。お師匠様のご執筆をお待ちいたしておりました。 m(_ _)m
(隠居じーさん) 2019/02/16(土) 00:24
おはようございます。
あぁぁぁぁ、、、すみません。単なる野次馬です。(^^;
馬??そうそう、、今日は、、お馬ちゃんモードになるかもです。
ただ、大作になりそうなので例のやつでレイアウトを確かめてからの方がいいんじゃないかなぁと思っただけです。
お手を止めさせちゃって申し訳ございません。。。m(__)m (SoulMan) 2019/02/16(土) 07:07
おはようございます。(#^.^#) トピ主様のお返事を待って。難航しそぉなら例のものを使わせていただいても よろしいでせうか。 とりあえず、先行いたしますので。。。 よろしければ御助けを( ̄▽ ̄) oO!〜Help〜Help,me!!!。。。ってまだ早いか(笑い) 当てにしてます。 御馬さん、頑張ってくださいね (^^)v でわでわ (隠居じーさん) 2019/02/16(土) 07:17
私でよければ全力でバックアップ致します。 大した力にはなりませんが、、 今日も楽しみましょう よろしくお願します (SoulMan) 2019/02/16(土) 07:23
SoulMan様、ありがとうございます。 そうおっしゃっていただけると助かります。100人力を得たようです。! こちらこそ、宜しくお願い致します。m(__)m とりあえず、こさえたのアップいたしますね。
例の如くバックアップ必須!恐怖の推測と憶測によるじーさんコードです。A^_^; 。。。
Option Explicit Sub 転記_By_Inkyo_Jisan() 'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。 Const BaseBookName As String = "データ転記.xlsm" Dim fpath As String, fname As String Dim wb As Workbook Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Dim sh4 As Worksheet Dim rr As Range Dim mr As Range Dim Snm Dim i As Long Dim j As Long Dim y As Long Dim BB As Workbook '振り分けする転記先のシート名、並び変えたい順番に左から記入 Snm = Array("A", "B", "C", "D") If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then Sheet_Delete Snm End If Set BB = Workbooks(BaseBookName) fpath = BB.Path & "\転記元\" Set sh1 = BB.Worksheets("転記先") fname = Dir(fpath & "*.xls*") Do Until fname = "" If fname <> BB.Name Then y = 3 Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh2 = wb.Worksheets("転記元データ") Set sh3 = wb.Worksheets("マスタ") Set rr = sh2.Range("A4").CurrentRegion Set mr = sh3.Range("C1").CurrentRegion '書込み先シート名をsh2.Range("B2")の値で振り分け処理 On Error Resume Next i = WorksheetFunction.Match(sh2.Range("B2").Value, Snm, 0)
If Err.Number > 0 Then MsgBox "シート名が設定されていません" & vbNewLine & _ "確認後設定してやり直してください。" On Error GoTo 0 For j = 1 To Windows.Count If ActiveWorkbook.Name <> BaseBookName Then ActiveWorkbook.Close False End If Next Sheet_Delete Snm Exit Sub End If
On Error Resume Next Set sh4 = BB.Worksheets(Snm(i - 1)) If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = Snm(i - 1) Set sh4 = BB.Worksheets(Snm(i - 1)) End If On Error GoTo 0 With sh4 For i = 2 To rr.Rows.Count y = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 '******************************************************* '1行、全列、転記 .Cells(y, 1).Resize(, 70) = rr(i, 1).Resize(, 70).Value 'シート名を上書き .Cells(y, 1) = sh2.Range("B2").Value '* 〜 * この辺は適当に実際の情報に合わせて書き換えて下さい '******************************************************* 'BS列に地域コードを書込み For j = 2 To mr.Rows.Count If (rr(i, 2) = mr(j, 1)) * (rr(i, 3) = mr(j, 3)) Then .Range("BS" & y) = mr(j, 2) End If Next Next End With wb.Close SaveChanges:=False End If fname = Dir() Loop For i = UBound(Snm) To 0 Step -1 On Error Resume Next Worksheets(Snm(i)).Move before:=Worksheets(1) On Error GoTo 0 Next End Sub Private Sub Sheet_Delete(ByVal Snm As Variant) Dim i As Long Dim log As String Application.DisplayAlerts = False For i = 0 To UBound(Snm) On Error Resume Next Worksheets(Snm(i)).Delete On Error GoTo 0 Next Application.DisplayAlerts = True End Sub (隠居じーさん) 2019/02/16(土) 07:54
SoulMan様。。。お馬さん 行ってくださいね〜〜〜 ^^ わたしも日中はおでかけで〜す。 多分、トピ主様も土日はお休みで。お返事は。。。週明けかもですね〜 でわでわ よろしくお願いいたします。 かる〜いのりのじーさんで。。。すみません m(__)m、m(__)m、m(__)m
1.説明コメントの位置が不適切な為場所を変更いたしました 2019/02/16 08:17 2.シート名間違い対応、エラー処理を追加しました いまのうち、いまのうち。。。( ̄▽ ̄) 2019/02/16 11:06
(隠居じーさん) 2019/02/16(土) 08:07
ご連絡が遅れ大変申し訳ございません
たくさんのご回答ありがとうございます。
休日はネット環境がない環境におりまして。。。。
申し訳ございません。
確認させていただきます。
まずはこちらのシート構成の詳細を提示いたします。
がもう少々お待ちください。。。。
申し訳ございませんでした。
以上、よろしくお願いいたします。
(f) 2019/02/18(月) 11:57
お世話になっております。fです。
すみません。あれから少しいろいろありまして少し実現したいことが変わってしまいました。。
2019/02/16(土) 07:54投稿していただいたコードについて、まだ内容を確認中でして、頭が追い付いてません。すみません。
レイアウト、変更点について詳細を以下に説明します。★部分は新規追加の事項です。
■やりたいこと
指定のパスにある、各エクセルファイル(転記元)の内容をマクロエクセル(転記先ファイル)に転記する。その際、情報入力シートのB2セルに入力された情報(★入力制御により5パターンのみ)によって転記先のシートをわける。
転記先シートには情報入力シートを取り込むための計4シートと、検査シートを取り込むための計4シートです。
※B2の値が5パターンにもかかわらず、情報、検査ともに4シートの理由は下部の■転記先マクロ付きエクセルで説明します)
・転記元ファイルのシート(情報入力シート、検査シート、マスタ(都道府県)、★マスタ(管理))はすべてのエクセルファイル同じレイアウトです。
・情報入力シートを取り込むためのて計4つの転記先シートのレイアウトはすべて同じです
・検査シートを取り込むための計4つの転記先4シートのレイアウトはすべて同じです
■転記元エクセル(フォーム形式で全エクセルレイアウト同一、)
シート構成:情報入力シート、検査シート、マスタ(都道府県)、★マスタ(管理)
1.情報入力シートの主要なセル:B2(情報入力シート)に転記先を判別する情報あり(種類みないなものです)
B5(情報入力シート):都道府県名、C5(情報入力シート):市町村名(後述する市町村コード判断に必要)
G2セル(情報入力シート):管理者名(★新規項目です。転記先シートB列にG2セルに入力された値に対応する管理者コードをマスタ(管理)シートから判断し、転記する。
・上記以外にも、転記したいセルはあるのですが、
.Range("〇〇" & i).Value = sh2.Range("〇〇").Valueの形で取得可能な項目のため、省略させていただきます。 ・データ範囲としてはD列〜AA列、10行目〜42行目(空欄、項目名などもあるので、すべてに値が入っているわかではないです。1行目はフォームの見出しです。)
2.検査シート
1情報入力シートと似ておりますが、検査結果を入力するシートなので、そのまま入力値を転記先検査シートに転記するだけのシートです
・データ範囲としてはB列〜N列、2行目〜21行目(空欄、項目名などもあるので、すべてに値が入っているわかではないです。1〜9行目は項目名です。)
3.マスタ(都道府県):
D列:都道府県名
E列:市町村名
C列:市町村コード
データ範囲:2行目〜1964行目
・このシートの用途としては、1.情報入力シートのB5、C5セルとマスタ(都道府県シート)のD列とE列を照合し、合致するC列市町村コードを、
転記先ファイルの情報入力シート転記シートのBS列に転記したいです。
★3.マスタ(管理):
列範囲:C〜L列
3行名:管理者コード(C〜L列で全10パターン)
7行目〜20行目:管理者名
・このシートの用途としては、1.情報入力シートのG2に入力された管理者名をマスタ(管理)シートの列:C〜L列、行:7から20を照合し、合致した列の3行目の管理者コードの値を転記先ファイルの情報入力シート転記シートのB列と★転記先ファイルの検査シートB列に転記したいです。
■転記先マクロ付きエクセル
※転記元エクセル情報入力シートのB2セルにA、B、C,D、Eの5パターンのうちいずれかが入力されると仮定します。
シート構成:
情報入力シート(A)、情報入力シート(B)、情報入力シート(C)、情報入力シート(D)←レイアウトはA〜D同じ
検査シート(A)、検査シート(B)、検査シート(C)、検査シート(D)←レイアウトはA〜D同じ
データ範囲
情報入力シート:列A〜BV、行3行目からデータが入力されている(A〜Dで同様)
検査シート:列A〜ZW、7行目からデータが入力されている(A〜Dで同様)
●5パターンなのに4シートの理由としては、B2にEが入力された場合は、Dと同様とみなし、Dシートに転記したいからです。
★その他実現したいこと
・最終的にはボタンからの動作を考えているのですが、[ボタン]をクリックした際、転記ができないファイルが存在する場合に、そのファイル名を含むメッセージが出せるのでしょうか?
・出力が完了した際に、完了メッセージを表示したいのですがかのうでしょうか?(←こちらは調べたところ可能そうですね)
・重複があるファイル以外は出力し、転記先エクセルに「エラー出力」シートを追加し、重複があるファイル名、取込作業日を出力する
・既に転記先エクセルにデータが出力されている状態で、再度出力した際、下記の処理が可能か。
1.ファイル名から判断して同じなら上書き、無ければ追加
2.同じファイル名がある場合に確認メッセージ ⇒ [OK]で上書き、[キャンセルで処理取り消し]
以上、長くなりましたが、よろしくお願いいたします。
(f) 2019/02/18(月) 19:48
こんばんは^^拝見いたしました。 理解できるよう。努力ははいたしますが。。。できれば(隠居じーさん) 2019/02/15(金) 21:41 で アップさせていただきました予測シート図のようにセル番地が解る表形式で 規則性が判断できる範囲でよろしいかと思いますので。 読込シート(これとこれのこことあそこを読んで) 書込みシート(ここと、かしこにこういうう判断でこう書き込む) みたいな感じでお願いいたします。 ↑の件でコンパクトにしたダミー情報を簡単に共有出来るツールをSoulmanさんが お持ちですのでお借りして、ここに結果をアップしていただくこともお考えいただければ 幸甚です。お願いすれば使わせて戴けると思います。 多分ダメだったと思いますが先日のコード実行結果も合わせて教えていただけますでしょうか。 では、暫くわたしもご提示いただいた内容を熟読してみます。 だれか、ポンと書いてくださるといいですね^^; m(_ _)m
(隠居じーさん) 2019/02/18(月) 20:25
ご回答ありがとうございます。本当にありがとうございます。
承知いたしました。
大変申し訳ございませんが、まだ作成していただいたコードについて試せておりませんでした。。
明日実行させていただきます。
Soulman様
ダミー情報作成ツールをお借りすることは可能でしょうか。
以上、よろしくお願いいたします。
(f) 2019/02/18(月) 20:32
ここに↓
ちょっとふざけた名前のコードがありますから、、じゃんじゃん使ってください。
Sub お題作成最終版しっかり頼むぜSoulMan今度こそ()
Upするときは、個人情報に注意してくださいね。量は、最小限でお願いします。
>ダミー情報作成ツール
いいねぇ、、、もうちょっとこましなネーミングにしとけばよかったね。
しかし、、名前、、付けるの下手だよね(笑)、、その時々は、大真面目なんだけどね。_| ̄|○
隠居じーさん さん、、平日は、時間がなくて申し訳ありません。
ちょっと文章だけではわかりませんよね。(^^;
頑張ってくださいね。
では、では、 (SoulMan) 2019/02/18(月) 21:03
SoulManさん こんばんは ^^ ありがとうございます。 >>隠居じーさん さん、、平日は、時間がなくて申し訳ありません。 いえいえ すみません。 また、宜しくお願いいたします。 m(_ _)m
(隠居じーさん) 2019/02/18(月) 21:16
fさん こんばんは^^ SoulManさん も快諾されていますので。 ダミー情報、たくさんで作成するの大変でしょうけど 出来ましたら、またご連絡ください。 ここにテキスト変換してアップしなくても 一つずつ、お借りしたマクロでシートの解析が出来ますので。 自動で作成されたコードをそのままここにアップするだけで済みます。 使い方等、ご説明させていただきますので。。。 ではおまちしております。 (隠居じーさん) 2019/02/18(月) 21:45
おはようございます ^^ >>★その他実現したいこと >> ・最終的にはボタンからの動作を考えているのですが、[ボタン]をクリックした際、転記ができない >>ファイルが存在する場合に、そのファイル名を含むメッセージが出せるのでしょうか?
○ 何をもって転記出来ないと判断するかの基準が明確であれば出来ます。
>>・出力が完了した際に、完了メッセージを表示したいのですがかのうでしょうか?(←こちらは調べたと >>ころ可能そうですね)
○そぉですね簡単です。
>>・重複があるファイル以外は出力し、転記先エクセルに「エラー出力」シートを追加し、重複がある ファ >>イル名、取込作業日を出力する
○これも何をもって重複とするかの定義が有れば可能です。同じファイル名の事とか、 また下記のご質問。(重複があるファイル以外は出力し)と矛盾するかもしれません
>>・既に転記先エクセルにデータが出力されている状態で、再度出力した際、下記の処理が可能か。 >> 1.ファイル名から判断して同じなら上書き、無ければ追加 >> 2.同じファイル名がある場合に確認メッセージ ⇒ [OK]で上書き、[キャンセルで処理取り消 >>し] ○1.上書きの方法により必要項目が変わりますが、いずれにしましても。同じ情報かどうかを 識別できる、項目、キー、(日付、処理コード等)が必要です。 ○2.可能です。
上記項目を実現するにはやはり的確な情報の把握が不可欠です。 ただ、最初にご提示されたコードを拝見し。そのままファイルの読込みルーチンは 私のサンプルコードにも使わせていただいております。これほどスキルがおありなら お困りの箇所だけサンプルデーターをSoulmanさんツールで作成後、お尋ねいただくのも有りかと。 当方はどちらでもいいですよ。。。とりあえずご報告まで。お急ぎでなければ、ゆっくりご一緒に 他の回答者様のアドバイスもいただきながら、作成致しましょう。 でわ
(隠居じーさん) 2019/02/19(火) 09:31
隠居じーさん様
ご回答ありがとうございます。
1.シートの振り分け
2.変換(市町村コード)
3.その他(メッセージ、重複)
等の優先順位で急ぎ目に解決したいと思っております。
取り急ぎ、ツールの結果を貼りたいと思いますが、少々お待ちくださいませn。
(f) 2019/02/19(火) 15:29
Private Sub SoulMan() Rem 結合状態を処理 Range("A1:N1").Merge Range("B2:D2").Merge Range("G2:H2").Merge Range("I2:J2").Merge Range("L2:N2").Merge Range("I3:J3").Merge Range("M3:N3").Merge Range("B4:D4").Merge Range("F4:J4").Merge Range("L4:N4").Merge Range("D5:J5").Merge Range("L5:N5").Merge Range("B6:C6").Merge Range("E6:F6").Merge Range("H6:N6").Merge Range("B8:D8").Merge Range("F8:H8").Merge Range("I8:J8").Merge Range("K8:N8").Merge Range("B9:D9").Merge Range("F9:H9").Merge Range("I9:J9").Merge Range("K9:N9").Merge Range("C10:D10").Merge Range("I10:J10").Merge Range("L10:N10").Merge Range("C11:D11").Merge Range("G11:H11").Merge Range("I11:J11").Merge Range("L11:N11").Merge Range("C12:D12").Merge Range("G12:H12").Merge Range("I12:J12").Merge Range("K12:N12").Merge Range("B14:C14").Merge Range("E14:F14").Merge Range("H14:J14").Merge Range("L14:N14").Merge Range("B15:C15").Merge Range("E15:F15").Merge Range("H15:J15").Merge Range("M15:N15").Merge Range("B16:C16").Merge Range("E16:F16").Merge Range("H16:J16").Merge Range("L16:N16").Merge Range("B18:C18").Merge Range("E18:F18").Merge Range("B19:D19").Merge Range("E19:F19").Merge Range("H19:N19").Merge Range("A23:N23").Merge
Rem 数式セル以外をまとめて処理 Range("A1").Value = "〇〇" Range("A2").Value = "〇〇" Range("B2").Value = "〇〇" Range("E2").Value = "〇〇" Range("F2").Value = "〇〇" Range("G2").Value = "〇〇" Range("I2").Value = "〇〇" Range("K2").Value = "〇〇" Range("L2").Value = 9〇〇" Range("A3").Value = "〇〇" Range("I3").Value = "〇〇" Range("M3,I18:J18,M18〇〇" Range("A4").Value = "〇〇" Range("B4").Value = "〇〇" Range("E4").Value = "〇〇" Range("F4").Value = "〇〇" Range("K4").Value = "〇〇" Range("L4").Value = "〇〇" Range("A5").Value = "〇〇" Range("B5").Value = "〇〇" Range("C5").Value = "〇〇" Range("D5").Value = "〇〇" Range("K5").Value = "〇〇" Range("L5").Value = 5〇〇" Range("A6").Value = "〇〇" Range("B6").Value = 3〇〇" Range("D6").Value = "〇〇" Range("E6").Value = 1〇〇" Range("G6,I12,G19").V〇〇" Range("H6,H19").Value〇〇" Range("A7").Value = "〇〇" Range("A8").Value = "〇〇" Range("B8").Value = "〇〇" Range("E8").Value = "〇〇" Range("F8").Value = "〇〇" Range("I8").Value = "〇〇" Range("K8").Value = "〇〇" Range("A9").Value = "〇〇" Range("B9").Value = "〇〇" Range("E9").Value = "〇〇" Range("F9").Value = "〇〇" Range("I9").Value = "〇〇" Range("A10").Value = 〇〇" Range("B10").Value = 〇〇" Range("C10").Value = 〇〇" Range("E10").Value = 〇〇" Range("F10").Value = 〇〇" Range("G10").Value = 〇〇" Range("H10").Value = 〇〇" Range("I10").Value = 〇〇" Range("K10,B11,F11").〇〇" Range("L10").Value = 〇〇" Range("A11").Value = 〇〇" Range("C11").Value = 〇〇" Range("E11").Value = 〇〇" Range("G11").Value = 〇〇" Range("I11").Value = 〇〇" Range("K11,B12,L16,B2〇〇" Range("L11").Value = 〇〇" Range("A12").Value = 〇〇" Range("C12").Value = 〇〇" Range("E12").Value = 〇〇" Range("F12").Value = 〇〇" Range("G12").Value = 〇〇" Range("K12").Value = 〇〇" Range("A13").Value = 〇〇" Range("A14").Value = 〇〇" Range("B14").Value = 〇〇" Range("D14").Value = 〇〇" Range("E14").Value = 〇〇" Range("G14").Value = 〇〇" Range("H14").Value = 〇〇" Range("K14").Value = 〇〇" Range("L14,B15").Valu〇〇" Range("A15").Value = 〇〇" Range("D15").Value = 〇〇" Range("E15").Value = 〇〇" Range("G15").Value = 〇〇" Range("H15").Value = 〇〇" Range("K15").Value = 〇〇" Range("L15").Value = 〇〇" Range("M15").Value = 〇〇" Range("A16").Value = 〇〇" Range("B16").Value = 〇〇" Range("D16").Value = 〇〇" Range("E16").Value = 〇〇" Range("G16").Value = 〇〇" Range("H16").Value = 〇〇" Range("K16").Value = 〇〇" Range("A17").Value = 〇〇" Range("A18").Value = 〇〇" Range("B18").Value = 〇〇" Range("D18").Value = 〇〇" Range("E18").Value = 〇〇" Range("G18").Value = 〇〇" Range("H18").Value = 〇〇" Range("K18").Value = 〇〇" Range("L18").Value = 〇〇" Range("A19").Value = 〇〇" Range("B19").Value = 〇〇" Range("E19").Value = 〇〇" Range("A21").Value = 〇〇" Range("C21").Value = 〇〇" Range("D21").Value = 〇〇" Range("A23").Value = 〇〇" Range("A24").Value = 〇〇" Range("A25").Value = 〇〇"
Rem 数式セルをまとめて処理 Range("K3").FormulaR1C1Local = "=IF(R[-1]C[-9]="""","""",VLOOKUP(R[-1]C[-9],'シート名'!R4C9:R9C10,2,0))" Range("L3").FormulaR1C1Local = "=IF(R[-1]C[-10]="""","""",CONCATENATE(VLOOKUP(R[-1]C[-6],''シート名'!R5C2:R14C3,2,0),VLOOKUP(R[-1]C[-5],'マスタ(メンテナンス番号)'!R4C6:R102C7,2,0)))"
Rem 標準外書式セルをまとめて処理 Range("M3:N3").NumberFormatLocal = "00000" Range("L5:N5").NumberFormatLocal = "#,##0.000;[赤]-#,##0.000" Range("R5:S5,B6:C6,E6:F6").NumberFormatLocal = "0""度""00""分""00.0""秒""" Range("B10,L15").NumberFormatLocal = "#,##0;[赤]-#,##0" Range("F12,H18,L18").NumberFormatLocal = "G/標準""年""" Range("G12:H12,I18,M18").NumberFormatLocal = "G/標準""月""" Range("B16:C16,E16:F16").NumberFormatLocal = "#,##0.0;[赤]-#,##0.0" Range("J18,N18").NumberFormatLocal = "G/標準""日"""
Rem 塗りつぶしセルをまとめて処理 Range("A2,E2,K2,I3:J3,M3:N3,A4:A5,E4,K4,K5:N5").Interior.ColorIndex = 20 Range("A6:N6,A8:A12,E8:E11,I8:J11,E12:N12,A14:A15,D14:D15,G14,K14").Interior.ColorIndex = 20 Range("G15:L15,A16:G16,K16,A18:A19,D18,G18:N19,A21,C21:D21").Interior.ColorIndex = 20 Range("B2:D2,F2:J2,B4:D4,L4:N4,B5:C5,B8:D9,F8:H10,K8:N9,K10:K11,B11:B12").Interior.ColorIndex = 19 Range("F11,B14:C15,E14:F15,H14:J14,L14:N14,H16:J16,L16:N16,B18:C18,E18:F18,B21").Interior.ColorIndex = 19
Rem 列幅をまとめて処理 Range("A1:H25,K1:L25").ColumnWidth = 6.89 Range("I1:J25").ColumnWidth = 3 Range("M1:N25").ColumnWidth = 3.22 Range("O1:U25").ColumnWidth = 8.22
Rem 行高さをまとめて処理 Range("A1:U19,A21:U21").RowHeight = 21.8 Range("A20:U20,A22:U22").RowHeight = 6 Range("A23:U23").RowHeight = 351 Range("A24:U25").RowHeight = 9.6 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 15:56
Private Sub SoulMan() Rem 結合状態を処理 Range("A1:Z1").Merge Range("B3:D3").Merge Range("F3:I3").Merge Range("J3:P3").Merge Range("Q3:S3").Merge Range("T3:AA3").Merge Range("Q4:S4").Merge Range("T4:AA4").Merge Range("A5:D8").Merge Range("E5:E9").Merge Range("F5:F9").Merge Range("G5:X5").Merge Range("Y5:Y9").Merge Range("Z5:AA9").Merge Range("G6:X6").Merge Range("G7:P7").Merge Range("Q7:T7").Merge Range("U7:X7").Merge Range("G8:H8").Merge Range("I8:J8").Merge Range("K8:L8").Merge Range("M8:N8").Merge Range("O8:P8").Merge Range("Q8:R8").Merge Range("S8:T8").Merge Range("U8:V8").Merge Range("W8:X8").Merge Range("A9:B9").Merge Range("A10:A21").Merge Range("B10:B13").Merge Range("Y10:Y21").Merge Range("Z10:AA21").Merge Range("B14:B19").Merge Range("B20:B21").Merge Range("A22:A27").Merge Range("B22:B24").Merge Range("Y22:Y27").Merge Range("Z22:AA27").Merge Range("B25:B27").Merge Range("A28:A33").Merge Range("B28:B29").Merge Range("D28:D31").Merge Range("Y28:Y33").Merge Range("Z28:AA33").Merge Range("B30:B31").Merge Range("B32:B33").Merge Range("D32:D33").Merge Range("A34:A35").Merge Range("Y34:Y35").Merge Range("Z34:AA35").Merge Range("A36:A37").Merge Range("Y36:Y37").Merge Range("Z36:AA37").Merge Range("A38:A41").Merge Range("B38:B41").Merge Range("Y38:Y41").Merge Range("Z38:AA41").Merge Range("S42:X43").Merge Range("Y42:AA43").Merge Range("A45:AA46").Merge Range("A48:B48").Merge Range("C48:G48").Merge Range("H48:K48").Merge Range("L48:AA48").Merge Range("A49:B49").Merge Range("C49:G49").Merge Range("H49:K49").Merge Range("L49:AA49").Merge Range("A51:AA55").Merge Range("A56:AA56").Merge Range("A57:AA57").Merge
Rem 数式セル以外をまとめて処理 Range("A1").Value = "〇〇" Range("A3").Value = " Range("E3").Value = " Range("Q3").Value = " Range("A4").Value = " Range("Q4").Value = " Range("A5").Value = " Range("E5").Value = " Range("F5").Value = " Range("G5").Value = " Range("Y5").Value = " Range("Z5").Value = " Range("G6").Value = " Range("G7").Value = " Range("Q7").Value = " Range("U7").Value = " Range("G8").Value = " Range("I8").Value = " Range("K8").Value = " Range("M8").Value = " Range("O8").Value = " Range("Q8").Value = " Range("S8").Value = " Range("U8").Value = " Range("W8,B20,A38:B38 Range("A9").Value = " Range("C9").Value = " Range("D9").Value = " Range("G9,I9,K9,M9,O9 Range("H9,J9,L9,N9,P9 Range("A10").Value = Range("B10:C10").Valu Range("D10").Value = Range("E10").Value = Range("F10:F11").Valu Range("G10,O10,M13,H1 Range("H10,M10:N10,P1 Range("Y10").Value = Range("Z10").Value = Range("C11").Value = Range("D11").Value = Range("E11").Value = Range("C12").Value = Range("D12").Value = Range("C13").Value = Range("D13").Value = Range("W13,G16,I16,O1 Range("B14").Value = Range("C14").Value = Range("D14").Value = Range("C15").Value = Range("D15").Value = Range("C16").Value = Range("D16").Value = Range("C17").Value = Range("D17").Value = Range("C18").Value = Range("D18").Value = Range("C19").Value = Range("D19").Value = Range("C20").Value = Range("D20").Value = Range("C21").Value = Range("D21").Value = Range("A22").Value = Range("B22:C22").Valu Range("D22").Value = Range("C23").Value = Range("D23").Value = Range("C24").Value = Range("D24").Value = Range("B25").Value = Range("C25").Value = Range("D25").Value = Range("C26").Value = Range("D26").Value = Range("C27").Value = Range("D27").Value = Range("A28").Value = Range("B28").Value = Range("C28").Value = Range("D28").Value = Range("C29").Value = Range("B30:C30").Valu Range("C31").Value = Range("B32").Value = Range("C32").Value = Range("D32").Value = Range("C33").Value = Range("A34").Value = Range("B34:C34").Valu Range("D34").Value = Range("B35:C35").Valu Range("D35").Value = Range("A36").Value = Range("B36:C36").Valu Range("D36").Value = Range("B37:C37").Valu Range("D37").Value = Range("C38").Value = Range("D38").Value = Range("C39").Value = Range("D39").Value = Range("C40").Value = Range("D40").Value = Range("S42").Value = Range("A43").Value = Range("A45").Value = Range("A47").Value = Range("A48").Value = Range("H48").Value = Range("A49").Value = Range("H49").Value = Range("A51").Value = Range("A56").Value = Range("A57").Value =
Rem 数式セルをまとめて処理 Range("B3,F3").FormulaR1C1Local = "='シート名'!R[-1]C" Range("J3").FormulaR1C1Local = "=CONCATENATE(シート名'!R[-1]C[-3],"" "",'シート名'!R[-1]C[-1])" Range("T3").FormulaR1C1Local = "='シート名'!R[-1]C[-8]" Range("T4").FormulaR1C1Local = "=CONCATENATE(シート名'!R[-1]C[-9],'シート名'!R[-1]C[-8],TEXT('シート名'!R[-1]C[-7],""00000""))"
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理 Range("A3,E3,Q3:S4,A5:AA9,A10:D41,S42:X43,A48:B49,H48:K49").Interior.ColorIndex = 20 Range("E10:H10,M10:P10,W10:AA12,E11:P11,E12:H12,M12:P12,E13:F13,M13:N13,U13:AA13").Interior.ColorIndex = 19 Range("E14:H15,M14:P15,W14:AA33,E16:P16,E17:H20,M17:P20,E21:P21,E22:H22,M22:P22").Interior.ColorIndex = 19 Range("E23:P23,E24:H26,M24:P26,E27:P33,E34:F34,O34:AA34,E35:P35,W35:AA40,E36:H36").Interior.ColorIndex = 19 Range("M36:P36,E37:P38,E39:H39,M39:P39,E40:P40,E41:AA41,Y42:AA43").Interior.ColorIndex = 19 Range("I10:L10,Q10:V12,I12:L12,G13:L13,O13:T13,I14:L15,Q14:V33").Interior.ColorIndex = 48 Range("I17:L20,I22:L22,I24:L26,G34:N34,Q35:V40,I36:L36,I39:L39").Interior.ColorIndex = 48
Rem 列幅をまとめて処理 Range("A1:A58").ColumnWidth = 3.56 Range("B1:B58").ColumnWidth = 13.44 Range("C1:C58").ColumnWidth = 16.11 Range("D1:D58").ColumnWidth = 4.67 Range("E1:E58").ColumnWidth = 4.89 Range("F1:F58,Y1:Y58").ColumnWidth = 3.44 Range("G1:X58").ColumnWidth = 1.89 Range("Z1:AA58").ColumnWidth = 3.22
Rem 行高さをまとめて処理 Range("A1:AA1,A4:AA4").RowHeight = 14.3 Range("A2:AA2,A44:AA44").RowHeight = 3.8 Range("A3:AA3").RowHeight = 19.5 Range("A5:AA5").RowHeight = 10.5 Range("A6:AA7,A50:AA50,A56:AA56,A58:AA58").RowHeight = 9.6 Range("A8:AA8").RowHeight = 24 Range("A9:AA9").RowHeight = 33 Range("A10:AA16,A18:AA41,A47:AA49").RowHeight = 21 Range("A17:AA17").RowHeight = 19.2 Range("A42:AA43,A45:AA46").RowHeight = 18.8 Range("A51:AA55").RowHeight = 18 Range("A57:AA57").RowHeight = 21.8 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 15:58
Private Sub SoulMan() Rem 結合状態を処理
Rem 数式セル以外をまとめて処理 Range("B2,B5,B27").Value Range("C2,C5,C27:L27").V Range("D2,D5,M27:Y27").V Range("E2,E5,Z27:AM27"). Range("F2,F5,AN27:AS27") Range("G2,G5,AT27:BF27") Range("H2,H5,BG27:BR27") Range("I2,I5,BS27:CA27") Range("J2,J5,CB27:CH27") Range("K2,K5,CI27:CT27") Range("L2,L5,CU27:CV27") Range("B3").Value = " Range("C3").Value = Range("D3").Value = Range("E3").Value = Range("F3").Value = Range("G3").Value = Range("H3").Value = Range("I3").Value = Range("J3").Value = Range("K3").Value = Range("L3").Value = Range("B6,B28").Value Range("C7,C28").Value Range("D7,M28").Value Range("E7,Z28").Value Range("F7,AN28").Valu Range("G7,AT28").Valu Range("H7,BG28").Valu Range("I7,BS28").Valu Range("J7,CB28").Valu Range("K7,CI28").Valu Range("L7,CU28").Valu Range("C8,D28").Value Range("D8,N28").Value Range("E8,AA28").Valu Range("F8,AO28").Valu Range("G8,AU28").Valu Range("H8,BH28").Valu Range("I8,BT28").Valu Range("J8,CC28").Valu Range("K8,CJ28").Valu Range("L8,CV28").Valu Range("C9,E28").Value Range("D9,O28").Value Range("E9,AB28").Valu Range("F9,AP28").Valu Range("G9,AV28").Valu Range("H9,BI28").Valu Range("I9,BU28").Valu Range("J9,CD28").Valu Range("K9,CK28").Valu Range("C10,F28").Valu Range("D10,P28").Valu Range("E10,AC28").Val Range("F10,AQ28").Val Range("G10,AW28").Val Range("H10,BJ28").Val Range("I10,BV28").Val Range("J10,CE28").Val Range("K10,CL28").Val Range("C11,G28").Valu Range("D11,Q28").Valu Range("E11,AD28").Val Range("F11,AR28").Val Range("G11,AX28").Val Range("H11,BK28").Val Range("I11,BW28").Val Range("J11,CF28").Val Range("K11,CM28").Val Range("C12,H28").Valu Range("D12,R28").Valu Range("E12,AE28").Val Range("F12,AS28").Val Range("G12,AY28").Val Range("H12,BL28").Val Range("I12,BX28").Val Range("J12,CG28").Val Range("K12,CN28").Val Range("C13,I28").Valu Range("D13,S28").Valu Range("E13,AF28").Val Range("G13,AZ28").Val Range("H13,BM28").Val Range("I13,BY28").Val Range("J13,CH28").Val Range("K13,CO28").Val Range("C14,J28").Valu Range("D14,T28").Valu Range("E14,AG28").Val Range("G14,BA28").Val Range("H14,BN28").Val Range("I14,BZ28").Val Range("K14,CP28").Val Range("C15,K28").Valu Range("D15,U28").Valu Range("E15,AH28").Val Range("G15,BB28").Val Range("H15,BO28").Val Range("I15,CA28").Val Range("K15,CQ28").Val Range("C16,L28").Valu Range("D16,V28").Valu Range("E16,AI28").Val Range("G16,BC28").Val Range("H16,BP28").Val Range("K16,CR28").Val Range("D17,W28").Valu Range("E17,AJ28").Val Range("G17,BD28").Val Range("H17,BQ28").Val Range("K17,CS28").Val Range("D18,X28").Valu Range("E18,AK28").Val Range("G18,BE28").Val Range("H18,BR28").Val Range("K18,CT28").Val Range("D19,Y28").Valu Range("E19,AL28").Val Range("G19,BF28").Val Range("E20,AM28").Val Range("Y26:Z26,AG26:AH26,AX26").Valu Range("CF26,CK26").Va Range("B29").Value = Range("C30").Value = Range("D30").Value = Range("E30").Value = Range("F30").Value = Range("G30").Value = Range("H30").Value = Range("I30").Value = Range("J30").Value = Range("K30").Value = Range("L30").Value = Range("M30").Value = Range("N30").Value = Range("O30").Value = Range("P30").Value = Range("Q30").Value = Range("R30").Value = Range("S30").Value = Range("T30").Value = Range("U30").Value = Range("V30").Value = Range("W30").Value = Range("X30").Value = Range("AA30").Value = Range("AB30").Value = Range("AC30").Value = Range("AD30").Value = Range("AE30").Value = Range("AF30").Value = Range("AI30").Value = Range("AJ30").Value = Range("AK30").Value = Range("AL30").Value = Range("AM30").Value = Range("AN30").Value = Range("AO30").Value = Range("AP30").Value = Range("AQ30").Value = Range("AR30").Value = Range("AS30").Value = Range("AT30").Value = Range("AU30").Value = Range("AV30").Value = Range("AW30").Value = Range("AY30").Value = Range("AZ30").Value = Range("BA30").Value = Range("BB30").Value = Range("BC30").Value = Range("BD30").Value = Range("BE30").Value = Range("BF30").Value = Range("BG30").Value = Range("BH30").Value = Range("BI30").Value = Range("BJ30").Value = Range("BK30").Value = Range("BL30").Value = Range("BM30").Value = Range("BN30").Value = Range("BO30").Value = Range("BP30").Value = Range("BQ30").Value = Range("BR30").Value = Range("BS30").Value = Range("BT30").Value = Range("BU30").Value = Range("BV30").Value = Range("BW30").Value = Range("BX30").Value = Range("BY30").Value = Range("BZ30").Value = Range("CA30").Value = Range("CB30").Value = Range("CC30").Value = Range("CD30").Value = Range("CE30").Value = Range("CG30").Value = Range("CH30").Value = Range("CI30").Value = Range("CJ30").Value = Range("CL30").Value = Range("CM30").Value = Range("CN30").Value = Range("CO30").Value = Range("CP30").Value = Range("CQ30").Value = Range("CR30,AT34").Va Range("CS30").Value = Range("CT30").Value = Range("CU30").Value = Range("CV30").Value = Range("C31").Value = Range("D31").Value = Range("E31").Value = Range("F31").Value = Range("G31").Value = Range("H31").Value = Range("I31").Value = Range("J31").Value = Range("K31").Value = Range("L31").Value = Range("M31").Value = Range("N31").Value = Range("O31").Value = Range("P31").Value = Range("Q31").Value = Range("R31").Value = Range("S31").Value = Range("T31").Value = Range("U31").Value = Range("V31").Value = Range("W31").Value = Range("X31").Value = Range("AA31").Value = Range("AB31").Value = Range("AC31").Value = Range("AD31").Value = Range("AE31").Value = Range("AF31").Value = Range("AI31").Value = Range("AJ31").Value = Range("AK31").Value = Range("AL31").Value = Range("AM31").Value = Range("AN31").Value = Range("AO31").Value = Range("AQ31").Value = Range("AR31").Value = Range("AS31").Value = Range("AT31").Value = Range("AU31").Value = Range("AV31").Value = Range("AW31").Value = Range("AY31").Value = Range("AZ31").Value = Range("BB31").Value = Range("BD31").Value = Range("BE31").Value = Range("BF31").Value = Range("BG31").Value = Range("BH31").Value = Range("BI31").Value = Range("BJ31").Value = Range("BK31").Value = Range("BL31").Value = Range("BM31").Value = Range("BN31").Value = Range("BO31").Value = Range("BP31").Value = Range("BQ31").Value = Range("BR31").Value = Range("BS31").Value = Range("BT31").Value = Range("BU31").Value = Range("BV31").Value = Range("BX31").Value = Range("BZ31").Value = Range("CA31").Value = Range("CB31").Value = Range("CC31").Value = Range("CD31").Value = Range("CE31").Value = Range("CH31").Value = Range("CI31").Value = Range("CJ31").Value = Range("CL31").Value = Range("CM31").Value = Range("CN31").Value = Range("CO31").Value = Range("CP31").Value = Range("CQ31").Value = Range("CR31").Value = Range("CS31").Value = Range("CT31").Value = Range("CU31").Value = Range("CV31").Value = Range("C32").Value = Range("E32").Value = Range("F32").Value = Range("G32").Value = Range("J32").Value = Range("K32").Value = Range("L32").Value = Range("M32").Value = Range("N32").Value = Range("O32").Value = Range("P32").Value = Range("Q32").Value = Range("T32").Value = Range("U32").Value = Range("V32").Value = Range("W32").Value = Range("X32").Value = Range("AA32").Value = Range("AB32").Value = Range("AC32").Value = Range("AD32").Value = Range("AE32").Value = Range("AF32").Value = Range("AI32").Value = Range("AJ32").Value = Range("AK32").Value = Range("AL32").Value = Range("AM32").Value = Range("AN32").Value = Range("AO32").Value = Range("AR32").Value = Range("AS32").Value = Range("AT32").Value = Range("AU32").Value = Range("AV32").Value = Range("AW32").Value = Range("AZ32").Value = Range("BD32").Value = Range("BF32").Value = Range("BG32").Value = Range("BJ32").Value = Range("BM32").Value = Range("BN32").Value = Range("BQ32").Value = Range("BR32").Value = Range("BS32").Value = Range("BT32").Value = Range("BU32").Value = Range("CA32").Value = Range("CB32").Value = Range("CD32").Value = Range("CH32").Value = Range("CI32").Value = Range("CJ32").Value = Range("CL32").Value = Range("CN32").Value = Range("CP32").Value = Range("CQ32").Value = Range("CR32").Value = Range("CS32").Value = Range("CT32").Value = Range("C33").Value = Range("F33").Value = Range("J33").Value = Range("L33").Value = Range("M33").Value = Range("N33").Value = Range("O33").Value = Range("P33").Value = Range("T33").Value = Range("AE33").Value = Range("AF33").Value = Range("AI33").Value = Range("AJ33").Value = Range("AK33").Value = Range("AL33").Value = Range("AM33").Value = Range("AN33").Value = Range("AO33").Value = Range("AR33").Value = Range("AS33").Value = Range("AT33").Value = Range("AW33").Value = Range("AZ33").Value = Range("BD33").Value = Range("BJ33").Value = Range("BN33").Value = Range("BR33").Value = Range("BT33").Value = Range("BU33").Value = Range("CA33").Value = Range("CH33").Value = Range("CJ33").Value = Range("CQ33").Value = Range("CT33").Value = Range("N34").Value = Range("O34").Value = Range("P34").Value = Range("T34").Value = Range("AE34").Value = Range("AI34").Value = Range("AJ34").Value = Range("AK34").Value = Range("AM34").Value = Range("AN34").Value = Range("AO34").Value = Range("AW34").Value = Range("CA34").Value = Range("CQ34").Value = Range("P35").Value = Range("AI35").Value = Range("AJ35").Value = Range("AO35").Value = Range("AW35").Value = Range("CA35").Value = Range("P36").Value = Range("AI36").Value = Range("AW36").Value = Range("P37").Value = Range("P38").Value =
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理 Range("B2:B3,B5:B6,B27:B29").Interior.ColorIndex = 24
Rem 列幅をまとめて処理 Range("A1:A38").ColumnWidth = 0.94 Range("B1:B38").ColumnWidth = 6.22 Range("C1:C38,L1:L38,O1:O38,Y1:Y38,AA1:AA38,AC1:AE38,AN1:AO38,BJ1:BJ38,CR1:CR38,CT1:CU38").ColumnWidth = 13.11 Range("D1:F38,I1:K38,Q1:S38,U1:U38,AK1:AM38,AP1:AP38,AR1:AS38,AV1:AV38,AY1:AZ38").ColumnWidth = 14.67 Range("BE1:BE38,BI1:BI38,BL1:BM38,BQ1:BR38,BV1:BY38,CA1:CC38,CE1:CN38,CP1:CP38").ColumnWidth = 14.67 Range("G1:H38,M1:N38,P1:P38,T1:T38,V1:V38,AQ1:AQ38").ColumnWidth = 16.44 Range("BC1:BD38,BF1:BF38,BH1:BH38,BP1:BP38,CQ1:CQ38").ColumnWidth = 16.44 Range("W1:W38").ColumnWidth = 12.33 Range("X1:X38,Z1:Z38,AB1:AB38,AF1:AI38,AU1:AU38,AX1:AX38").ColumnWidth = 11.44 Range("BA1:BB38,BG1:BG38,BN1:BO38,BS1:BU38,CS1:CS38,CV1:CV38").ColumnWidth = 11.44 Range("AJ1:AJ38,AT1:AT38,BZ1:BZ38,CD1:CD38,CO1:CO38").ColumnWidth = 18.11 Range("AW1:AW38,BK1:BK38").ColumnWidth = 19.67
Rem 行高さをまとめて処理 Range("A1:CV38").RowHeight = 10.8 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 16:22
C列:市町村コード(1964行目までデータありで1行目は列名です)
D列:都道府県名(1964行目までデータありで1行目は列名です)
E列:市町村名(1964行目までデータありで1行目は列名です)
(f) 2019/02/19(火) 16:25
(隠居じーさん) 2019/02/19(火) 16:29
お世話になっております。fです。
毎日ありがとうございます。
右端ですが、固有名詞が出ておりまして。。。
例えば”〇〇”などに変換でもよろしいのでしょうか。。。
お願いしている立場で大変申し訳ございません。
ご回答いただけると幸いでございます。
(f) 2019/02/19(火) 17:02
もし、よろしければなのですが、
フリーアドレス等にエクセルファイルを送付させていただくなどのやり取りは可能でしょうか?(データは英語や数字などダミー変数にさせていただくことにはなると思うのですが。。
もし可能であればご検討ください。
以上、よろしくお願いいたします。
(f) 2019/02/19(火) 17:06
マスタ(都道府県) につきましては詳細なご説明もあり、理解できている
とおもいますので。結構です。← 怪しげ。。。^^;
こちらでもテストしましたけど
Soulmanさんのコードで右端が消えて無くなることは有りません。
全てエラーで復元出来ませんのでご確認の程重ねてお願いいたします。
Range("Y26:Z26,AG26:AH26,AX26").Valu ← たぶん Value
Range("AT33").Value = ← 多分 "" か "○○"
ついでに○○ばかりでは大変わかりづらいです。テスト環境に
使いたいのですが区別がつきません。
たとえば データ1〜データ3、もしくははランダムな数値とか、セルのアドレス
とかにしていただけると大変うれしいです。
セルのアドレスとかだと=ADDRESS 関数なんかでポイっと出来るかと。。。
でわ
(隠居じーさん) 2019/02/19(火) 17:14
Soulman様のコードではなく、私が右端のデータを切り取ったものをアップしておりました。
申し訳ございません
セルアドレスに変換して再あっぷいたします。
以上、よろしくお願いします。
(f) 2019/02/19(火) 17:26
(隠居じーさん) 2019/02/19(火) 17:32
承知いたしました。
ダミーデータ作成後、ツール実行結果を貼らせていただきます。
少々お待ちくださいませ。。。
(f) 2019/02/19(火) 17:37
Private Sub SoulMan() Rem 結合状態を処理 Range("A1:N1").Merge Range("B2:D2").Merge Range("G2:H2").Merge Range("I2:J2").Merge Range("L2:N2").Merge Range("I3:J3").Merge Range("M3:N3").Merge Range("B4:D4").Merge Range("F4:J4").Merge Range("L4:N4").Merge Range("D5:J5").Merge Range("L5:N5").Merge Range("B6:C6").Merge Range("E6:F6").Merge Range("H6:N6").Merge Range("B8:D8").Merge Range("F8:H8").Merge Range("I8:J8").Merge Range("K8:N8").Merge Range("B9:D9").Merge Range("F9:H9").Merge Range("I9:J9").Merge Range("K9:N9").Merge Range("C10:D10").Merge Range("I10:J10").Merge Range("L10:N10").Merge Range("C11:D11").Merge Range("G11:H11").Merge Range("I11:J11").Merge Range("L11:N11").Merge Range("C12:D12").Merge Range("G12:H12").Merge Range("I12:J12").Merge Range("K12:N12").Merge Range("B14:C14").Merge Range("E14:F14").Merge Range("H14:J14").Merge Range("L14:N14").Merge Range("B15:C15").Merge Range("E15:F15").Merge Range("H15:J15").Merge Range("M15:N15").Merge Range("B16:C16").Merge Range("E16:F16").Merge Range("H16:J16").Merge Range("L16:N16").Merge Range("B18:C18").Merge Range("E18:F18").Merge Range("B19:D19").Merge Range("E19:F19").Merge Range("H19:N19").Merge Range("A23:N23").Merge
Rem 数式セル以外をまとめて処理 Range("A1").Value = "タイトル" Range("A2,E2,K2,A4:A6,E4,K4:K5,D6").Value = "項目" Range("G6,A8:A12,E8:E12,I8:I12,A14:A16,D14:D16,G14:G16").Value = "項目" Range("K14:K16,A18:A19,D18,G18:G19,K18,A21,C21").Value = "項目" Range("B2").Value = "データ1" Range("F2").Value = "管理者名" Range("G2").Value = "データ3" Range("I2").Value = "データ4" Range("L2").Value = "データ5" Range("A3").Value = "■カテゴリ1" Range("B4").Value = "データ6" Range("F4").Value = "データ7" Range("L4").Value = "データ8" Range("B5").Value = "都道府県" Range("C5").Value = "市町村名" Range("D5").Value = "番地" Range("L5").Value = "データ9" Range("B6").Value = "データ10" Range("E6").Value = "データ11" Range("H6").Value = "データ12" Range("A7").Value = "■カテゴリ2" Range("B8").Value = "データ13" Range("F8").Value = "データ14" Range("K8").Value = "データ15" Range("B9").Value = "データ16" Range("F9").Value = "データ17" Range("K9").Value = "データ18" Range("B10").Value = "データ19" Range("C10").Value = "データ20" Range("F10").Value = "データ21" Range("G10").Value = "データ22" Range("H10").Value = "データ23" Range("K10").Value = "データ24" Range("L10").Value = "データ25" Range("B11").Value = "データ25" Range("C11").Value = "データ26" Range("F11").Value = "データ27" Range("G11").Value = "データ28" Range("K11").Value = "データ29" Range("L11").Value = "データ30" Range("B12").Value = "データ31" Range("C12").Value = "データ32" Range("F12").Value = "データ33" Range("G12").Value = "データ34" Range("K12").Value = "データ35" Range("A13").Value = "■カテゴリ3" Range("B14").Value = "データ36" Range("E14").Value = "データ37" Range("H14").Value = "データ38" Range("L14").Value = "データ39" Range("B15").Value = "データ40" Range("E15").Value = "データ41" Range("H15").Value = "データ42" Range("L15").Value = "データ43" Range("M15").Value = "単位" Range("B16").Value = "データ44" Range("E16").Value = "データ45" Range("H16").Value = "データ46" Range("L16").Value = "データ47" Range("A17").Value = "■カテゴリ4" Range("B18").Value = "データ48" Range("E18").Value = "データ49" Range("H18").Value = "データ50" Range("I18").Value = "データ51" Range("J18").Value = "データ52" Range("L18").Value = "データ53" Range("M18:N18").Value = "データ54" Range("B19").Value = "データ56" Range("E19").Value = "データ57" Range("H19").Value = "データ58" Range("B21").Value = "データ59" Range("D21").Value = "データ60" Range("A23").Value = " ■〇〇" & Chr(10) & " ■〇〇" Range("A24:A25").Value = "注意事項"
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理 Range("M3:N3").NumberFormatLocal = "00000" Range("L5:N5").NumberFormatLocal = "#,##0.000;[赤]-#,##0.000" Range("R5:S5,B6:C6,E6:F6").NumberFormatLocal = "0""度""00""分""00.0""秒""" Range("B10,L15").NumberFormatLocal = "#,##0;[赤]-#,##0" Range("F12,H18,L18").NumberFormatLocal = "G/標準""年""" Range("G12:H12,I18,M18").NumberFormatLocal = "G/標準""月""" Range("B16:C16,E16:F16").NumberFormatLocal = "#,##0.0;[赤]-#,##0.0" Range("J18,N18").NumberFormatLocal = "G/標準""日"""
Rem 塗りつぶしセルをまとめて処理 Range("A2,E2,K2,A4:A5,E4,K4,K5:N5,A6:N6").Interior.ColorIndex = 20 Range("A8:A12,E8:E11,I8:J11,E12:N12,A14:A15,D14:D15,G14,K14").Interior.ColorIndex = 20 Range("G15:L15,A16:G16,K16,A18:A19,D18,G18:N19,A21,C21:D21").Interior.ColorIndex = 20 Range("B2:D2,F2:J2,B4:D4,L4:N4,B5:C5,B8:D9,F8:H10,K8:N9,K10:K11,B11:B12").Interior.ColorIndex = 19 Range("F11,B14:C15,E14:F15,H14:J14,L14:N14,H16:J16,L16:N16,B18:C18,E18:F18,B21").Interior.ColorIndex = 19
Rem 列幅をまとめて処理 Range("A1:H25,K1:L25").ColumnWidth = 6.89 Range("I1:J25").ColumnWidth = 3 Range("M1:N25").ColumnWidth = 3.22 Range("O1:U25").ColumnWidth = 8.22
Rem 行高さをまとめて処理 Range("A1:U19,A21:U21").RowHeight = 21.8 Range("A20:U20,A22:U22").RowHeight = 6 Range("A23:U23").RowHeight = 351 Range("A24:U25").RowHeight = 9.6 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 19:47
Private Sub SoulMan() Rem 結合状態を処理 Range("A1:Z1").Merge Range("B3:D3").Merge Range("F3:I3").Merge Range("J3:P3").Merge Range("Q3:S3").Merge Range("T3:AA3").Merge Range("Q4:S4").Merge Range("T4:AA4").Merge Range("A5:D8").Merge Range("E5:E9").Merge Range("F5:F9").Merge Range("G5:X5").Merge Range("Y5:Y9").Merge Range("Z5:AA9").Merge Range("G6:X6").Merge Range("G7:P7").Merge Range("Q7:T7").Merge Range("U7:X7").Merge Range("G8:H8").Merge Range("I8:J8").Merge Range("K8:L8").Merge Range("M8:N8").Merge Range("O8:P8").Merge Range("Q8:R8").Merge Range("S8:T8").Merge Range("U8:V8").Merge Range("W8:X8").Merge Range("A9:B9").Merge Range("A10:A21").Merge Range("B10:B13").Merge Range("Y10:Y21").Merge Range("Z10:AA21").Merge Range("B14:B19").Merge Range("B20:B21").Merge Range("A22:A27").Merge Range("B22:B24").Merge Range("Y22:Y27").Merge Range("Z22:AA27").Merge Range("B25:B27").Merge Range("A28:A33").Merge Range("B28:B29").Merge Range("D28:D31").Merge Range("Y28:Y33").Merge Range("Z28:AA33").Merge Range("B30:B31").Merge Range("B32:B33").Merge Range("D32:D33").Merge Range("A34:A35").Merge Range("Y34:Y35").Merge Range("Z34:AA35").Merge Range("A36:A37").Merge Range("Y36:Y37").Merge Range("Z36:AA37").Merge Range("A38:A41").Merge Range("B38:B41").Merge Range("Y38:Y41").Merge Range("Z38:AA41").Merge Range("S42:X43").Merge Range("Y42:AA43").Merge Range("A45:AA46").Merge Range("A48:B48").Merge Range("C48:G48").Merge Range("H48:K48").Merge Range("L48:AA48").Merge Range("A49:B49").Merge Range("C49:G49").Merge Range("H49:K49").Merge Range("L49:AA49").Merge Range("A51:AA55").Merge Range("A56:AA56").Merge Range("A57:AA57").Merge
Rem 数式セル以外をまとめて処理 Range("A1").Value = "タイトル" Range("A3,E3,Q3,A5,E5:G5,Y5:Z5,G6:G8,Q7:Q8,U7:U8").Value = "項目" Range("I8,K8,M8,O8,S8,W8,A9,C9:D9,G9:X9").Value = "項目" Range("A10:D10,C11:D13,B14:D14,C15:D19,B20:D20,C21:D21,A22:D22,C23:D24,B25:D25").Value = "項目" Range("C26:D27,A28:D28,C29,B30:C30,C31,B32:D32,C33,A34:D34,B35:D35").Value = "項目" Range("A36:D36,B37:D37,A38:D38,C39:D40,S42,A48:A49,H48:H49").Value = "項目" Range("A4").Value = "■結果" Range("E10").Value = "結果1" Range("F10").Value = "結果2" Range("G10").Value = "結果3" Range("H10").Value = "結果4" Range("M10").Value = "結果5" Range("N10").Value = "結果6" Range("O10").Value = "結果7" Range("P10").Value = "結果8" Range("W10").Value = "結果9" Range("X10").Value = "結果10" Range("Y10:Z10,W16:W41,Y22:Z22,Y28:Z28,Y34:Z34,Y36:Z36,Y38:Z38").Value = "結果75" Range("E11").Value = "結果11" Range("F11").Value = "結果12" Range("G11").Value = "結果13" Range("H11").Value = "結果14" Range("I11").Value = "結果15" Range("J11").Value = "結果16" Range("K11").Value = "結果17" Range("L11").Value = "結果18" Range("M11").Value = "結果19" Range("N11").Value = "結果20" Range("O11").Value = "結果21" Range("P11").Value = "結果22" Range("W11").Value = "結果23" Range("X11").Value = "結果24" Range("E12").Value = "結果25" Range("F12").Value = "結果26" Range("G12").Value = "結果27" Range("H12").Value = "結果28" Range("M12").Value = "結果29" Range("N12").Value = "結果30" Range("O12").Value = "結果31" Range("P12").Value = "結果32" Range("W12").Value = "結果33" Range("X12").Value = "結果34" Range("E13").Value = "結果35" Range("F13").Value = "結果36" Range("M13").Value = "結果37" Range("N13").Value = "結果38" Range("U13,Q34,S34,U34,Q41,S41,U41").Value = "結果39" Range("V13,R34,T34,V34,R41,T41,V41").Value = "結果40" Range("W13").Value = "結果41" Range("X13").Value = "結果42" Range("E14").Value = "結果43" Range("F14").Value = "結果44" Range("G14").Value = "結果45" Range("H14").Value = "結果46" Range("M14").Value = "結果47" Range("N14").Value = "結果48" Range("O14").Value = "結果49" Range("P14").Value = "結果50" Range("W14").Value = "結果51" Range("X14").Value = "結果52" Range("E15").Value = "結果53" Range("F15").Value = "結果54" Range("G15").Value = "結果55" Range("H15").Value = "結果56" Range("M15").Value = "結果57" Range("N15").Value = "結果58" Range("O15").Value = "結果59" Range("P15").Value = "結果60" Range("W15").Value = "結果61" Range("X15").Value = "結果62" Range("E16:E41").Value = "結果63" Range("F16:F41").Value = "結果64" Range("G16:G33,G35:G41").Value = "結果65" Range("H16:H33,H35:H41").Value = "結果66" Range("I16,I21,I23,I27:I33,I35,I37:I38,I40:I41").Value = "結果67" Range("J16,J21,J23,J27:J33,J35,J37:J38,J40:J41").Value = "結果68" Range("K16,K21,K23,K27:K33,K35,K37:K38,K40:K41").Value = "結果69" Range("L16,L21,L23,L27:L33,L35,L37:L38,L40:L41").Value = "結果70" Range("M16:M33,M35:M41").Value = "結果71" Range("N16:N33,N35:N41").Value = "結果72" Range("O16:O41").Value = "結果73" Range("P16:P41").Value = "結果74" Range("X16:X41,Y42").Value = "結果76" Range("A43").Value = "■所見(その他特記事項)" Range("A45").Value = "データ6" Range("A47").Value = "■今後の予定" Range("C48").Value = "データ7" Range("L48").Value = "データ8" Range("C49").Value = "データ9" Range("L49").Value = "データ10" Range("A51").Value = "■〇〇" Range("A56:A57").Value = "注意事項"
Rem 数式セルをまとめて処理 Range("B3,F3").FormulaR1C1Local = "=情報入力シートダミー!R[-1]C" Range("J3").FormulaR1C1Local = "=CONCATENATE(情報入力シートダミー!R[-1]C[-3],"" "",情報入力シートダミー!R[-1]C[-1])" Range("T3").FormulaR1C1Local = "=情報入力シートダミー!R[-1]C[-8]"
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理 Range("A3,E3,Q3:S3,A5:AA9,A10:D41,S42:X43,A48:B49,H48:K49").Interior.ColorIndex = 20 Range("E10:H10,M10:P10,W10:AA12,E11:P11,E12:H12,M12:P12,E13:F13,M13:N13,U13:AA13").Interior.ColorIndex = 19 Range("E14:H15,M14:P15,W14:AA33,E16:P16,E17:H20,M17:P20,E21:P21,E22:H22,M22:P22").Interior.ColorIndex = 19 Range("E23:P23,E24:H26,M24:P26,E27:P33,E34:F34,O34:AA34,E35:P35,W35:AA40,E36:H36").Interior.ColorIndex = 19 Range("M36:P36,E37:P38,E39:H39,M39:P39,E40:P40,E41:AA41,Y42:AA43").Interior.ColorIndex = 19 Range("I10:L10,Q10:V12,I12:L12,G13:L13,O13:T13,I14:L15,Q14:V33").Interior.ColorIndex = 48 Range("I17:L20,I22:L22,I24:L26,G34:N34,Q35:V40,I36:L36,I39:L39").Interior.ColorIndex = 48
Rem 列幅をまとめて処理 Range("A1:A58").ColumnWidth = 3.56 Range("B1:B58").ColumnWidth = 13.44 Range("C1:C58").ColumnWidth = 16.11 Range("D1:D58").ColumnWidth = 4.67 Range("E1:E58").ColumnWidth = 4.89 Range("F1:F58,Y1:Y58").ColumnWidth = 3.44 Range("G1:X58").ColumnWidth = 1.89 Range("Z1:AA58").ColumnWidth = 3.22
Rem 行高さをまとめて処理 Range("A1:AA1,A4:AA4").RowHeight = 14.3 Range("A2:AA2,A44:AA44").RowHeight = 3.8 Range("A3:AA3").RowHeight = 19.5 Range("A5:AA5").RowHeight = 10.5 Range("A6:AA7,A17:AA17,A50:AA50,A56:AA56,A58:AA58").RowHeight = 9.6 Range("A8:AA8").RowHeight = 24 Range("A9:AA9").RowHeight = 33 Range("A10:AA16,A18:AA41,A47:AA49").RowHeight = 21 Range("A42:AA43,A45:AA46").RowHeight = 18.8 Range("A51:AA55").RowHeight = 18 Range("A57:AA57").RowHeight = 21.8 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 19:48
Private Sub SoulMan() Rem 結合状態を処理
Rem 数式セル以外をまとめて処理 Range("B2").Value = "管理者1" Range("C2").Value = "管理名1" Range("D2").Value = "管理名2" Range("E2").Value = "管理名3" Range("F2").Value = "管理名4" Range("G2").Value = "管理名5" Range("H2").Value = "管理名6" Range("I2").Value = "管理名7" Range("J2").Value = "管理名8" Range("K2").Value = "管理名9" Range("L2").Value = "管理名10" Range("B3").Value = "コード" Range("C3").Value = 81 Range("D3").Value = 82 Range("E3").Value = 83 Range("F3").Value = 84 Range("G3").Value = 85 Range("H3").Value = 86 Range("I3").Value = 87 Range("J3").Value = 88 Range("K3").Value = 89 Range("L3").Value = 90
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理 Range("B2:B3").Interior.ColorIndex = 24
Rem 列幅をまとめて処理 Range("A1:A4").ColumnWidth = 0.94 Range("B1:B4").ColumnWidth = 6.22 Range("C1:C4,L1:L4").ColumnWidth = 13.11 Range("D1:F4,I1:K4").ColumnWidth = 14.67 Range("G1:H4,M1:M4").ColumnWidth = 16.44
Rem 行高さをまとめて処理 Range("A1:M4").RowHeight = 10.8 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 19:49
Rem 結合状態を処理
Rem 数式セル以外をまとめて処理 Range("A1").Value = 1 Range("B1").Value = 2 Range("C1").Value = 3 Range("D1").Value = 4 Range("E1").Value = 5 Range("F1").Value = 6 Range("G1").Value = 7 Range("H1").Value = 8 Range("I1").Value = 9 Range("J1").Value = 10 Range("K1").Value = 11 Range("L1").Value = 12 Range("M1").Value = 13 Range("N1").Value = 14 Range("O1").Value = 15 Range("P1").Value = 16 Range("Q1").Value = 17 Range("R1").Value = 18 Range("S1").Value = 19 Range("T1").Value = 20 Range("U1").Value = 21 Range("V1").Value = 22 Range("W1").Value = 23 Range("X1").Value = 24 Range("Y1").Value = 25 Range("Z1").Value = 26 Range("AA1").Value = 27 Range("AB1").Value = 28 Range("AC1").Value = 29 Range("AD1").Value = 30 Range("AE1").Value = 31 Range("AF1").Value = 32 Range("AG1").Value = 33 Range("AH1").Value = 34 Range("AI1").Value = 35 Range("AJ1").Value = 36 Range("AK1").Value = 37 Range("AL1").Value = 38 Range("AM1").Value = 39 Range("AN1").Value = 40 Range("AO1").Value = 41 Range("AP1").Value = 42 Range("AQ1").Value = 43 Range("AR1").Value = 44 Range("AS1").Value = 45 Range("AT1").Value = 46 Range("AU1").Value = 47 Range("AV1").Value = 48 Range("AW1").Value = 49 Range("AX1").Value = 50 Range("AY1").Value = 51 Range("AZ1").Value = 52 Range("BA1").Value = 53 Range("BB1").Value = 54 Range("BC1").Value = 55 Range("BD1").Value = 56 Range("BE1").Value = 57 Range("BF1").Value = 58 Range("BG1").Value = 59 Range("BH1").Value = 60 Range("BI1").Value = 61 Range("BJ1").Value = 62 Range("BK1").Value = 63 Range("BL1").Value = 64 Range("BM1").Value = 65 Range("BN1").Value = 66 Range("BO1").Value = 67 Range("BP1").Value = 68 Range("BQ1").Value = 69 Range("BR1").Value = 70 Range("BS1").Value = 71 Range("BT1").Value = 72 Range("BU1").Value = 73 Range("BV1").Value = 74
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理 Range("AZ3").NumberFormatLocal = "0.0"
Rem 塗りつぶしセルをまとめて処理 Range("A1:B2,D1:E1,G1:H1,J1:K1,M1:N1,P1:Q1,S1:T1,V1:W1,Y1:Z1").Interior.ColorIndex = 35 Range("AB1:AC1,AE1:AF1,AH1:AI1,AK1:AL1,AN1:AO1,AQ1:AR1,AT1:AU1,AW1:AX1,AZ1:BA1").Interior.ColorIndex = 35 Range("BC1:BD1,BF1:BG1,BI1:BJ1,BL1:BM1,BO1:BP1,BR1:BS1,BU1:BV1,BQ2:BV2").Interior.ColorIndex = 35 Range("C1,F1,I1,L1,O1,R1,U1,X1,AA1").Interior.ColorIndex = 24 Range("AD1,AG1,AJ1,AM1,AP1,AS1,AV1,AY1,BB1").Interior.ColorIndex = 24 Range("BE1,BH1,BK1,BN1,BQ1,BT1,C2:BP2").Interior.ColorIndex = 24
Rem 列幅をまとめて処理 Range("A1:A3,AS1:AT3,BC1:BC3,BS1:BS3").ColumnWidth = 8.89 Range("B1:B3,BA1:BA3,BG1:BH3").ColumnWidth = 4 Range("C1:C3").ColumnWidth = 10.89 Range("D1:D3,T1:T3,V1:V3,Y1:Y3,AK1:AL3,AR1:AR3,BO1:BQ3").ColumnWidth = 7.22 Range("E1:E3").ColumnWidth = 12.33 Range("F1:G3").ColumnWidth = 16 Range("H1:H3,BE1:BE3").ColumnWidth = 8.22 Range("I1:I3,Z1:Z3,AM1:AN3,BB1:BB3").ColumnWidth = 10.56 Range("J1:J3").ColumnWidth = 19.89 Range("K1:K3,O1:O3,Q1:Q3").ColumnWidth = 10.22 Range("L1:L3,AO1:AP3,BI1:BK3").ColumnWidth = 5.56 Range("M1:M3").ColumnWidth = 6.44 Range("N1:N3,AW1:AW3").ColumnWidth = 6.67 Range("P1:P3").ColumnWidth = 7.11 Range("R1:R3,AB1:AD3").ColumnWidth = 11.33 Range("S1:S3,AQ1:AQ3").ColumnWidth = 4.89 Range("U1:U3").ColumnWidth = 11.44 Range("W1:W3").ColumnWidth = 13.44 Range("X1:X3").ColumnWidth = 14.22 Range("AA1:AA3").ColumnWidth = 9.56 Range("AE1:AF3").ColumnWidth = 11.56 Range("AG1:AH3").ColumnWidth = 11.89 Range("AI1:AI3,BD1:BD3").ColumnWidth = 13.56 Range("AJ1:AJ3").ColumnWidth = 9 Range("AU1:AV3").ColumnWidth = 9.33 Range("AX1:AX3,BU1:BV3").ColumnWidth = 12 Range("AY1:AY3").ColumnWidth = 5.67 Range("AZ1:AZ3").ColumnWidth = 4.11 Range("BF1:BF3,BR1:BR3").ColumnWidth = 4.67 Range("BL1:BL3").ColumnWidth = 19.67 Range("BM1:BM3").ColumnWidth = 9.44 Range("BN1:BN3").ColumnWidth = 5.11 Range("BT1:BT3").ColumnWidth = 12.22
Rem 行高さをまとめて処理 Range("A1:BV1").RowHeight = 16.2 Range("A2:BV2").RowHeight = 12 Range("A3:BV3").RowHeight = 22.5 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/19(火) 19:51
ややこしい転記するとしては、B列にマスタ(管理)と情報入力シートF2に入力された管理者名を突合し、マスタ(管理シート)3行目の管理者コードを転記させるところです(以前書いたG2は誤りでF2セルが正です)。
以上がこちらのでーたになります。
お手数ですがご確認していただけないでしょうか。
私の方もネットで調べて、ひとつづつクリアしていこうと思います。
(f) 2019/02/19(火) 19:58
(隠居じーさん) 2019/02/19(火) 20:41
>>★3.マスタ(管理): >> 列範囲:C〜L列 >> 3行名:管理者コード(C〜L列で全10パターン) >>7行目〜20行目:管理者名 の 7行目〜20行目:管理者名 とは何処のことでしょうか。 B2は管理者1となっていますが 項目名、"管理者" でしょうか。 管理者名から管理者コードを検索する対象は 2行目のC列〜L列との理解でよいですか。 以上、正解を教えて下さい。
(隠居じーさん) 2019/02/19(火) 23:22
こんばんは ^^ ブロック型(フォーム型?)の情報をデーターベース、スタイルに書き換えておられるのは わかるのですが。転記元、情報入力シート(60個)、検査シート(403個)、とも、データー個数と 転記先列数の数が合いません。 情報入力シート(A〜D) = 74 列 検査シート(A〜D) = 699 列 転記元セルアドレス〜転記先列アドレス、対応表を作成しておられるのでしたら 教えていただけますか。
省略されていた 転記部分のコードでも構いません。 情報入力シート、検査シート、双方分です。 その部分はそちらで対応、と言う事であれば結構です。
おやすみなさい。。。。zzzzz
(隠居じーさん) 2019/02/20(水) 00:22
おはようございます。fです。
遅くまで申し訳ございません。
まず、管理者コードについてですが、
>>★3.マスタ(管理):
>> 列範囲:C〜L列
>> 3行名:管理者コード(C〜L列で全10パターン)
>>7行目〜20行目:管理者名
上記は間違いでした申し訳ございません。
正解は以下の通りです。
★3.マスタ(管理):
列範囲:C〜L列
2行名:管理者名 (C〜L列で全10パターン)
3行名:管理者コード(C〜L列で全10パターン)
が正解で、マスタ2行目の管理者名と情報入力シートF2を照合し、その下の3行目の管理者コードを
情報入力シートの転記先シートと検査シートの転記先シートのB列に転記する処理が正解でございます。
ツールが動かなかったシートは数を減らした結果を貼り付けますのでお待ちくださいませ。
また、転記部分の省略していたコードを貼り付けたいと思います。
以上、よろしくお願いします。
(f) 2019/02/20(水) 09:46
おはようございます。^^ ↑ 了解いたしました。
昼間は何かと所要もあり。。。。 ← 言い訳 ^^; 頑張りますけど ( ̄▽ ̄;) しばし御猶予を m(_ _)m
(隠居じーさん) 2019/02/20(水) 10:05
すみません、、本当にありがとうございます。
■マスタ(都道府県)←本当は1964行まであります。コードはダミーです。
Private Sub SoulMan() Rem 結合状態を処理
Rem 数式セル以外をまとめて処理 Range("A1,D1").Value = "都道府県名" & Chr(10) & "(漢字)" Range("C1").Value = "団体コード" Range("E1").Value = "市区町村名" & Chr(10) & "(漢字)" Range("F1").Value = "都道府県名" & Chr(10) & "(カナ)" Range("G1").Value = "市区町村名" & Chr(10) & "(カナ)" Range("C2").Value = "000011" Range("D2:D191,A3").Value = "北海道" Range("F2:F191").Value = "ホッカイドウ" Range("C3").Value = "000012" Range("E3").Value = "札幌市" Range("G3").Value = "サッポロシ" Range("A4,D192:D232").Value = "青森県" Range("C4").Value = "000013" Range("E4").Value = "札幌市中央区" Range("G4").Value = "さっぽろしちゅうおうく" Range("A5,D233:D266").Value = "岩手県" Range("C5").Value = "000014" Range("E5").Value = "札幌市北区" Range("G5").Value = "さっぽろしきたく" Range("A6,D267:D307").Value = "宮城県" Range("C6").Value = "000015" Range("E6").Value = "札幌市東区" Range("G6").Value = "さっぽろしひがしく" Range("A7,D308:D333").Value = "秋田県" Range("C7").Value = "000016" Range("E7").Value = "札幌市白石区" Range("G7").Value = "さっぽろししろいしく" Range("A8,D334:D369").Value = "山形県" Range("C8").Value = "000017" Range("E8").Value = "札幌市豊平区" Range("G8").Value = "さっぽろしとよひらく" Range("A9,D370:D429").Value = "福島県" Range("C9").Value = "000018" Range("E9").Value = "札幌市南区" Range("G9").Value = "さっぽろしみなみく" Range("A10,D430:D474").Value = "茨城県" Range("C10").Value = "000019" Range("E10").Value = "札幌市西区" Range("G10").Value = "さっぽろしにしく" Range("A11,D475:D500").Value = "栃木県" Range("C11").Value = "000020" Range("E11").Value = "札幌市厚別区" Range("G11").Value = "さっぽろしあつべつく" Range("A12,D501:D536").Value = "群馬県" Range("C12").Value = "000021" Range("E12").Value = "札幌市手稲区" Range("G12").Value = "さっぽろしていねく" Range("A13,D537:D610").Value = "埼玉県" Range("C13").Value = "000022" Range("E13").Value = "札幌市清田区" Range("G13").Value = "さっぽろしきよたく" Range("A14,D611:D671").Value = "千葉県" Range("C14").Value = "000023" Range("E14").Value = "函館市" Range("G14").Value = "ハコダテシ" Range("A15,D672:D734").Value = "東京都" Range("C15").Value = "000024" Range("E15").Value = "小樽市" Range("G15").Value = "オタルシ" Range("A16,D735:D796").Value = "神奈川県" Range("C16").Value = "000025" Range("E16").Value = "旭川市" Range("G16").Value = "アサヒカワシ" Range("A17,D797:D835").Value = "新潟県" Range("C17").Value = "000026" Range("E17").Value = "室蘭市" Range("G17").Value = "ムロランシ" Range("A18,D836:D851").Value = "富山県" Range("C18").Value = "000027" Range("E18").Value = "釧路市" Range("G18").Value = "クシロシ" Range("A19,D852:D871").Value = "石川県" Range("C19").Value = "000028" Range("E19").Value = "帯広市" Range("G19").Value = "オビヒロシ" Range("A20,D872:D889").Value = "福井県" Range("C20").Value = "000029" Range("E20").Value = "北見市" Range("G20").Value = "キタミシ" Range("A21,D890:D917").Value = "山梨県" Range("C21").Value = "000030" Range("E21").Value = "夕張市" Range("G21").Value = "ユウバリシ" Range("A22,D918:D995").Value = "長野県" Range("C22").Value = "000031" Range("E22").Value = "岩見沢市" Range("G22").Value = "イワミザワシ" Range("A23,D996:D1038").Value = "岐阜県" Range("C23").Value = "000032" Range("E23").Value = "網走市" Range("G23").Value = "アバシリシ" Range("A24,D1039:D1084").Value = "静岡県" Range("C24").Value = "000033" Range("E24").Value = "留萌市" Range("G24").Value = "ルモイシ" Range("A25,D1085:D1155").Value = "愛知県" Range("C25").Value = "000034" Range("E25").Value = "苫小牧市" Range("G25").Value = "トマコマイシ" Range("A26,D1156:D1185").Value = "三重県" Range("C26").Value = "000035" Range("E26").Value = "稚内市" Range("G26").Value = "ワッカナイシ" Range("A27,D1186:D1205").Value = "滋賀県" Range("C27").Value = "000036" Range("E27").Value = "美唄市" Range("G27").Value = "ビバイシ" Range("A28,D1206:D1243").Value = "京都府" Range("C28").Value = "000037" Range("E28").Value = "芦別市" Range("G28").Value = "アシベツシ" Range("A29,D1244:D1318").Value = "大阪府" Range("C29").Value = "000038" Range("E29").Value = "江別市" Range("G29").Value = "エベツシ" Range("A30,D1319:D1369").Value = "兵庫県" Range("C30").Value = "000039" Range("E30").Value = "赤平市" Range("G30").Value = "アカビラシ" Range("A31,D1370:D1409").Value = "奈良県" Range("C31").Value = "000040" Range("E31").Value = "紋別市" Range("G31").Value = "モンベツシ" Range("A32,D1410:D1440").Value = "和歌山県" Range("C32").Value = "000041" Range("E32").Value = "士別市" Range("G32").Value = "シベツシ" Range("A33").Value = "鳥取県" Range("C33").Value = "000042" Range("E33").Value = "名寄市" Range("G33").Value = "ナヨロシ" Range("A34").Value = "島根県" Range("C34").Value = "000043" Range("E34").Value = "三笠市" Range("G34").Value = "ミカサシ" Range("A35").Value = "岡山県" Range("C35").Value = "000044" Range("E35").Value = "根室市" Range("G35").Value = "ネムロシ" Range("A36").Value = "広島県" Range("C36").Value = "000045" Range("E36").Value = "千歳市" Range("G36").Value = "チトセシ" Range("A37").Value = "山口県" Range("C37").Value = "000046" Range("E37").Value = "滝川市" Range("G37").Value = "タキカワシ" Range("A38").Value = "徳島県" Range("C38").Value = "000047" Range("E38").Value = "砂川市" Range("G38").Value = "スナガワシ" Range("A39").Value = "香川県" Range("C39").Value = "000048" Range("E39").Value = "歌志内市" Range("G39").Value = "ウタシナイシ" Range("A40").Value = "愛媛県" Range("C40").Value = "000049" Range("E40").Value = "深川市" Range("G40").Value = "フカガワシ" Range("A41").Value = "高知県" Range("C41").Value = "000050" Range("E41").Value = "富良野市" Range("G41").Value = "フラノシ" Range("A42").Value = "福岡県" Range("C42").Value = "000051" Range("E42").Value = "登別市" Range("G42").Value = "ノボリベツシ" Range("A43").Value = "佐賀県" Range("C43").Value = "000052" Range("E43").Value = "恵庭市" Range("G43").Value = "エニワシ" Range("A44").Value = "長崎県" Range("C44").Value = "000053" Range("E44,E382").Value = "伊達市" Range("G44,G382").Value = "ダテシ" Range("A45").Value = "熊本県" Range("C45").Value = "000054" Range("E45").Value = "北広島市" Range("G45").Value = "キタヒロシマシ" Range("A46").Value = "大分県" Range("C46").Value = "000055" Range("E46").Value = "石狩市" Range("G46").Value = "イシカリシ" Range("A47").Value = "宮崎県" Range("C47").Value = "000056" Range("E47").Value = "北斗市" Range("G47,G898").Value = "ホクトシ" Range("A48").Value = "鹿児島県" Range("C48").Value = "000057" Range("E48").Value = "当別町" Range("G48").Value = "トウベツチョウ" Range("A49").Value = "沖縄県" Range("C49").Value = "000058" Range("E49").Value = "新篠津村" Range("G49").Value = "シンシノツムラ" Range("C50").Value = "000059" Range("E50").Value = "松前町" Range("G50").Value = "マツマエチョウ" Range("C51").Value = "000060" Range("E51").Value = "福島町" Range("G51").Value = "フクシマチョウ" Range("C52").Value = "000061" Range("E52").Value = "知内町" Range("G52").Value = "シリウチチョウ" Range("C53").Value = "000062" Range("E53").Value = "木古内町" Range("G53").Value = "キコナイチョウ" Range("C54").Value = "000063" Range("E54").Value = "七飯町" Range("G54").Value = "ナナエチョウ" Range("C55").Value = "000064" Range("E55").Value = "鹿部町" Range("G55").Value = "シカベチョウ" Range("C56").Value = "000065" Range("E56,E1084").Value = "森町" Range("G56,G1084").Value = "モリマチ" Range("C57").Value = "000066" Range("E57").Value = "八雲町" Range("G57").Value = "ヤクモチョウ" Range("C58").Value = "000067" Range("E58").Value = "長万部町" Range("G58").Value = "オシャマンベチョウ" Range("C59").Value = "000068" Range("E59").Value = "江差町" Range("G59,G128").Value = "エサシチョウ" Range("C60").Value = "000069" Range("E60").Value = "上ノ国町" Range("G60").Value = "カミノクニチョウ" Range("C61").Value = "000070" Range("E61").Value = "厚沢部町" Range("G61").Value = "アッサブチョウ" Range("C62").Value = "000071" Range("E62").Value = "乙部町" Range("G62").Value = "オトベチョウ" Range("C63").Value = "000072" Range("E63").Value = "奥尻町" Range("G63").Value = "オクシリチョウ" Range("C64").Value = "000073" Range("E64").Value = "今金町" Range("G64").Value = "イマカネチョウ" Range("C65").Value = "000074" Range("E65").Value = "せたな町" Range("G65").Value = "セタナチョウ" Range("C66").Value = "000075" Range("E66").Value = "島牧村" Range("G66").Value = "シママキムラ" Range("C67").Value = "000076" Range("E67").Value = "寿都町" Range("G67").Value = "スッツチョウ" Range("C68").Value = "000077" Range("E68").Value = "黒松内町" Range("G68").Value = "クロマツナイチョウ" Range("C69").Value = "000078" Range("E69").Value = "蘭越町" Range("G69").Value = "ランコシチョウ" Range("C70").Value = "000079" Range("E70").Value = "ニセコ町" Range("G70").Value = "ニセコチョウ" Range("C71").Value = "000080" Range("E71").Value = "真狩村" Range("G71").Value = "マッカリムラ" Range("C72").Value = "000081" Range("E72").Value = "留寿都村" Range("G72").Value = "ルスツムラ" Range("C73").Value = "000082" Range("E73").Value = "喜茂別町" Range("G73").Value = "キモベツチョウ" Range("C74").Value = "000083" Range("E74").Value = "京極町" Range("G74").Value = "キョウゴクチョウ" Range("C75").Value = "000084" Range("E75").Value = "倶知安町" Range("G75").Value = "クッチャンチョウ" Range("C76").Value = "000085" Range("E76").Value = "共和町" Range("G76").Value = "キョウワチョウ" Range("C77").Value = "000086" Range("E77").Value = "岩内町" Range("G77").Value = "イワナイチョウ" Range("C78").Value = "000087" Range("E78").Value = "泊村" Range("G78").Value = "トマリムラ" Range("C79").Value = "000088" Range("E79").Value = "神恵内村" Range("G79").Value = "カモエナイムラ" Range("C80").Value = "000089" Range("E80").Value = "積丹町" Range("G80").Value = "シャコタンチョウ" Range("C81").Value = "000090" Range("E81").Value = "古平町" Range("G81").Value = "フルビラチョウ" Range("C82").Value = "000091" Range("E82").Value = "仁木町" Range("G82").Value = "ニキチョウ" Range("C83").Value = "000092" Range("E83").Value = "余市町" Range("G83").Value = "ヨイチチョウ" Range("C84").Value = "000093" Range("E84").Value = "赤井川村" Range("G84").Value = "アカイガワムラ" Range("C85").Value = "000094" Range("E85").Value = "南幌町" Range("G85").Value = "ナンポロチョウ" Range("C86").Value = "000095" Range("E86").Value = "奈井江町" Range("G86").Value = "ナイエチョウ" Range("C87").Value = "000096" Range("E87").Value = "上砂川町" Range("G87").Value = "カミスナガワチョウ" Range("C88").Value = "000097" Range("E88").Value = "由仁町" Range("G88").Value = "ユニチョウ" Range("C89").Value = "000098" Range("E89").Value = "長沼町" Range("G89").Value = "ナガヌマチョウ" Range("C90").Value = "000099" Range("E90").Value = "栗山町" Range("G90").Value = "クリヤマチョウ" Range("C91").Value = "000100" Range("E91").Value = "月形町" Range("G91").Value = "ツキガタチョウ" Range("C92").Value = "000101" Range("E92").Value = "浦臼町" Range("G92").Value = "ウラウスチョウ" Range("C93").Value = "000102" Range("E93").Value = "新十津川町" Range("G93").Value = "シントツカワチョウ" Range("C94").Value = "000103" Range("E94").Value = "妹背牛町" Range("G94").Value = "モセウシチョウ" Range("C95").Value = "000104" Range("E95").Value = "秩父別町" Range("G95").Value = "チップベツチョウ" Range("C96").Value = "000105" Range("E96").Value = "雨竜町" Range("G96").Value = "ウリュウチョウ" Range("C97").Value = "000106" Range("E97").Value = "北竜町" Range("G97").Value = "ホクリュウチョウ" Range("C98").Value = "000107" Range("E98").Value = "沼田町" Range("G98").Value = "ヌマタチョウ" Range("C99").Value = "000108" Range("E99").Value = "鷹栖町" Range("G99").Value = "タカスチョウ" Range("C100").Value = "000109" Range("E100").Value = "東神楽町" Range("G100").Value = "ヒガシカグラチョウ" Range("C101").Value = "000110" Range("E101").Value = "当麻町" Range("G101").Value = "トウマチョウ" Range("C102").Value = "000111" Range("E102").Value = "比布町" Range("G102").Value = "ピップチョウ" Range("C103").Value = "000112" Range("E103").Value = "愛別町" Range("G103").Value = "アイベツチョウ" Range("C104").Value = "000113" Range("E104").Value = "上川町" Range("G104,G1364").Value = "カミカワチョウ" Range("C105").Value = "000114" Range("E105").Value = "東川町" Range("G105").Value = "ヒガシカワチョウ" Range("C106").Value = "000115" Range("E106").Value = "美瑛町" Range("G106").Value = "ビエイチョウ" Range("C107").Value = "000116" Range("E107").Value = "上富良野町" Range("G107").Value = "カミフラノチョウ" Range("C108").Value = "000117" Range("E108").Value = "中富良野町" Range("G108").Value = "ナカフラノチョウ" Range("C109").Value = "000118" Range("E109").Value = "南富良野町" Range("G109").Value = "ミナミフラノチョウ" Range("C110").Value = "000119" Range("E110").Value = "占冠村" Range("G110").Value = "シムカップムラ" Range("C111").Value = "000120" Range("E111").Value = "和寒町" Range("G111").Value = "ワッサムチョウ" Range("C112").Value = "000121" Range("E112").Value = "剣淵町" Range("G112").Value = "ケンブチチョウ" Range("C113").Value = "000122" Range("E113").Value = "下川町" Range("G113").Value = "シモカワチョウ" Range("C114").Value = "000123" Range("E114").Value = "美深町" Range("G114").Value = "ビフカチョウ" Range("C115").Value = "000124" Range("E115").Value = "音威子府村" Range("G115").Value = "オトイネップムラ" Range("C116").Value = "000125" Range("E116").Value = "中川町" Range("G116").Value = "ナカガワチョウ" Range("C117").Value = "000126" Range("E117").Value = "幌加内町" Range("G117").Value = "ホロカナイチョウ" Range("C118").Value = "000127" Range("E118").Value = "増毛町" Range("G118").Value = "マシケチョウ" Range("C119").Value = "000128" Range("E119").Value = "小平町" Range("G119").Value = "オビラチョウ" Range("C120").Value = "000129" Range("E120").Value = "苫前町" Range("G120").Value = "トママエチョウ" Range("C121").Value = "000130" Range("E121").Value = "羽幌町" Range("G121").Value = "ハボロチョウ" Range("C122").Value = "000131" Range("E122").Value = "初山別村" Range("G122").Value = "ショサンベツムラ" Range("C123").Value = "000132" Range("E123").Value = "遠別町" Range("G123").Value = "エンベツチョウ" Range("C124").Value = "000133" Range("E124").Value = "天塩町" Range("G124").Value = "テシオチョウ" Range("C125").Value = "000134" Range("E125").Value = "猿払村" Range("G125").Value = "サルフツムラ" Range("C126").Value = "000135" Range("E126").Value = "浜頓別町" Range("G126").Value = "ハマトンベツチョウ" Range("C127").Value = "000136" Range("E127").Value = "中頓別町" Range("G127").Value = "ナカトンベツチョウ" Range("C128").Value = "000137" Range("E128").Value = "枝幸町" Range("C129").Value = "000138" Range("E129").Value = "豊富町" Range("G129").Value = "トヨトミチョウ" Range("C130").Value = "000139" Range("E130").Value = "礼文町" Range("G130").Value = "レブンチョウ" Range("C131").Value = "000140" Range("E131").Value = "利尻町" Range("G131").Value = "リシリチョウ" Range("C132").Value = "000141" Range("E132").Value = "利尻富士町" Range("G132").Value = "リシリフジチョウ" Range("C133").Value = "000142" Range("E133").Value = "幌延町" Range("G133").Value = "ホロノベチョウ" Range("C134").Value = "000143" Range("E134").Value = "美幌町" Range("G134").Value = "ビホロチョウ" Range("C135").Value = "000144" Range("E135").Value = "津別町" Range("G135").Value = "ツベツチョウ" Range("C136").Value = "000145" Range("E136").Value = "斜里町" Range("G136").Value = "シャリチョウ" Range("C137").Value = "000146" Range("E137").Value = "清里町" Range("G137").Value = "キヨサトチョウ" Range("C138").Value = "000147" Range("E138").Value = "小清水町" Range("G138").Value = "コシミズチョウ" Range("C139").Value = "000148" Range("E139").Value = "訓子府町" Range("G139").Value = "クンネップチョウ" Range("C140").Value = "000149" Range("E140").Value = "置戸町" Range("G140").Value = "オケトチョウ" Range("C141").Value = "000150" Range("E141").Value = "佐呂間町" Range("G141").Value = "サロマチョウ" Range("C142").Value = "000151" Range("E142").Value = "遠軽町" Range("G142").Value = "エンガルチョウ" Range("C143").Value = "000152" Range("E143").Value = "湧別町" Range("G143").Value = "ユウベツチョウ" Range("C144").Value = "000153" Range("E144").Value = "滝上町" Range("G144").Value = "タキノウエチョウ" Range("C145").Value = "000154" Range("E145").Value = "興部町" Range("G145").Value = "オコッペチョウ" Range("C146").Value = "000155" Range("E146").Value = "西興部村" Range("G146").Value = "ニシオコッペムラ" Range("C147").Value = "000156" Range("E147").Value = "雄武町" Range("G147").Value = "オウムチョウ" Range("C148").Value = "000157" Range("E148").Value = "大空町" Range("G148").Value = "オオゾラチョウ" Range("C149").Value = "000158" Range("E149").Value = "豊浦町" Range("G149").Value = "トヨウラチョウ" Range("C150").Value = "000159" Range("E150").Value = "壮瞥町" Range("G150").Value = "ソウベツチョウ" Range("C151").Value = "000160" Range("E151").Value = "白老町" Range("G151").Value = "シラオイチョウ" Range("C152").Value = "000161" Range("E152").Value = "厚真町" Range("G152").Value = "アツマチョウ" Range("C153").Value = "000162" Range("E153").Value = "洞爺湖町" Range("G153").Value = "トウヤコチョウ" Range("C154").Value = "000163" Range("E154").Value = "安平町" Range("G154").Value = "アビラチョウ" Range("C155").Value = "000164" Range("E155").Value = "むかわ町" Range("G155").Value = "ムカワチョウ" Range("C156").Value = "000165" Range("E156,E1428").Value = "日高町" Range("G156,G1428").Value = "ヒダカチョウ" Range("C157").Value = "000166" Range("E157").Value = "平取町" Range("G157").Value = "ビラトリチョウ" Range("C158").Value = "000167" Range("E158").Value = "新冠町" Range("G158").Value = "ニイカップチョウ" Range("C159").Value = "000168" Range("E159").Value = "浦河町" Range("G159").Value = "ウラカワチョウ" Range("C160").Value = "000169" Range("E160").Value = "様似町" Range("G160").Value = "サマニチョウ" Range("C161").Value = "000170" Range("E161").Value = "えりも町" Range("G161").Value = "エリモチョウ" Range("C162").Value = "000171" Range("E162").Value = "新ひだか町" Range("G162").Value = "シンヒダカチョウ" Range("C163").Value = "000172" Range("E163").Value = "音更町" Range("G163").Value = "オトフケチョウ" Range("C164").Value = "000173" Range("E164").Value = "士幌町" Range("G164").Value = "シホロチョウ" Range("C165").Value = "000174" Range("E165").Value = "上士幌町" Range("G165").Value = "カミシホロチョウ" Range("C166").Value = "000175" Range("E166").Value = "鹿追町" Range("G166").Value = "シカオイチョウ" Range("C167").Value = "000176" Range("E167").Value = "新得町" Range("G167").Value = "シントクチョウ" Range("C168").Value = "000177" Range("E168,E1079").Value = "清水町" Range("G168,G1079").Value = "シミズチョウ" Range("C169").Value = "000178" Range("E169").Value = "芽室町" Range("G169").Value = "メムロチョウ" Range("C170").Value = "000179" Range("E170").Value = "中札内村" Range("G170").Value = "ナカサツナイムラ" Range("C171").Value = "000180" Range("E171").Value = "更別村" Range("G171").Value = "サラベツムラ" Range("C172").Value = "000181" Range("E172").Value = "大樹町" Range("G172,G1181").Value = "タイキチョウ" Range("C173").Value = "000182" Range("E173").Value = "広尾町" Range("G173").Value = "ヒロオチョウ" Range("C174").Value = "000183" Range("E174").Value = "幕別町" Range("G174").Value = "マクベツチョウ" Range("C175").Value = "000184" Range("E175,E883,E982,E1028").Value = "池田町" Range("G175,G883,G1028").Value = "イケダチョウ" Range("C176").Value = "000185" Range("E176").Value = "豊頃町" Range("G176").Value = "トヨコロチョウ" Range("C177").Value = "000186" Range("E177").Value = "本別町" Range("G177").Value = "ホンベツチョウ" Range("C178").Value = "000187" Range("E178").Value = "足寄町" Range("G178").Value = "アショロチョウ" Range("C179").Value = "000188" Range("E179").Value = "陸別町" Range("G179").Value = "リクベツチョウ" Range("C180").Value = "000189" Range("E180").Value = "浦幌町" Range("G180").Value = "ウラホロチョウ" Range("C181").Value = "000190" Range("E181").Value = "釧路町" Range("G181").Value = "クシロチョウ" Range("C182").Value = "000191" Range("E182").Value = "厚岸町" Range("G182").Value = "アッケシチョウ" Range("C183").Value = "000192" Range("E183").Value = "浜中町" Range("G183").Value = "ハマナカチョウ" Range("C184").Value = "000193" Range("E184").Value = "標茶町" Range("G184").Value = "シベチャチョウ" Range("C185").Value = "000194" Range("E185").Value = "弟子屈町" Range("G185").Value = "テシカガチョウ" Range("C186").Value = "000195" Range("E186").Value = "鶴居村" Range("G186").Value = "ツルイムラ" Range("C187").Value = "000196" Range("E187").Value = "白糠町" Range("G187").Value = "シラヌカチョウ" Range("C188").Value = "000197" Range("E188").Value = "別海町" Range("G188").Value = "ベツカイチョウ" Range("C189").Value = "000198" Range("E189").Value = "中標津町" Range("G189").Value = "ナカシベツチョウ" Range("C190").Value = "000199" Range("E190").Value = "標津町" Range("G190").Value = "シベツチョウ" Range("C191").Value = "000200" Range("E191").Value = "羅臼町" Range("G191").Value = "ラウスチョウ" Range("C192").Value = "000201" Range("F192:F232").Value = "アオモリケン" Range("C193").Value = "000202" Range("E193").Value = "青森市" Range("G193").Value = "アオモリシ" Range("C194").Value = "000203" Range("E194").Value = "弘前市" Range("G194").Value = "ヒロサキシ" Range("C195").Value = "000204" Range("E195").Value = "八戸市" Range("G195").Value = "ハチノヘシ" Range("C196").Value = "000205" Range("E196").Value = "黒石市" Range("G196").Value = "クロイシシ" Range("C197").Value = "000206" Range("E197").Value = "五所川原市" Range("G197").Value = "ゴショガワラシ" Range("C198").Value = "000207" Range("E198").Value = "十和田市" Range("G198").Value = "トワダシ" Range("C199").Value = "000208" Range("E199").Value = "三沢市" Range("G199").Value = "ミサワシ" Range("C200").Value = "000209" Range("E200").Value = "むつ市" Range("G200").Value = "ムツシ" Range("C201").Value = "000210" Range("E201").Value = "つがる市" Range("G201").Value = "ツガルシ" Range("C202").Value = "000211" Range("E202").Value = "平川市" Range("G202").Value = "ヒラカワシ" Range("C203").Value = "000212" Range("E203").Value = "平内町" Range("G203").Value = "ヒラナイマチ" Range("C204").Value = "000213" Range("E204").Value = "今別町" Range("G204").Value = "イマベツマチ" Range("C205").Value = "000214" Range("E205").Value = "蓬田村" Range("G205").Value = "ヨモギタムラ" Range("C206").Value = "000215" Range("E206").Value = "外ヶ浜町" Range("G206").Value = "ソトガハママチ" Range("C207").Value = "000216" Range("E207").Value = "鰺ヶ沢町" Range("G207").Value = "アジガサワマチ" Range("C208").Value = "000217" Range("E208").Value = "深浦町" Range("G208").Value = "フカウラマチ" Range("C209").Value = "000218" Range("E209").Value = "西目屋村" Range("G209").Value = "ニシメヤムラ" Range("C210").Value = "000219" Range("E210").Value = "藤崎町" Range("G210").Value = "フジサキマチ" Range("C211").Value = "000220" Range("E211").Value = "大鰐町" Range("G211").Value = "オオワニマチ" Range("C212").Value = "000221" Range("E212").Value = "田舎館村" Range("G212").Value = "イナカダテムラ" Range("C213").Value = "000222" Range("E213").Value = "板柳町" Range("G213").Value = "イタヤナギマチ" Range("C214").Value = "000223" Range("E214").Value = "鶴田町" Range("G214").Value = "ツルタマチ" Range("C215").Value = "000224" Range("E215").Value = "中泊町" Range("G215").Value = "ナカドマリマチ" Range("C216").Value = "000225" Range("E216").Value = "野辺地町" Range("G216").Value = "ノヘジマチ" Range("C217").Value = "000226" Range("E217").Value = "七戸町" Range("G217").Value = "シチノヘマチ" Range("C218").Value = "000227" Range("E218").Value = "六戸町" Range("G218").Value = "ロクノヘマチ" Range("C219").Value = "000228" Range("E219").Value = "横浜町" Range("G219").Value = "ヨコハママチ" Range("C220").Value = "000229" Range("E220").Value = "東北町" Range("G220").Value = "トウホクマチ" Range("C221").Value = "000230" Range("E221").Value = "六ヶ所村" Range("G221").Value = "ロッカショムラ" Range("C222").Value = "000231" Range("E222").Value = "おいらせ町" Range("G222").Value = "オイラセチョウ" Range("C223").Value = "000232" Range("E223").Value = "大間町" Range("G223").Value = "オオママチ" Range("C224").Value = "000233" Range("E224").Value = "東通村" Range("G224").Value = "ヒガシドオリムラ" Range("C225").Value = "000234" Range("E225").Value = "風間浦村" Range("G225").Value = "カザマウラムラ" Range("C226").Value = "000235" Range("E226").Value = "佐井村" Range("G226").Value = "サイムラ" Range("C227").Value = "000236" Range("E227").Value = "三戸町" Range("G227").Value = "サンノヘマチ" Range("C228").Value = "000237" Range("E228").Value = "五戸町" Range("G228").Value = "ゴノヘマチ" Range("C229").Value = "000238" Range("E229").Value = "田子町" Range("G229").Value = "タッコマチ" Range("C230").Value = "000239" Range("E230,E907").Value = "南部町" Range("G230,G907").Value = "ナンブチョウ" Range("C231").Value = "000240" Range("E231").Value = "階上町" Range("G231").Value = "ハシカミチョウ" Range("C232").Value = "000241" Range("E232").Value = "新郷村" Range("G232").Value = "シンゴウムラ" Range("C233").Value = "000242" Range("F233:F266").Value = "イワテケン" Range("C234").Value = "000243" Range("E234").Value = "盛岡市" Range("G234").Value = "モリオカシ" Range("C235").Value = "000244" Range("E235").Value = "宮古市" Range("G235").Value = "ミヤコシ" Range("C236").Value = "000245" Range("E236").Value = "大船渡市" Range("G236").Value = "オオフナトシ" Range("C237").Value = "000246" Range("E237").Value = "花巻市" Range("G237").Value = "ハナマキシ" Range("C238").Value = "000247" Range("E238").Value = "北上市" Range("G238").Value = "キタカミシ" Range("C239").Value = "000248" Range("E239").Value = "久慈市" Range("G239").Value = "クジシ" Range("C240").Value = "000249" Range("E240").Value = "遠野市" Range("G240").Value = "トオノシ" Range("C241").Value = "000250" Range("E241").Value = "一関市" Range("G241").Value = "イチノセキシ" Range("C242").Value = "000251" Range("E242").Value = "陸前高田市" Range("G242").Value = "リクゼンタカタシ" Range("C243").Value = "000252" Range("E243").Value = "釜石市" Range("G243").Value = "カマイシシ" Range("C244").Value = "000253" Range("E244").Value = "二戸市" Range("G244").Value = "ニノヘシ" Range("C245").Value = "000254" Range("E245").Value = "八幡平市" Range("G245").Value = "ハチマンタイシ" Range("C246").Value = "000255" Range("E246").Value = "奥州市" Range("G246").Value = "オウシュウシ" Range("C247").Value = "000256" Range("E247").Value = "滝沢市" Range("G247").Value = "タキザワシ" Range("C248").Value = "000257" Range("E248").Value = "雫石町" Range("G248").Value = "シズクイシチョウ" Range("C249").Value = "000258" Range("E249").Value = "葛巻町" Range("G249").Value = "クズマキマチ" Range("C250").Value = "000259" Range("E250").Value = "岩手町" Range("G250").Value = "イワテマチ" Range("C251").Value = "000260" Range("E251").Value = "紫波町" Range("G251").Value = "シワチョウ" Range("C252").Value = "000261" Range("E252").Value = "矢巾町" Range("G252").Value = "ヤハバチョウ" Range("C253").Value = "000262" Range("E253").Value = "西和賀町" Range("G253").Value = "ニシワガマチ" Range("C254").Value = "000263" Range("E254").Value = "金ケ崎町" Range("G254").Value = "カネガサキチョウ" Range("C255").Value = "000264" Range("E255").Value = "平泉町" Range("G255").Value = "ヒライズミチョウ" Range("C256").Value = "000265" Range("E256").Value = "住田町" Range("G256").Value = "スミタチョウ" Range("C257").Value = "000266" Range("E257").Value = "大槌町" Range("G257").Value = "オオツチチョウ" Range("C258").Value = "000267" Range("E258").Value = "山田町" Range("G258").Value = "ヤマダマチ" Range("C259").Value = "000268" Range("E259").Value = "岩泉町" Range("G259").Value = "イワイズミチョウ" Range("C260").Value = "000269" Range("E260").Value = "田野畑村" Range("G260").Value = "タノハタムラ" Range("C261").Value = "000270" Range("E261").Value = "普代村" Range("G261").Value = "フダイムラ" Range("C262").Value = "000271" Range("E262").Value = "軽米町" Range("G262").Value = "カルマイマチ" Range("C263").Value = "000272" Range("E263").Value = "野田村" Range("G263").Value = "ノダムラ" Range("C264").Value = "000273" Range("E264").Value = "九戸村" Range("G264").Value = "クノヘムラ" Range("C265").Value = "000274" Range("E265").Value = "洋野町" Range("G265").Value = "ヒロノチョウ" Range("C266").Value = "000275" Range("E266").Value = "一戸町" Range("G266").Value = "イチノヘマチ" Range("C267").Value = "000276" Range("F267:F307").Value = "ミヤギケン" Range("C268").Value = "000277" Range("E268").Value = "仙台市" Range("G268").Value = "センダイシ" Range("C269").Value = "000278" Range("E269").Value = "仙台市青葉区" Range("G269").Value = "せんだいしあおばく" Range("C270").Value = "000279" Range("E270").Value = "仙台市宮城野区" Range("G270").Value = "せんだいしみやぎのく" Range("C271").Value = "000280" Range("E271").Value = "仙台市若林区" Range("G271").Value = "せんだいしわかばやしく" Range("C272").Value = "000281" Range("E272").Value = "仙台市太白区" Range("G272").Value = "せんだいしたいはくく" Range("C273").Value = "000282" Range("E273").Value = "仙台市泉区" Range("G273").Value = "せんだいしいずみく" Range("C274").Value = "000283" Range("E274").Value = "石巻市" Range("G274").Value = "イシノマキシ" Range("C275").Value = "000284" Range("E275").Value = "塩竈市" Range("G275").Value = "シオガマシ" Range("C276").Value = "000285" Range("E276").Value = "気仙沼市" Range("G276").Value = "ケセンヌマシ" Range("C277").Value = "000286" Range("E277").Value = "白石市" Range("G277").Value = "シロイシシ" Range("C278").Value = "000287" Range("E278").Value = "名取市" Range("G278").Value = "ナトリシ" Range("C279").Value = "000288" Range("E279").Value = "角田市" Range("G279").Value = "カクダシ" Range("C280").Value = "000289" Range("E280").Value = "多賀城市" Range("G280").Value = "タガジョウシ" Range("C281").Value = "000290" Range("E281").Value = "岩沼市" Range("G281").Value = "イワヌマシ" Range("C282").Value = "000291" Range("E282").Value = "登米市" Range("G282").Value = "トメシ" Range("C283").Value = "000292" Range("E283").Value = "栗原市" Range("G283").Value = "クリハラシ" Range("C284").Value = "000293" Range("E284").Value = "東松島市" Range("G284").Value = "ヒガシマツシマシ" Range("C285").Value = "000294" Range("E285").Value = "大崎市" Range("G285").Value = "オオサキシ" Range("C286").Value = "000295" Range("E286").Value = "富谷市" Range("G286").Value = "トミヤシ" Range("C287").Value = "000296" Range("E287").Value = "蔵王町" Range("G287").Value = "ザオウマチ" Range("C288").Value = "000297" Range("E288").Value = "七ヶ宿町" Range("G288").Value = "シチカシュクマチ" Range("C289").Value = "000298" Range("E289").Value = "大河原町" Range("G289").Value = "オオガワラマチ" Range("C290").Value = "000299" Range("E290").Value = "村田町" Range("G290").Value = "ムラタマチ" Range("C291").Value = "000300" Range("E291").Value = "柴田町" Range("G291").Value = "シバタマチ" Range("C292").Value = "000301" Range("E292").Value = "川崎町" Range("G292").Value = "カワサキマチ" Range("C293").Value = "000302" Range("E293").Value = "丸森町" Range("G293").Value = "マルモリマチ" Range("C294").Value = "000303" Range("E294").Value = "亘理町" Range("G294").Value = "ワタリチョウ" Range("C295").Value = "000304" Range("E295").Value = "山元町" Range("G295").Value = "ヤマモトチョウ" Range("C296").Value = "000305" Range("E296").Value = "松島町" Range("G296").Value = "マツシママチ" Range("C297").Value = "000306" Range("E297").Value = "七ヶ浜町" Range("G297").Value = "シチガハママチ" Range("C298").Value = "000307" Range("E298").Value = "利府町" Range("G298").Value = "リフチョウ" Range("C299").Value = "000308" Range("E299").Value = "大和町" Range("G299").Value = "タイワチョウ" Range("C300").Value = "000309" Range("E300").Value = "大郷町" Range("G300").Value = "オオサトチョウ" Range("C301").Value = "000310" Range("E301").Value = "大衡村" Range("G301").Value = "オオヒラムラ" Range("C302").Value = "000311" Range("E302").Value = "色麻町" Range("G302").Value = "シカマチョウ" Range("C303").Value = "000312" Range("E303").Value = "加美町" Range("G303").Value = "カミマチ" Range("C304").Value = "000313" Range("E304").Value = "涌谷町" Range("G304").Value = "ワクヤチョウ" Range("C305").Value = "000314" Range("E305,E604").Value = "美里町" Range("G305,G604").Value = "ミサトマチ" Range("C306").Value = "000315" Range("E306").Value = "女川町" Range("G306").Value = "オナガワチョウ" Range("C307").Value = "000316" Range("E307").Value = "南三陸町" Range("G307").Value = "ミナミサンリクチョウ" Range("C308").Value = "000317" Range("F308:F333").Value = "アキタケン" Range("C309").Value = "000318" Range("E309").Value = "秋田市" Range("G309").Value = "アキタシ" Range("C310").Value = "000319" Range("E310").Value = "能代市" Range("G310").Value = "ノシロシ" Range("C311").Value = "000320" Range("E311").Value = "横手市" Range("G311").Value = "ヨコテシ" Range("C312").Value = "000321" Range("E312").Value = "大館市" Range("G312").Value = "オオダテシ" Range("C313").Value = "000322" Range("E313").Value = "男鹿市" Range("G313").Value = "オガシ" Range("C314").Value = "000323" Range("E314").Value = "湯沢市" Range("G314").Value = "ユザワシ" Range("C315").Value = "000324" Range("E315").Value = "鹿角市" Range("G315").Value = "カヅノシ" Range("C316").Value = "000325" Range("E316").Value = "由利本荘市" Range("G316").Value = "ユリホンジョウシ" Range("C317").Value = "000326" Range("E317").Value = "潟上市" Range("G317").Value = "カタガミシ" Range("C318").Value = "000327" Range("E318").Value = "大仙市" Range("G318").Value = "ダイセンシ" Range("C319").Value = "000328" Range("E319").Value = "北秋田市" Range("G319").Value = "キタアキタシ" Range("C320").Value = "000329" Range("E320").Value = "にかほ市" Range("G320").Value = "ニカホシ" Range("C321").Value = "000330" Range("E321").Value = "仙北市" Range("G321").Value = "センボクシ" Range("C322").Value = "000331" Range("E322").Value = "小坂町" Range("G322").Value = "コサカマチ" Range("C323").Value = "000332" Range("E323").Value = "上小阿仁村" Range("G323").Value = "カミコアニムラ" Range("C324").Value = "000333" Range("E324").Value = "藤里町" Range("G324").Value = "フジサトマチ" Range("C325").Value = "000334" Range("E325").Value = "三種町" Range("G325").Value = "ミタネチョウ" Range("C326").Value = "000335" Range("E326").Value = "八峰町" Range("G326").Value = "ハッポウチョウ" Range("C327").Value = "000336" Range("E327").Value = "五城目町" Range("G327").Value = "ゴジョウメマチ" Range("C328").Value = "000337" Range("E328").Value = "八郎潟町" Range("G328").Value = "ハチロウガタマチ" Range("C329").Value = "000338" Range("E329").Value = "井川町" Range("G329").Value = "イカワマチ" Range("C330").Value = "000339" Range("E330").Value = "大潟村" Range("G330").Value = "オオガタムラ" Range("C331").Value = "000340" Range("E331").Value = "美郷町" Range("G331").Value = "ミサトチョウ" Range("C332").Value = "000341" Range("E332").Value = "羽後町" Range("G332").Value = "ウゴマチ" Range("C333").Value = "000342" Range("E333").Value = "東成瀬村" Range("G333").Value = "ヒガシナルセムラ" Range("C334").Value = "000343" Range("F334:F369").Value = "ヤマガタケン" Range("C335").Value = "000344" Range("E335").Value = "山形市" Range("G335,G1011").Value = "ヤマガタシ" Range("C336").Value = "000345" Range("E336").Value = "米沢市" Range("G336").Value = "ヨネザワシ" Range("C337").Value = "000346" Range("E337").Value = "鶴岡市" Range("G337").Value = "ツルオカシ" Range("C338").Value = "000347" Range("E338").Value = "酒田市" Range("G338").Value = "サカタシ" Range("C339").Value = "000348" Range("E339").Value = "新庄市" Range("G339").Value = "シンジョウシ" Range("C340").Value = "000349" Range("E340").Value = "寒河江市" Range("G340").Value = "サガエシ" Range("C341").Value = "000350" Range("E341").Value = "上山市" Range("G341").Value = "カミノヤマシ" Range("C342").Value = "000351" Range("E342").Value = "村山市" Range("G342").Value = "ムラヤマシ" Range("C343").Value = "000352" Range("E343").Value = "長井市" Range("G343").Value = "ナガイシ" Range("C344").Value = "000353" Range("E344").Value = "天童市" Range("G344").Value = "テンドウシ" Range("C345").Value = "000354" Range("E345").Value = "東根市" Range("G345").Value = "ヒガシネシ" Range("C346").Value = "000355" Range("E346").Value = "尾花沢市" Range("G346").Value = "オバナザワシ" Range("C347").Value = "000356" Range("E347").Value = "南陽市" Range("G347").Value = "ナンヨウシ" Range("C348").Value = "000357" Range("E348").Value = "山辺町" Range("G348").Value = "ヤマノベマチ" Range("C349").Value = "000358" Range("E349").Value = "中山町" Range("G349").Value = "ナカヤママチ" Range("C350").Value = "000359" Range("E350").Value = "河北町" Range("G350").Value = "カホクチョウ" Range("C351").Value = "000360" Range("E351").Value = "西川町" Range("G351").Value = "ニシカワマチ" Range("C352").Value = "000361" Range("E352,E851,E1174").Value = "朝日町" Range("G352,G851").Value = "アサヒマチ" Range("C353").Value = "000362" Range("E353").Value = "大江町" Range("G353").Value = "オオエマチ" Range("C354").Value = "000363" Range("E354").Value = "大石田町" Range("G354").Value = "オオイシダマチ" Range("C355").Value = "000364" Range("E355,E402").Value = "金山町" Range("G355,G402").Value = "カネヤママチ" Range("C356").Value = "000365" Range("E356").Value = "最上町" Range("G356").Value = "モガミマチ" Range("C357").Value = "000366" Range("E357").Value = "舟形町" Range("G357").Value = "フナガタマチ" Range("C358").Value = "000367" Range("E358").Value = "真室川町" Range("G358").Value = "マムロガワマチ" Range("C359").Value = "000368" Range("E359").Value = "大蔵村" Range("G359").Value = "オオクラムラ" Range("C360").Value = "000369" Range("E360").Value = "鮭川村" Range("G360").Value = "サケガワムラ" Range("C361").Value = "000370" Range("E361").Value = "戸沢村" Range("G361").Value = "トザワムラ" Range("C362").Value = "000371" Range("E362").Value = "高畠町" Range("G362").Value = "タカハタマチ" Range("C363").Value = "000372" Range("E363,E1388").Value = "川西町" Range("G363").Value = "カワニシマチ" Range("C364").Value = "000373" Range("E364").Value = "小国町" Range("G364").Value = "オグニマチ" Range("C365").Value = "000374" Range("E365").Value = "白鷹町" Range("G365").Value = "シラタカマチ" Range("C366").Value = "000375" Range("E366").Value = "飯豊町" Range("G366").Value = "イイデマチ" Range("C367").Value = "000376" Range("E367").Value = "三川町" Range("G367").Value = "ミカワマチ" Range("C368").Value = "000377" Range("E368").Value = "庄内町" Range("G368").Value = "シヨウナイマチ" Range("C369").Value = "000378" Range("E369").Value = "遊佐町" Range("G369").Value = "ユザマチ" Range("C370").Value = "000379" Range("F370:F429").Value = "フクシマケン" Range("C371").Value = "000380" Range("E371").Value = "福島市" Range("G371").Value = "フクシマシ" Range("C372").Value = "000381" Range("E372").Value = "会津若松市" Range("G372").Value = "アイヅワカマツシ" Range("C373").Value = "000382" Range("E373").Value = "郡山市" Range("G373").Value = "コオリヤマシ" Range("C374").Value = "000383" Range("E374").Value = "いわき市" Range("G374").Value = "イワキシ" Range("C375").Value = "000384" Range("E375").Value = "白河市" Range("G375").Value = "シラカワシ" Range("C376").Value = "000385" Range("E376").Value = "須賀川市" Range("G376").Value = "スカガワシ" Range("C377").Value = "000386" Range("E377").Value = "喜多方市" Range("G377").Value = "キタカタシ" Range("C378").Value = "000387" Range("E378").Value = "相馬市" Range("G378").Value = "ソウマシ" Range("C379").Value = "000388" Range("E379").Value = "二本松市" Range("G379").Value = "ニホンマツシ" Range("C380").Value = "000389" Range("E380").Value = "田村市" Range("G380").Value = "タムラシ" Range("C381").Value = "000390" Range("E381").Value = "南相馬市" Range("G381").Value = "ミナミソウマシ" Range("C382").Value = "000391" Range("C383").Value = "000392" Range("E383").Value = "本宮市" Range("G383").Value = "モトミヤシ" Range("C384").Value = "000393" Range("E384").Value = "桑折町" Range("G384").Value = "コオリマチ" Range("C385").Value = "000394" Range("E385").Value = "国見町" Range("G385").Value = "クニミマチ" Range("C386").Value = "000395" Range("E386").Value = "川俣町" Range("G386").Value = "カワマタマチ" Range("C387").Value = "000396" Range("E387").Value = "大玉村" Range("G387").Value = "オオタマムラ" Range("C388").Value = "000397" Range("E388").Value = "鏡石町" Range("G388").Value = "カガミイシマチ" Range("C389").Value = "000398" Range("E389").Value = "天栄村" Range("G389").Value = "テンエイムラ" Range("C390").Value = "000399" Range("E390").Value = "下郷町" Range("G390").Value = "シモゴウマチ" Range("C391").Value = "000400" Range("E391").Value = "檜枝岐村" Range("G391").Value = "ヒノエマタムラ" Range("C392").Value = "000401" Range("E392").Value = "只見町" Range("G392").Value = "タダミマチ" Range("C393").Value = "000402" Range("E393").Value = "南会津町" Range("G393").Value = "ミナミアイヅマチ" Range("C394").Value = "000403" Range("E394").Value = "北塩原村" Range("G394").Value = "キタシオバラムラ" Range("C395").Value = "000404" Range("E395").Value = "西会津町" Range("G395").Value = "ニシアイヅマチ" Range("C396").Value = "000405" Range("E396").Value = "磐梯町" Range("G396").Value = "バンダイマチ" Range("C397").Value = "000406" Range("E397").Value = "猪苗代町" Range("G397").Value = "イナワシロマチ" Range("C398").Value = "000407" Range("E398").Value = "会津坂下町" Range("G398").Value = "アイヅバンゲマチ" Range("C399").Value = "000408" Range("E399").Value = "湯川村" Range("G399").Value = "ユガワムラ" Range("C400").Value = "000409" Range("E400").Value = "柳津町" Range("G400").Value = "ヤナイヅマチ" Range("C401").Value = "000410" Range("E401").Value = "三島町" Range("G401").Value = "ミシママチ" Range("C402").Value = "000411" Range("C403").Value = "000412" Range("E403,E529").Value = "昭和村" Range("G403,G529").Value = "ショウワムラ" Range("C404").Value = "000413" Range("E404").Value = "会津美里町" Range("G404").Value = "アイヅミサトマチ" Range("C405").Value = "000414" Range("E405").Value = "西郷村" Range("G405").Value = "ニシゴウムラ" Range("C406").Value = "000415" Range("E406").Value = "泉崎村" Range("G406").Value = "イズミザキムラ" Range("C407").Value = "000416" Range("E407").Value = "中島村" Range("G407").Value = "ナカジマムラ" Range("C408").Value = "000417" Range("E408").Value = "矢吹町" Range("G408").Value = "ヤブキマチ" Range("C409").Value = "000418" Range("E409").Value = "棚倉町" Range("G409").Value = "タナグラマチ" Range("C410").Value = "000419" Range("E410").Value = "矢祭町" Range("G410").Value = "ヤマツリマチ" Range("C411").Value = "000420" Range("E411").Value = "塙町" Range("G411").Value = "ハナワマチ" Range("C412").Value = "000421" Range("E412").Value = "鮫川村" Range("G412").Value = "サメガワムラ" Range("C413").Value = "000422" Range("E413").Value = "石川町" Range("G413").Value = "イシカワマチ" Range("C414").Value = "000423" Range("E414").Value = "玉川村" Range("G414").Value = "タマカワムラ" Range("C415").Value = "000424" Range("E415").Value = "平田村" Range("G415").Value = "ヒラタムラ" Range("C416").Value = "000425" Range("E416").Value = "浅川町" Range("G416").Value = "アサカワマチ" Range("C417").Value = "000426" Range("E417").Value = "古殿町" Range("G417").Value = "フルドノマチ" Range("C418").Value = "000427" Range("E418").Value = "三春町" Range("G418").Value = "ミハルマチ" Range("C419").Value = "000428" Range("E419").Value = "小野町" Range("G419").Value = "オノマチ" Range("C420").Value = "000429" Range("E420").Value = "広野町" Range("G420").Value = "ヒロノマチ" Range("C421").Value = "000430" Range("E421").Value = "楢葉町" Range("G421").Value = "ナラハマチ" Range("C422").Value = "000431" Range("E422").Value = "富岡町" Range("G422").Value = "トミオカマチ" Range("C423").Value = "000432" Range("E423").Value = "川内村" Range("G423").Value = "カワウチムラ" Range("C424").Value = "000433" Range("E424").Value = "大熊町" Range("G424").Value = "オオクママチ" Range("C425").Value = "000434" Range("E425").Value = "双葉町" Range("G425").Value = "フタバマチ" Range("C426").Value = "000435" Range("E426").Value = "浪江町" Range("G426").Value = "ナミエマチ" Range("C427").Value = "000436" Range("E427").Value = "葛尾村" Range("G427").Value = "カツラオムラ" Range("C428").Value = "000437" Range("E428").Value = "新地町" Range("G428").Value = "シンチマチ" Range("C429").Value = "000438" Range("E429").Value = "飯舘村" Range("G429").Value = "イイタテムラ" Range("C430").Value = "000439" Range("F430:F474").Value = "イバラキケン" Range("C431").Value = "000440" Range("E431").Value = "水戸市" Range("G431").Value = "ミトシ" Range("C432").Value = "000441" Range("E432").Value = "日立市" Range("G432").Value = "ヒタチシ" Range("C433").Value = "000442" Range("E433").Value = "土浦市" Range("G433").Value = "ツチウラシ" Range("C434").Value = "000443" Range("E434").Value = "古河市" Range("G434").Value = "コガシ" Range("C435").Value = "000444" Range("E435").Value = "石岡市" Range("G435").Value = "イシオカシ" Range("C436").Value = "000445" Range("E436").Value = "結城市" Range("G436").Value = "ユウキシ" Range("C437").Value = "000446" Range("E437").Value = "龍ケ崎市" Range("G437").Value = "リュウガサキシ" Range("C438").Value = "000447" Range("E438").Value = "下妻市" Range("G438").Value = "シモツマシ" Range("C439").Value = "000448" Range("E439").Value = "常総市" Range("G439").Value = "ジョウソウシ" Range("C440").Value = "000449" Range("E440").Value = "常陸太田市" Range("G440").Value = "ヒタチオオタシ" Range("C441").Value = "000450" Range("E441").Value = "高萩市" Range("G441").Value = "タカハギシ" Range("C442").Value = "000451" Range("E442").Value = "北茨城市" Range("G442").Value = "キタイバラキシ" Range("C443").Value = "000452" Range("E443").Value = "笠間市" Range("G443").Value = "カサマシ" Range("C444").Value = "000453" Range("E444").Value = "取手市" Range("G444").Value = "トリデシ" Range("C445").Value = "000454" Range("E445").Value = "牛久市" Range("G445").Value = "ウシクシ" Range("C446").Value = "000455" Range("E446").Value = "つくば市" Range("G446").Value = "ツクバシ" Range("C447").Value = "000456" Range("E447").Value = "ひたちなか市" Range("G447").Value = "ヒタチナカシ" Range("C448").Value = "000457" Range("E448").Value = "鹿嶋市" Range("G448").Value = "カシマシ" Range("C449").Value = "000458" Range("E449").Value = "潮来市" Range("G449").Value = "イタコシ" Range("C450").Value = "000459" Range("E450").Value = "守谷市" Range("G450").Value = "モリヤシ" Range("C451").Value = "000460" Range("E451").Value = "常陸大宮市" Range("G451").Value = "ヒタチオオミヤシ" Range("C452").Value = "000461" Range("E452").Value = "那珂市" Range("G452").Value = "ナカシ" Range("C453").Value = "000462" Range("E453").Value = "筑西市" Range("G453").Value = "チクセイシ" Range("C454").Value = "000463" Range("E454").Value = "坂東市" Range("G454").Value = "バンドウシ" Range("C455").Value = "000464" Range("E455").Value = "稲敷市" Range("G455").Value = "イナシキシ" Range("C456").Value = "000465" Range("E456").Value = "かすみがうら市" Range("G456").Value = "カスミガウラシ" Range("C457").Value = "000466" Range("E457").Value = "桜川市" Range("G457").Value = "サクラガワシ" Range("C458").Value = "000467" Range("E458").Value = "神栖市" Range("G458").Value = "カミスシ" Range("C459").Value = "000468" Range("E459").Value = "行方市" Range("G459").Value = "ナメガタシ" Range("C460").Value = "000469" Range("E460").Value = "鉾田市" Range("G460").Value = "ホコタシ" Range("C461").Value = "000470" Range("E461").Value = "つくばみらい市" Range("G461").Value = "ツクバミライシ" Range("C462").Value = "000471" Range("E462").Value = "小美玉市" Range("G462").Value = "オミタマシ" Range("C463").Value = "000472" Range("E463").Value = "茨城町" Range("G463").Value = "イバラキマチ" Range("C464").Value = "000473" Range("E464").Value = "大洗町" Range("G464").Value = "オオアライマチ" Range("C465").Value = "000474" Range("E465").Value = "城里町" Range("G465").Value = "シロサトマチ" Range("C466").Value = "000475" Range("E466").Value = "東海村" Range("G466").Value = "トウカイムラ" Range("C467").Value = "000476" Range("E467").Value = "大子町" Range("G467").Value = "ダイゴマチ" Range("C468").Value = "000477" Range("E468").Value = "美浦村" Range("G468").Value = "ミホムラ" Range("C469").Value = "000478" Range("E469").Value = "阿見町" Range("G469").Value = "アミマチ" Range("C470").Value = "000479" Range("E470").Value = "河内町" Range("G470").Value = "カワチマチ" Range("C471").Value = "000480" Range("E471").Value = "八千代町" Range("G471").Value = "ヤチヨマチ" Range("C472").Value = "000481" Range("E472").Value = "五霞町" Range("G472").Value = "ゴカマチ" Range("C473").Value = "000482" Range("E473").Value = "境町" Range("G473").Value = "サカイマチ" Range("C474").Value = "000483" Range("E474").Value = "利根町" Range("G474").Value = "トネマチ" Range("C475").Value = "000484" Range("F475:F500").Value = "トチギケン" Range("C476").Value = "000485" Range("E476").Value = "宇都宮市" Range("G476").Value = "ウツノミヤシ" Range("C477").Value = "000486" Range("E477").Value = "足利市" Range("G477").Value = "アシカガシ" Range("C478").Value = "000487" Range("E478").Value = "栃木市" Range("G478").Value = "トチギシ" Range("C479").Value = "000488" Range("E479").Value = "佐野市" Range("G479").Value = "サノシ" Range("C480").Value = "000489" Range("E480").Value = "鹿沼市" Range("G480").Value = "カヌマシ" Range("C481").Value = "000490" Range("E481").Value = "日光市" Range("G481").Value = "ニッコウシ" Range("C482").Value = "000491" Range("E482").Value = "小山市" Range("G482").Value = "オヤマシ" Range("C483").Value = "000492" Range("E483").Value = "真岡市" Range("G483").Value = "モオカシ" Range("C484").Value = "000493" Range("E484").Value = "大田原市" Range("G484").Value = "オオタワラシ" Range("C485").Value = "000494" Range("E485").Value = "矢板市" Range("G485").Value = "ヤイタシ" Range("C486").Value = "000495" Range("E486").Value = "那須塩原市" Range("G486").Value = "ナスシオバラシ" Range("C487").Value = "000496" Range("E487").Value = "さくら市" Range("G487,G628").Value = "サクラシ" Range("C488").Value = "000497" Range("E488").Value = "那須烏山市" Range("G488").Value = "ナスカラスヤマシ" Range("C489").Value = "000498" Range("E489").Value = "下野市" Range("G489").Value = "シモツケシ" Range("C490").Value = "000499" Range("E490").Value = "上三川町" Range("G490").Value = "カミノカワマチ" Range("C491").Value = "000500" Range("E491").Value = "益子町" Range("G491").Value = "マシコマチ" Range("C492").Value = "000501" Range("E492").Value = "茂木町" Range("G492").Value = "モテギマチ" Range("C493").Value = "000502" Range("E493").Value = "市貝町" Range("G493").Value = "イチカイマチ" Range("C494").Value = "000503" Range("E494").Value = "芳賀町" Range("G494").Value = "ハガマチ" Range("C495").Value = "000504" Range("E495").Value = "壬生町" Range("G495").Value = "ミブマチ" Range("C496").Value = "000505" Range("E496").Value = "野木町" Range("G496").Value = "ノギマチ" Range("C497").Value = "000506" Range("E497").Value = "塩谷町" Range("G497").Value = "シオヤマチ" Range("C498").Value = "000507" Range("E498").Value = "高根沢町" Range("G498").Value = "タカネザワマチ" Range("C499").Value = "000508" Range("E499").Value = "那須町" Range("G499").Value = "ナスマチ" Range("C500").Value = "000509" Range("E500").Value = "那珂川町" Range("G500").Value = "ナカガワマチ" Range("C501").Value = "000510" Range("F501:F536").Value = "グンマケン" Range("C502").Value = "000511" Range("E502").Value = "前橋市" Range("G502").Value = "マエバシシ" Range("C503").Value = "000512" Range("E503").Value = "高崎市" Range("G503").Value = "タカサキシ" Range("C504").Value = "000513" Range("E504").Value = "桐生市" Range("G504").Value = "キリュウシ" Range("C505").Value = "000514" Range("E505").Value = "伊勢崎市" Range("G505").Value = "イセサキシ" Range("C506").Value = "000515" Range("E506").Value = "太田市" Range("G506").Value = "オオタシ" Range("C507").Value = "000516" Range("E507").Value = "沼田市" Range("G507").Value = "ヌマタシ" Range("C508").Value = "000517" Range("E508").Value = "館林市" Range("G508").Value = "タテバヤシシ" Range("C509").Value = "000518" Range("E509").Value = "渋川市" Range("G509").Value = "シブカワシ" Range("C510").Value = "000519" Range("E510").Value = "藤岡市" Range("G510").Value = "フジオカシ" Range("C511").Value = "000520" Range("E511").Value = "富岡市" Range("G511").Value = "トミオカシ" Range("C512").Value = "000521" Range("E512").Value = "安中市" Range("G512").Value = "アンナカシ" Range("C513").Value = "000522" Range("E513").Value = "みどり市" Range("G513").Value = "ミドリシ" Range("C514").Value = "000523" Range("E514").Value = "榛東村" Range("G514").Value = "シントウムラ" Range("C515").Value = "000524" Range("E515").Value = "吉岡町" Range("G515").Value = "ヨシオカマチ" Range("C516").Value = "000525" Range("E516").Value = "上野村" Range("G516").Value = "ウエノムラ" Range("C517").Value = "000526" Range("E517").Value = "神流町" Range("G517").Value = "カンナマチ" Range("C518").Value = "000527" Range("E518").Value = "下仁田町" Range("G518").Value = "シモニタマチ" Range("C519").Value = "000528" Range("E519,E940").Value = "南牧村" Range("G519").Value = "ナンモクムラ" Range("C520").Value = "000529" Range("E520").Value = "甘楽町" Range("G520").Value = "カンラマチ" Range("C521").Value = "000530" Range("E521").Value = "中之条町" Range("G521").Value = "ナカノジヨウマチ" Range("C522").Value = "000531" Range("E522").Value = "長野原町" Range("G522").Value = "ナガノハラマチ" Range("C523").Value = "000532" Range("E523").Value = "嬬恋村" Range("G523").Value = "ツマゴイムラ" Range("C524").Value = "000533" Range("E524").Value = "草津町" Range("G524").Value = "クサツマチ" Range("C525").Value = "000534" Range("E525,E988").Value = "高山村" Range("G525,G988").Value = "タカヤマムラ" Range("C526").Value = "000535" Range("E526").Value = "東吾妻町" Range("G526").Value = "ヒガシアガツママチ" Range("C527").Value = "000536" Range("E527").Value = "片品村" Range("G527").Value = "カタシナムラ" Range("C528").Value = "000537" Range("E528").Value = "川場村" Range("G528").Value = "カワバムラ" Range("C529").Value = "000538" Range("C530").Value = "000539" Range("E530").Value = "みなかみ町" Range("G530").Value = "ミナカミマチ" Range("C531").Value = "000540" Range("E531").Value = "玉村町" Range("G531").Value = "タマムラマチ" Range("C532").Value = "000541" Range("E532").Value = "板倉町" Range("G532").Value = "イタクラマチ" Range("C533").Value = "000542" Range("E533,E1177").Value = "明和町" Range("G533").Value = "メイワマチ" Range("C534").Value = "000543" Range("E534").Value = "千代田町" Range("G534").Value = "チヨダマチ" Range("C535").Value = "000544" Range("E535").Value = "大泉町" Range("G535").Value = "オオイズミマチ" Range("C536").Value = "000545" Range("E536").Value = "邑楽町" Range("G536").Value = "オウラマチ" Range("C537").Value = "000546" Range("F537:F610").Value = "サイタマケン" Range("C538").Value = "000547" Range("E538").Value = "さいたま市" Range("G538").Value = "サイタマシ" Range("C539").Value = "000548" Range("E539").Value = "さいたま市西区" Range("G539").Value = "さいたましにしく" Range("C540").Value = "000549" Range("E540").Value = "さいたま市北区" Range("G540").Value = "さいたましきたく" Range("C541").Value = "000550" Range("E541").Value = "さいたま市大宮区" Range("G541").Value = "さいたましおおみやく" Range("C542").Value = "000551" Range("E542").Value = "さいたま市見沼区" Range("G542").Value = "さいたましみぬまく" Range("C543").Value = "000552" Range("E543").Value = "さいたま市中央区" Range("G543").Value = "さいたましちゅうおうく" Range("C544").Value = "000553" Range("E544").Value = "さいたま市桜区" Range("G544").Value = "さいたましさくらく" Range("C545").Value = "000554" Range("E545").Value = "さいたま市浦和区" Range("G545").Value = "さいたましうらわく" Range("C546").Value = "000555" Range("E546").Value = "さいたま市南区" Range("G546").Value = "さいたましみなみく" Range("C547").Value = "000556" Range("E547").Value = "さいたま市緑区" Range("G547").Value = "さいたましみどりく" Range("C548").Value = "000557" Range("E548").Value = "さいたま市岩槻区" Range("G548").Value = "さいたましいわつきく" Range("C549").Value = "000558" Range("E549").Value = "川越市" Range("G549").Value = "カワゴエシ" Range("C550").Value = "000559" Range("E550").Value = "熊谷市" Range("G550").Value = "クマガヤシ" Range("C551").Value = "000560" Range("E551").Value = "川口市" Range("G551").Value = "カワグチシ" Range("C552").Value = "000561" Range("E552").Value = "行田市" Range("G552").Value = "ギヨウダシ" Range("C553").Value = "000562" Range("E553").Value = "秩父市" Range("G553").Value = "チチブシ" Range("C554").Value = "000563" Range("E554").Value = "所沢市" Range("G554").Value = "トコロザワシ" Range("C555").Value = "000564" Range("E555").Value = "飯能市" Range("G555").Value = "ハンノウシ" Range("C556").Value = "000565" Range("E556").Value = "加須市" Range("G556").Value = "カゾシ" Range("C557").Value = "000566" Range("E557").Value = "本庄市" Range("G557").Value = "ホンジヨウシ" Range("C558").Value = "000567" Range("E558").Value = "東松山市" Range("G558").Value = "ヒガシマツヤマシ" Range("C559").Value = "000568" Range("E559").Value = "春日部市" Range("G559").Value = "カスカベシ" Range("C560").Value = "000569" Range("E560").Value = "狭山市" Range("G560").Value = "サヤマシ" Range("C561").Value = "000570" Range("E561").Value = "羽生市" Range("G561").Value = "ハニユウシ" Range("C562").Value = "000571" Range("E562").Value = "鴻巣市" Range("G562").Value = "コウノスシ" Range("C563").Value = "000572" Range("E563").Value = "深谷市" Range("G563").Value = "フカヤシ" Range("C564").Value = "000573" Range("E564").Value = "上尾市" Range("G564").Value = "アゲオシ" Range("C565").Value = "000574" Range("E565").Value = "草加市" Range("G565").Value = "ソウカシ" Range("C566").Value = "000575" Range("E566").Value = "越谷市" Range("G566").Value = "コシガヤシ" Range("C567").Value = "000576" Range("E567").Value = "蕨市" Range("G567").Value = "ワラビシ" Range("C568").Value = "000577" Range("E568").Value = "戸田市" Range("G568").Value = "トダシ" Range("C569").Value = "000578" Range("E569").Value = "入間市" Range("G569").Value = "イルマシ" Range("C570").Value = "000579" Range("E570").Value = "朝霞市" Range("G570").Value = "アサカシ" Range("C571").Value = "000580" Range("E571").Value = "志木市" Range("G571").Value = "シキシ" Range("C572").Value = "000581" Range("E572").Value = "和光市" Range("G572").Value = "ワコウシ" Range("C573").Value = "000582" Range("E573").Value = "新座市" Range("G573").Value = "ニイザシ" Range("C574").Value = "000583" Range("E574").Value = "桶川市" Range("G574").Value = "オケガワシ" Range("C575").Value = "000584" Range("E575").Value = "久喜市" Range("G575").Value = "クキシ" Range("C576").Value = "000585" Range("E576").Value = "北本市" Range("G576").Value = "キタモトシ" Range("C577").Value = "000586" Range("E577").Value = "八潮市" Range("G577").Value = "ヤシオシ" Range("C578").Value = "000587" Range("E578").Value = "富士見市" Range("G578").Value = "フジミシ" Range("C579").Value = "000588" Range("E579").Value = "三郷市" Range("G579").Value = "ミサトシ" Range("C580").Value = "000589" Range("E580").Value = "蓮田市" Range("G580").Value = "ハスダシ" Range("C581").Value = "000590" Range("E581").Value = "坂戸市" Range("G581").Value = "サカドシ" Range("C582").Value = "000591" Range("E582").Value = "幸手市" Range("G582").Value = "サッテシ" Range("C583").Value = "000592" Range("E583").Value = "鶴ヶ島市" Range("G583").Value = "ツルガシマシ" Range("C584").Value = "000593" Range("E584").Value = "日高市" Range("G584").Value = "ヒダカシ" Range("C585").Value = "000594" Range("E585").Value = "吉川市" Range("G585").Value = "ヨシカワシ" Range("C586").Value = "000595" Range("E586").Value = "ふじみ野市" Range("G586").Value = "フジミノシ" Range("C587").Value = "000596" Range("E587").Value = "白岡市" Range("G587").Value = "シラオカシ" Range("C588").Value = "000597" Range("E588").Value = "伊奈町" Range("G588").Value = "イナマチ" Range("C589").Value = "000598" Range("E589").Value = "三芳町" Range("G589").Value = "ミヨシマチ" Range("C590").Value = "000599" Range("E590").Value = "毛呂山町" Range("G590").Value = "モロヤママチ" Range("C591").Value = "000600" Range("E591").Value = "越生町" Range("G591").Value = "オゴセマチ" Range("C592").Value = "000601" Range("E592").Value = "滑川町" Range("G592").Value = "ナメガワマチ" Range("C593").Value = "000602" Range("E593").Value = "嵐山町" Range("G593").Value = "ランザンマチ" Range("C594").Value = "000603" Range("E594").Value = "小川町" Range("G594").Value = "オガワマチ" Range("C595").Value = "000604" Range("E595").Value = "川島町" Range("G595").Value = "カワジママチ" Range("C596").Value = "000605" Range("E596").Value = "吉見町" Range("G596").Value = "ヨシミマチ" Range("C597").Value = "000606" Range("E597").Value = "鳩山町" Range("G597").Value = "ハトヤママチ" Range("C598").Value = "000607" Range("E598").Value = "ときがわ町" Range("G598").Value = "トキガワマチ" Range("C599").Value = "000608" Range("E599").Value = "横瀬町" Range("G599").Value = "ヨコゼマチ" Range("C600").Value = "000609" Range("E600").Value = "皆野町" Range("G600").Value = "ミナノマチ" Range("C601").Value = "000610" Range("E601").Value = "長瀞町" Range("G601").Value = "ナガトロマチ" Range("C602").Value = "000611" Range("E602").Value = "小鹿野町" Range("G602").Value = "オガノマチ" Range("C603").Value = "000612" Range("E603").Value = "東秩父村" Range("G603").Value = "ヒガシチチブムラ" Range("C604").Value = "000613" Range("C605").Value = "000614" Range("E605").Value = "神川町" Range("G605").Value = "カミカワマチ" Range("C606").Value = "000615" Range("E606").Value = "上里町" Range("G606").Value = "カミサトマチ" Range("C607").Value = "000616" Range("E607").Value = "寄居町" Range("G607").Value = "ヨリイマチ" Range("C608").Value = "000617" Range("E608").Value = "宮代町" Range("G608").Value = "ミヤシロマチ" Range("C609").Value = "000618" Range("E609").Value = "杉戸町" Range("G609").Value = "スギトマチ" Range("C610").Value = "000619" Range("E610").Value = "松伏町" Range("G610").Value = "マツブシマチ" Range("C611").Value = "000620" Range("F611:F671").Value = "チバケン" Range("C612").Value = "000621" Range("E612").Value = "千葉市" Range("G612").Value = "チバシ" Range("C613").Value = "000622" Range("E613").Value = "千葉市中央区" Range("G613").Value = "ちばしちゅうおうく" Range("C614").Value = "000623" Range("E614").Value = "千葉市花見川区" Range("G614").Value = "ちばしはなみがわく" Range("C615").Value = "000624" Range("E615").Value = "千葉市稲毛区" Range("G615").Value = "ちばしいなげく" Range("C616").Value = "000625" Range("E616").Value = "千葉市若葉区" Range("G616").Value = "ちばしわかばく" Range("C617").Value = "000626" Range("E617").Value = "千葉市緑区" Range("G617").Value = "ちばしみどりく" Range("C618").Value = "000627" Range("E618").Value = "千葉市美浜区" Range("G618").Value = "ちばしみはまく" Range("C619").Value = "000628" Range("E619").Value = "銚子市" Range("G619").Value = "チョウシシ" Range("C620").Value = "000629" Range("E620").Value = "市川市" Range("G620").Value = "イチカワシ" Range("C621").Value = "000630" Range("E621").Value = "船橋市" Range("G621").Value = "フナバシシ" Range("C622").Value = "000631" Range("E622").Value = "館山市" Range("G622").Value = "タテヤマシ" Range("C623").Value = "000632" Range("E623").Value = "木更津市" Range("G623").Value = "キサラヅシ" Range("C624").Value = "000633" Range("E624").Value = "松戸市" Range("G624").Value = "マツドシ" Range("C625").Value = "000634" Range("E625").Value = "野田市" Range("G625").Value = "ノダシ" Range("C626").Value = "000635" Range("E626").Value = "茂原市" Range("G626").Value = "モバラシ" Range("C627").Value = "000636" Range("E627").Value = "成田市" Range("G627").Value = "ナリタシ" Range("C628").Value = "000637" Range("E628").Value = "佐倉市" Range("C629").Value = "000638" Range("E629").Value = "東金市" Range("G629").Value = "トウガネシ" Range("C630").Value = "000639" Range("E630").Value = "旭市" Range("G630").Value = "アサヒシ" Range("C631").Value = "000640" Range("E631").Value = "習志野市" Range("G631").Value = "ナラシノシ" Range("C632").Value = "000641" Range("E632").Value = "柏市" Range("G632").Value = "カシワシ" Range("C633").Value = "000642" Range("E633").Value = "勝浦市" Range("G633").Value = "カツウラシ" Range("C634").Value = "000643" Range("E634").Value = "市原市" Range("G634").Value = "イチハラシ" Range("C635").Value = "000644" Range("E635").Value = "流山市" Range("G635").Value = "ナガレヤマシ" Range("C636").Value = "000645" Range("E636").Value = "八千代市" Range("G636").Value = "ヤチヨシ" Range("C637").Value = "000646" Range("E637").Value = "我孫子市" Range("G637").Value = "アビコシ" Range("C638").Value = "000647" Range("E638").Value = "鴨川市" Range("G638").Value = "カモガワシ" Range("C639").Value = "000648" Range("E639").Value = "鎌ケ谷市" Range("G639").Value = "カマガヤシ" Range("C640").Value = "000649" Range("E640").Value = "君津市" Range("G640").Value = "キミツシ" Range("C641").Value = "000650" Range("E641").Value = "富津市" Range("G641").Value = "フッツシ" Range("C642").Value = "000651" Range("E642").Value = "浦安市" Range("G642").Value = "ウラヤスシ" Range("C643").Value = "000652" Range("E643").Value = "四街道市" Range("G643").Value = "ヨツカイドウシ" Range("C644").Value = "000653" Range("E644").Value = "袖ケ浦市" Range("G644").Value = "ソデガウラシ" Range("C645").Value = "000654" Range("E645").Value = "八街市" Range("G645").Value = "ヤチマタシ" Range("C646").Value = "000655" Range("E646").Value = "印西市" Range("G646").Value = "インザイシ" Range("C647").Value = "000656" Range("E647").Value = "白井市" Range("G647").Value = "シロイシ" Range("C648").Value = "000657" Range("E648").Value = "富里市" Range("G648").Value = "トミサトシ" Range("C649").Value = "000658" Range("E649").Value = "南房総市" Range("G649").Value = "ミナミボウソウシ" Range("C650").Value = "000659" Range("E650").Value = "匝瑳市" Range("G650").Value = "ソウサシ" Range("C651").Value = "000660" Range("E651").Value = "香取市" Range("G651").Value = "カトリシ" Range("C652").Value = "000661" Range("E652").Value = "山武市" Range("G652").Value = "サンムシ" Range("C653").Value = "000662" Range("E653").Value = "いすみ市" Range("G653").Value = "イスミシ" Range("C654").Value = "000663" Range("E654").Value = "大網白里市" Range("G654").Value = "オオアミシラサトシ" Range("C655").Value = "000664" Range("E655").Value = "酒々井町" Range("G655").Value = "シスイマチ" Range("C656").Value = "000665" Range("E656").Value = "栄町" Range("G656").Value = "サカエマチ" Range("C657").Value = "000666" Range("E657").Value = "神崎町" Range("G657").Value = "コウザキマチ" Range("C658").Value = "000667" Range("E658").Value = "多古町" Range("G658").Value = "タコマチ" Range("C659").Value = "000668" Range("E659").Value = "東庄町" Range("G659").Value = "トウノショウマチ" Range("C660").Value = "000669" Range("E660").Value = "九十九里町" Range("G660").Value = "クジユウクリマチ" Range("C661").Value = "000670" Range("E661").Value = "芝山町" Range("G661").Value = "シバヤママチ" Range("C662").Value = "000671" Range("E662").Value = "横芝光町" Range("G662").Value = "ヨコシバヒカリマチ" Range("C663").Value = "000672" Range("E663").Value = "一宮町" Range("G663").Value = "イチノミヤマチ" Range("C664").Value = "000673" Range("E664").Value = "睦沢町" Range("G664").Value = "ムツザワマチ" Range("C665").Value = "000674" Range("E665").Value = "長生村" Range("G665").Value = "チョウセイムラ" Range("C666").Value = "000675" Range("E666").Value = "白子町" Range("G666").Value = "シラコマチ" Range("C667").Value = "000676" Range("E667").Value = "長柄町" Range("G667").Value = "ナガラマチ" Range("C668").Value = "000677" Range("E668").Value = "長南町" Range("G668").Value = "チョウナンマチ" Range("C669").Value = "000678" Range("E669").Value = "大多喜町" Range("G669").Value = "オオタキマチ" Range("C670").Value = "000679" Range("E670").Value = "御宿町" Range("G670").Value = "オンジユクマチ" Range("C671").Value = "000680" Range("E671").Value = "鋸南町" Range("G671").Value = "キヨナンマチ" Range("C672").Value = "000681" Range("F672:F734").Value = "トウキョウト" Range("C673").Value = "000682" Range("E673").Value = "千代田区" Range("G673").Value = "チヨダク" Range("C674").Value = "000683" Range("E674").Value = "中央区" Range("G674").Value = "チュウオウク" Range("C675").Value = "000684" Range("E675").Value = "港区" Range("G675").Value = "ミナトク" Range("C676").Value = "000685" Range("E676").Value = "新宿区" Range("G676").Value = "シンジュクク" Range("C677").Value = "000686" Range("E677").Value = "文京区" Range("G677").Value = "ブンキョウク" Range("C678").Value = "000687" Range("E678").Value = "台東区" Range("G678").Value = "タイトウク" Range("C679").Value = "000688" Range("E679").Value = "墨田区" Range("G679").Value = "スミダク" Range("C680").Value = "000689" Range("E680").Value = "江東区" Range("G680").Value = "コウトウク" Range("C681").Value = "000690" Range("E681").Value = "品川区" Range("G681").Value = "シナガワク" Range("C682").Value = "000691" Range("E682").Value = "目黒区" Range("G682").Value = "メグロク" Range("C683").Value = "000692" Range("E683").Value = "大田区" Range("G683").Value = "オオタク" Range("C684").Value = "000693" Range("E684").Value = "世田谷区" Range("G684").Value = "セタガヤク" Range("C685").Value = "000694" Range("E685").Value = "渋谷区" Range("G685").Value = "シブヤク" Range("C686").Value = "000695" Range("E686").Value = "中野区" Range("G686").Value = "ナカノク" Range("C687").Value = "000696" Range("E687").Value = "杉並区" Range("G687").Value = "スギナミク" Range("C688").Value = "000697" Range("E688").Value = "豊島区" Range("G688").Value = "トシマク" Range("C689").Value = "000698" Range("E689").Value = "北区" Range("G689").Value = "キタク" Range("C690").Value = "000699" Range("E690").Value = "荒川区" Range("G690").Value = "アラカワク" Range("C691").Value = "000700" Range("E691").Value = "板橋区" Range("G691").Value = "イタバシク" Range("C692").Value = "000701" Range("E692").Value = "練馬区" Range("G692").Value = "ネリマク" Range("C693").Value = "000702" Range("E693").Value = "足立区" Range("G693").Value = "アダチク" Range("C694").Value = "000703" Range("E694").Value = "葛飾区" Range("G694").Value = "カツシカク" Range("C695").Value = "000704" Range("E695").Value = "江戸川区" Range("G695").Value = "エドガワク" Range("C696").Value = "000705" Range("E696").Value = "八王子市" Range("G696").Value = "ハチオウジシ" Range("C697").Value = "000706" Range("E697").Value = "立川市" Range("G697").Value = "タチカワシ" Range("C698").Value = "000707" Range("E698").Value = "武蔵野市" Range("G698").Value = "ムサシノシ" Range("C699").Value = "000708" Range("E699").Value = "三鷹市" Range("G699").Value = "ミタカシ" Range("C700").Value = "000709" Range("E700").Value = "青梅市" Range("G700").Value = "オウメシ" Range("C701").Value = "000710" Range("E701").Value = "府中市" Range("G701").Value = "フチュウシ" Range("C702").Value = "000711" Range("E702").Value = "昭島市" Range("G702").Value = "アキシマシ" Range("C703").Value = "000712" Range("E703").Value = "調布市" Range("G703").Value = "チョウフシ" Range("C704").Value = "000713" Range("E704").Value = "町田市" Range("G704").Value = "マチダシ" Range("C705").Value = "000714" Range("E705").Value = "小金井市" Range("G705").Value = "コガネイシ" Range("C706").Value = "000715" Range("E706").Value = "小平市" Range("G706").Value = "コダイラシ" Range("C707").Value = "000716" Range("E707").Value = "日野市" Range("G707").Value = "ヒノシ" Range("C708").Value = "000717" Range("E708").Value = "東村山市" Range("G708").Value = "ヒガシムラヤマシ" Range("C709").Value = "000718" Range("E709").Value = "国分寺市" Range("G709").Value = "コクブンジシ" Range("C710").Value = "000719" Range("E710").Value = "国立市" Range("G710").Value = "クニタチシ" Range("C711").Value = "000720" Range("E711").Value = "福生市" Range("G711").Value = "フッサシ" Range("C712").Value = "000721" Range("E712").Value = "狛江市" Range("G712").Value = "コマエシ" Range("C713").Value = "000722" Range("E713").Value = "東大和市" Range("G713").Value = "ヒガシヤマトシ" Range("C714").Value = "000723" Range("E714").Value = "清瀬市" Range("G714").Value = "キヨセシ" Range("C715").Value = "000724" Range("E715").Value = "東久留米市" Range("G715").Value = "ヒガシクルメシ" Range("C716").Value = "000725" Range("E716").Value = "武蔵村山市" Range("G716").Value = "ムサシムラヤマシ" Range("C717").Value = "000726" Range("E717").Value = "多摩市" Range("G717").Value = "タマシ" Range("C718").Value = "000727" Range("E718").Value = "稲城市" Range("G718").Value = "イナギシ" Range("C719").Value = "000728" Range("E719").Value = "羽村市" Range("G719").Value = "ハムラシ" Range("C720").Value = "000729" Range("E720").Value = "あきる野市" Range("G720").Value = "アキルノシ" Range("C721").Value = "000730" Range("E721").Value = "西東京市" Range("G721").Value = "ニシトウキョウシ" Range("C722").Value = "000731" Range("E722").Value = "瑞穂町" Range("G722").Value = "ミズホマチ" Range("C723").Value = "000732" Range("E723").Value = "日の出町" Range("G723").Value = "ヒノデマチ" Range("C724").Value = "000733" Range("E724").Value = "檜原村" Range("G724").Value = "ヒノハラムラ" Range("C725").Value = "000734" Range("E725").Value = "奥多摩町" Range("G725").Value = "オクタママチ" Range("C726").Value = "000735" Range("E726").Value = "大島町" Range("G726").Value = "オオシママチ" Range("C727").Value = "000736" Range("E727").Value = "利島村" Range("G727").Value = "トシマムラ" Range("C728").Value = "000737" Range("E728").Value = "新島村" Range("G728").Value = "ニイジマムラ" Range("C729").Value = "000738" Range("E729").Value = "神津島村" Range("G729").Value = "コウヅシマムラ" Range("C730").Value = "000739" Range("E730").Value = "三宅村" Range("G730").Value = "ミヤケムラ" Range("C731").Value = "000740" Range("E731").Value = "御蔵島村" Range("G731").Value = "ミクラジマムラ" Range("C732").Value = "000741" Range("E732").Value = "八丈町" Range("G732").Value = "ハチジョウマチ" Range("C733").Value = "000742" Range("E733").Value = "青ヶ島村" Range("G733").Value = "アオガシマムラ" Range("C734").Value = "000743" Range("E734").Value = "小笠原村" Range("G734").Value = "オガサワラムラ" Range("C735").Value = "000744" Range("F735:F796").Value = "カナガワケン" Range("C736").Value = "000745" Range("E736").Value = "横浜市" Range("G736").Value = "ヨコハマシ" Range("C737").Value = "000746" Range("E737").Value = "横浜市鶴見区" Range("G737").Value = "よこはましつるみく" Range("C738").Value = "000747" Range("E738").Value = "横浜市神奈川区" Range("G738").Value = "よこはましかながわく" Range("C739").Value = "000748" Range("E739").Value = "横浜市西区" Range("G739").Value = "よこはましにしく" Range("C740").Value = "000749" Range("E740").Value = "横浜市中区" Range("G740").Value = "よこはましなかく" Range("C741").Value = "000750" Range("E741").Value = "横浜市南区" Range("G741").Value = "よこはましみなみく" Range("C742").Value = "000751" Range("E742").Value = "横浜市保土ケ谷区" Range("G742").Value = "よこはましほどがやく" Range("C743").Value = "000752" Range("E743").Value = "横浜市磯子区" Range("G743").Value = "よこはましいそごく" Range("C744").Value = "000753" Range("E744").Value = "横浜市金沢区" Range("G744").Value = "よこはましかなざわく" Range("C745").Value = "000754" Range("E745").Value = "横浜市港北区" Range("G745").Value = "よこはましこうほくく" Range("C746").Value = "000755" Range("E746").Value = "横浜市戸塚区" Range("G746").Value = "よこはましとつかく" Range("C747").Value = "000756" Range("E747").Value = "横浜市港南区" Range("G747").Value = "よこはましこうなんく" Range("C748").Value = "000757" Range("E748").Value = "横浜市旭区" Range("G748").Value = "よこはましあさひく" Range("C749").Value = "000758" Range("E749").Value = "横浜市緑区" Range("G749").Value = "よこはましみどりく" Range("C750").Value = "000759" Range("E750").Value = "横浜市瀬谷区" Range("G750").Value = "よこはましせやく" Range("C751").Value = "000760" Range("E751").Value = "横浜市栄区" Range("G751").Value = "よこはましさかえく" Range("C752").Value = "000761" Range("E752").Value = "横浜市泉区" Range("G752").Value = "よこはましいずみく" Range("C753").Value = "000762" Range("E753").Value = "横浜市青葉区" Range("G753").Value = "よこはましあおばく" Range("C754").Value = "000763" Range("E754").Value = "横浜市都筑区" Range("G754").Value = "よこはましつづきく" Range("C755").Value = "000764" Range("E755").Value = "川崎市" Range("G755").Value = "カワサキシ" Range("C756").Value = "000765" Range("E756").Value = "川崎市川崎区" Range("G756").Value = "かわさきしかわさきく" Range("C757").Value = "000766" Range("E757").Value = "川崎市幸区" Range("G757").Value = "かわさきしさいわいく" Range("C758").Value = "000767" Range("E758").Value = "川崎市中原区" Range("G758").Value = "かわさきしなかはらく" Range("C759").Value = "000768" Range("E759").Value = "川崎市高津区" Range("G759").Value = "かわさきしたかつく" Range("C760").Value = "000769" Range("E760").Value = "川崎市多摩区" Range("G760").Value = "かわさきしたまく" Range("C761").Value = "000770" Range("E761").Value = "川崎市宮前区" Range("G761").Value = "かわさきしみやまえく" Range("C762").Value = "000771" Range("E762").Value = "川崎市麻生区" Range("G762").Value = "かわさきしあさおく" Range("C763").Value = "000772" Range("E763").Value = "相模原市" Range("G763").Value = "サガミハラシ" Range("C764").Value = "000773" Range("E764").Value = "相模原市緑区" Range("G764").Value = "さがみはらしみどりく" Range("C765").Value = "000774" Range("E765").Value = "相模原市中央区" Range("G765").Value = "さがみはらしちゅうおうく" Range("C766").Value = "000775" Range("E766").Value = "相模原市南区" Range("G766").Value = "さがみはらしみなみく" Range("C767").Value = "000776" Range("E767").Value = "横須賀市" Range("G767").Value = "ヨコスカシ" Range("C768").Value = "000777" Range("E768").Value = "平塚市" Range("G768").Value = "ヒラツカシ" Range("C769").Value = "000778" Range("E769").Value = "鎌倉市" Range("G769").Value = "カマクラシ" Range("C770").Value = "000779" Range("E770").Value = "藤沢市" Range("G770").Value = "フジサワシ" Range("C771").Value = "000780" Range("E771").Value = "小田原市" Range("G771").Value = "オダワラシ" Range("C772").Value = "000781" Range("E772").Value = "茅ヶ崎市" Range("G772").Value = "チガサキシ" Range("C773").Value = "000782" Range("E773").Value = "逗子市" Range("G773").Value = "ズシシ" Range("C774").Value = "000783" Range("E774").Value = "三浦市" Range("G774").Value = "ミウラシ" Range("C775").Value = "000784" Range("E775").Value = "秦野市" Range("G775").Value = "ハダノシ" Range("C776").Value = "000785" Range("E776").Value = "厚木市" Range("G776").Value = "アツギシ" Range("C777").Value = "000786" Range("E777").Value = "大和市" Range("G777").Value = "ヤマトシ" Range("C778").Value = "000787" Range("E778").Value = "伊勢原市" Range("G778").Value = "イセハラシ" Range("C779").Value = "000788" Range("E779").Value = "海老名市" Range("G779").Value = "エビナシ" Range("C780").Value = "000789" Range("E780").Value = "座間市" Range("G780").Value = "ザマシ" Range("C781").Value = "000790" Range("E781").Value = "南足柄市" Range("G781").Value = "ミナミアシガラシ" Range("C782").Value = "000791" Range("E782").Value = "綾瀬市" Range("G782").Value = "アヤセシ" Range("C783").Value = "000792" Range("E783").Value = "葉山町" Range("G783").Value = "ハヤママチ" Range("C784").Value = "000793" Range("E784").Value = "寒川町" Range("G784").Value = "サムカワマチ" Range("C785").Value = "000794" Range("E785").Value = "大磯町" Range("G785").Value = "オオイソマチ" Range("C786").Value = "000795" Range("E786").Value = "二宮町" Range("G786").Value = "ニノミヤマチ" Range("C787").Value = "000796" Range("E787").Value = "中井町" Range("G787").Value = "ナカイマチ" Range("C788").Value = "000797" Range("E788").Value = "大井町" Range("G788").Value = "オオイマチ" Range("C789").Value = "000798" Range("E789").Value = "松田町" Range("G789").Value = "マツダマチ" Range("C790").Value = "000799" Range("E790").Value = "山北町" Range("G790").Value = "ヤマキタマチ" Range("C791").Value = "000800" Range("E791").Value = "開成町" Range("G791").Value = "カイセイマチ" Range("C792").Value = "000801" Range("E792").Value = "箱根町" Range("G792").Value = "ハコネマチ" Range("C793").Value = "000802" Range("E793").Value = "真鶴町" Range("G793").Value = "マナツルマチ" Range("C794").Value = "000803" Range("E794").Value = "湯河原町" Range("G794").Value = "ユガワラマチ" Range("C795").Value = "000804" Range("E795").Value = "愛川町" Range("G795").Value = "アイカワマチ" Range("C796").Value = "000805" Range("E796").Value = "清川村" Range("G796").Value = "キヨカワムラ" Range("C797").Value = "000806" Range("F797:F835").Value = "ニイガタケン" Range("C798").Value = "000807" Range("E798").Value = "新潟市" Range("G798").Value = "ニイガタシ" Range("C799").Value = "000808" Range("E799").Value = "新潟市北区" Range("G799").Value = "にいがたしきたく" Range("C800").Value = "000809" Range("E800").Value = "新潟市東区" Range("G800").Value = "にいがたしひがしく" Range("C801").Value = "000810" Range("E801").Value = "新潟市中央区" Range("G801").Value = "にいがたしちゅうおうく" Range("C802").Value = "000811" Range("E802").Value = "新潟市江南区" Range("G802").Value = "にいがたしこうなんく" Range("C803").Value = "000812" Range("E803").Value = "新潟市秋葉区" Range("G803").Value = "にいがたしあきはく" Range("C804").Value = "000813" Range("E804").Value = "新潟市南区" Range("G804").Value = "にいがたしみなみく" Range("C805").Value = "000814" Range("E805").Value = "新潟市西区" Range("G805").Value = "にいがたしにしく" Range("C806").Value = "000815" Range("E806").Value = "新潟市西蒲区" Range("G806").Value = "にいがたしにしかんく" Range("C807").Value = "000816" Range("E807").Value = "長岡市" Range("G807").Value = "ナガオカシ" Range("C808").Value = "000817" Range("E808").Value = "三条市" Range("G808").Value = "サンジョウシ" Range("C809").Value = "000818" Range("E809").Value = "柏崎市" Range("G809").Value = "カシワザキシ" Range("C810").Value = "000819" Range("E810").Value = "新発田市" Range("G810").Value = "シバタシ" Range("C811").Value = "000820" Range("E811").Value = "小千谷市" Range("G811").Value = "オヂヤシ" Range("C812").Value = "000821" Range("E812").Value = "加茂市" Range("G812").Value = "カモシ" Range("C813").Value = "000822" Range("E813").Value = "十日町市" Range("G813").Value = "トオカマチシ" Range("C814").Value = "000823" Range("E814").Value = "見附市" Range("G814").Value = "ミツケシ" Range("C815").Value = "000824" Range("E815").Value = "村上市" Range("G815").Value = "ムラカミシ" Range("C816").Value = "000825" Range("E816").Value = "燕市" Range("G816").Value = "ツバメシ" Range("C817").Value = "000826" Range("E817").Value = "糸魚川市" Range("G817").Value = "イトイガワシ" Range("C818").Value = "000827" Range("E818").Value = "妙高市" Range("G818").Value = "ミョウコウシ" Range("C819").Value = "000828" Range("E819").Value = "五泉市" Range("G819").Value = "ゴセンシ" Range("C820").Value = "000829" Range("E820").Value = "上越市" Range("G820").Value = "ジョウエツシ" Range("C821").Value = "000830" Range("E821").Value = "阿賀野市" Range("G821").Value = "アガノシ" Range("C822").Value = "000831" Range("E822").Value = "佐渡市" Range("G822").Value = "サドシ" Range("C823").Value = "000832" Range("E823").Value = "魚沼市" Range("G823").Value = "ウオヌマシ" Range("C824").Value = "000833" Range("E824").Value = "南魚沼市" Range("G824").Value = "ミナミウオヌマシ" Range("C825").Value = "000834" Range("E825").Value = "胎内市" Range("G825").Value = "タイナイシ" Range("C826").Value = "000835" Range("E826").Value = "聖籠町" Range("G826").Value = "セイロウマチ" Range("C827").Value = "000836" Range("E827").Value = "弥彦村" Range("G827").Value = "ヤヒコムラ" Range("C828").Value = "000837" Range("E828").Value = "田上町" Range("G828").Value = "タガミマチ" Range("C829").Value = "000838" Range("E829").Value = "阿賀町" Range("G829").Value = "アガマチ" Range("C830").Value = "000839" Range("E830").Value = "出雲崎町" Range("G830").Value = "イズモザキマチ" Range("C831").Value = "000840" Range("E831").Value = "湯沢町" Range("G831").Value = "ユザワマチ" Range("C832").Value = "000841" Range("E832").Value = "津南町" Range("G832").Value = "ツナンマチ" Range("C833").Value = "000842" Range("E833").Value = "刈羽村" Range("G833").Value = "カリワムラ" Range("C834").Value = "000843" Range("E834").Value = "関川村" Range("G834").Value = "セキカワムラ" Range("C835").Value = "000844" Range("E835").Value = "粟島浦村" Range("G835").Value = "アワシマウラムラ" Range("C836").Value = "000845" Range("F836:F851").Value = "トヤマケン" Range("C837").Value = "000846" Range("E837").Value = "富山市" Range("G837").Value = "トヤマシ" Range("C838").Value = "000847" Range("E838").Value = "高岡市" Range("G838").Value = "タカオカシ" Range("C839").Value = "000848" Range("E839").Value = "魚津市" Range("G839").Value = "ウオヅシ" Range("C840").Value = "000849" Range("E840").Value = "氷見市" Range("G840").Value = "ヒミシ" Range("C841").Value = "000850" Range("E841").Value = "滑川市" Range("G841").Value = "ナメリカワシ" Range("C842").Value = "000851" Range("E842").Value = "黒部市" Range("G842").Value = "クロベシ" Range("C843").Value = "000852" Range("E843").Value = "砺波市" Range("G843").Value = "トナミシ" Range("C844").Value = "000853" Range("E844").Value = "小矢部市" Range("G844").Value = "オヤベシ" Range("C845").Value = "000854" Range("E845").Value = "南砺市" Range("G845").Value = "ナントシ" Range("C846").Value = "000855" Range("E846").Value = "射水市" Range("G846").Value = "イミズシ" Range("C847").Value = "000856" Range("E847").Value = "舟橋村" Range("G847").Value = "フナハシムラ" Range("C848").Value = "000857" Range("E848").Value = "上市町" Range("G848").Value = "カミイチマチ" Range("C849").Value = "000858" Range("E849").Value = "立山町" Range("G849").Value = "タテヤママチ" Range("C850").Value = "000859" Range("E850").Value = "入善町" Range("G850").Value = "ニュウゼンマチ" Range("C851").Value = "000860" Range("C852").Value = "000861" Range("F852:F871").Value = "イシカワケン" Range("C853").Value = "000862" Range("E853").Value = "金沢市" Range("G853").Value = "カナザワシ" Range("C854").Value = "000863" Range("E854").Value = "七尾市" Range("G854").Value = "ナナオシ" Range("C855").Value = "000864" Range("E855").Value = "小松市" Range("G855").Value = "コマツシ" Range("C856").Value = "000865" Range("E856").Value = "輪島市" Range("G856").Value = "ワジマシ" Range("C857").Value = "000866" Range("E857").Value = "珠洲市" Range("G857").Value = "スズシ" Range("C858").Value = "000867" Range("E858").Value = "加賀市" Range("G858").Value = "カガシ" Range("C859").Value = "000868" Range("E859").Value = "羽咋市" Range("G859").Value = "ハクイシ" Range("C860").Value = "000869" Range("E860").Value = "かほく市" Range("G860").Value = "カホクシ" Range("C861").Value = "000870" Range("E861").Value = "白山市" Range("G861").Value = "ハクサンシ" Range("C862").Value = "000871" Range("E862").Value = "能美市" Range("G862").Value = "ノミシ" Range("C863").Value = "000872" Range("E863").Value = "野々市市" Range("G863").Value = "ノノイチシ" Range("C864").Value = "000873" Range("E864").Value = "川北町" Range("G864").Value = "カワキタマチ" Range("C865").Value = "000874" Range("E865").Value = "津幡町" Range("G865").Value = "ツバタマチ" Range("C866").Value = "000875" Range("E866").Value = "内灘町" Range("G866").Value = "ウチナダマチ" Range("C867").Value = "000876" Range("E867").Value = "志賀町" Range("G867").Value = "シカマチ" Range("C868").Value = "000877" Range("E868").Value = "宝達志水町" Range("G868").Value = "ホウダツシミズチョウ" Range("C869").Value = "000878" Range("E869").Value = "中能登町" Range("G869").Value = "ナカノトマチ" Range("C870").Value = "000879" Range("E870").Value = "穴水町" Range("G870").Value = "アナミズマチ" Range("C871").Value = "000880" Range("E871").Value = "能登町" Range("G871").Value = "ノトチョウ" Range("C872").Value = "000881" Range("F872:F889").Value = "フクイケン" Range("C873").Value = "000882" Range("E873").Value = "福井市" Range("G873").Value = "フクイシ" Range("C874").Value = "000883" Range("E874").Value = "敦賀市" Range("G874").Value = "ツルガシ" Range("C875").Value = "000884" Range("E875").Value = "小浜市" Range("G875").Value = "オバマシ" Range("C876").Value = "000885" Range("E876").Value = "大野市" Range("G876").Value = "オオノシ" Range("C877").Value = "000886" Range("E877").Value = "勝山市" Range("G877").Value = "カツヤマシ" Range("C878").Value = "000887" Range("E878").Value = "鯖江市" Range("G878").Value = "サバエシ" Range("C879").Value = "000888" Range("E879").Value = "あわら市" Range("G879").Value = "アワラシ" Range("C880").Value = "000889" Range("E880").Value = "越前市" Range("G880").Value = "エチゼンシ" Range("C881").Value = "000890" Range("E881").Value = "坂井市" Range("G881,G1270").Value = "サカイシ" Range("C882").Value = "000891" Range("E882").Value = "永平寺町" Range("G882").Value = "エイヘイジチョウ" Range("C883").Value = "000892" Range("C884").Value = "000893" Range("E884").Value = "南越前町" Range("G884").Value = "ミナミエチゼンチョウ" Range("C885").Value = "000894" Range("E885").Value = "越前町" Range("G885").Value = "エチゼンチョウ" Range("C886").Value = "000895" Range("E886,E1150,E1427").Value = "美浜町" Range("G886,G1150,G1184,G1427").Value = "ミハマチョウ" Range("C887").Value = "000896" Range("E887").Value = "高浜町" Range("G887").Value = "タカハマチョウ" Range("C888").Value = "000897" Range("E888").Value = "おおい町" Range("G888").Value = "オオイチョウ" Range("C889").Value = "000898" Range("E889").Value = "若狭町" Range("G889").Value = "ワカサチョウ" Range("C890").Value = "000899" Range("F890:F917").Value = "ヤマナシケン" Range("C891").Value = "000900" Range("E891").Value = "甲府市" Range("G891").Value = "コウフシ" Range("C892").Value = "000901" Range("E892").Value = "富士吉田市" Range("G892").Value = "フジヨシダシ" Range("C893").Value = "000902" Range("E893").Value = "都留市" Range("G893").Value = "ツルシ" Range("C894").Value = "000903" Range("E894").Value = "山梨市" Range("G894").Value = "ヤマナシシ" Range("C895").Value = "000904" Range("E895").Value = "大月市" Range("G895").Value = "オオツキシ" Range("C896").Value = "000905" Range("E896").Value = "韮崎市" Range("G896").Value = "ニラサキシ" Range("C897").Value = "000906" Range("E897").Value = "南アルプス市" Range("G897").Value = "ミナミアルプスシ" Range("C898").Value = "000907" Range("E898").Value = "北杜市" Range("C899").Value = "000908" Range("E899").Value = "甲斐市" Range("G899").Value = "カイシ" Range("C900").Value = "000909" Range("E900").Value = "笛吹市" Range("G900").Value = "フエフキシ" Range("C901").Value = "000910" Range("E901").Value = "上野原市" Range("G901").Value = "ウエノハラシ" Range("C902").Value = "000911" Range("E902").Value = "甲州市" Range("G902").Value = "コウシュウシ" Range("C903").Value = "000912" Range("E903").Value = "中央市" Range("G903").Value = "チュウオウシ" Range("C904").Value = "000913" Range("E904").Value = "市川三郷町" Range("G904").Value = "イチカワミサトチョウ" Range("C905").Value = "000914" Range("E905").Value = "早川町" Range("G905").Value = "ハヤカワチョウ" Range("C906").Value = "000915" Range("E906").Value = "身延町" Range("G906").Value = "ミノブチョウ" Range("C907").Value = "000916" Range("C908").Value = "000917" Range("E908").Value = "富士川町" Range("G908").Value = "フジカワチョウ" Range("C909").Value = "000918" Range("E909").Value = "昭和町" Range("G909").Value = "ショウワチョウ" Range("C910").Value = "000919" Range("E910").Value = "道志村" Range("G910").Value = "ドウシムラ" Range("C911").Value = "000920" Range("E911").Value = "西桂町" Range("G911").Value = "ニシカツラチョウ" Range("C912").Value = "000921" Range("E912").Value = "忍野村" Range("G912").Value = "オシノムラ" Range("C913").Value = "000922" Range("E913").Value = "山中湖村" Range("G913").Value = "ヤマナカコムラ" Range("C914").Value = "000923" Range("E914").Value = "鳴沢村" Range("G914").Value = "ナルサワムラ" Range("C915").Value = "000924" Range("E915").Value = "富士河口湖町" Range("G915").Value = "フジカワグチコマチ" Range("C916").Value = "000925" Range("E916").Value = "小菅村" Range("G916").Value = "コスゲムラ" Range("C917").Value = "000926" Range("E917").Value = "丹波山村" Range("G917").Value = "タバヤマムラ" Range("C918").Value = "000927" Range("F918:F995").Value = "ナガノケン" Range("C919").Value = "000928" Range("E919").Value = "長野市" Range("G919").Value = "ナガノシ" Range("C920").Value = "000929" Range("E920").Value = "松本市" Range("G920").Value = "マツモトシ" Range("C921").Value = "000930" Range("E921").Value = "上田市" Range("G921").Value = "ウエダシ" Range("C922").Value = "000931" Range("E922").Value = "岡谷市" Range("G922").Value = "オカヤシ" Range("C923").Value = "000932" Range("E923").Value = "飯田市" Range("G923").Value = "イイダシ" Range("C924").Value = "000933" Range("E924").Value = "諏訪市" Range("G924").Value = "スワシ" Range("C925").Value = "000934" Range("E925").Value = "須坂市" Range("G925").Value = "スザカシ" Range("C926").Value = "000935" Range("E926").Value = "小諸市" Range("G926").Value = "コモロシ" Range("C927").Value = "000936" Range("E927").Value = "伊那市" Range("G927").Value = "イナシ" Range("C928").Value = "000937" Range("E928").Value = "駒ヶ根市" Range("G928").Value = "コマガネシ" Range("C929").Value = "000938" Range("E929").Value = "中野市" Range("G929").Value = "ナカノシ" Range("C930").Value = "000939" Range("E930").Value = "大町市" Range("G930").Value = "オオマチシ" Range("C931").Value = "000940" Range("E931").Value = "飯山市" Range("G931").Value = "イイヤマシ" Range("C932").Value = "000941" Range("E932").Value = "茅野市" Range("G932").Value = "チノシ" Range("C933").Value = "000942" Range("E933").Value = "塩尻市" Range("G933").Value = "シオジリシ" Range("C934").Value = "000943" Range("E934").Value = "佐久市" Range("G934").Value = "サクシ" Range("C935").Value = "000944" Range("E935").Value = "千曲市" Range("G935").Value = "チクマシ" Range("C936").Value = "000945" Range("E936").Value = "東御市" Range("G936").Value = "トウミシ" Range("C937").Value = "000946" Range("E937").Value = "安曇野市" Range("G937").Value = "アヅミノシ" Range("C938").Value = "000947" Range("E938").Value = "小海町" Range("G938").Value = "コウミマチ" Range("C939").Value = "000948" Range("E939,E1408").Value = "川上村" Range("G939,G1408").Value = "カワカミムラ" Range("C940").Value = "000949" Range("G940").Value = "ミナミマキムラ" Range("C941").Value = "000950" Range("E941").Value = "南相木村" Range("G941").Value = "ミナミアイキムラ" Range("C942").Value = "000951" Range("E942").Value = "北相木村" Range("G942").Value = "キタアイキムラ" Range("C943").Value = "000952" Range("E943").Value = "佐久穂町" Range("G943").Value = "サクホマチ" Range("C944").Value = "000953" Range("E944").Value = "軽井沢町" Range("G944").Value = "カルイザワマチ" Range("C945").Value = "000954" Range("E945").Value = "御代田町" Range("G945").Value = "ミヨタマチ" Range("C946").Value = "000955" Range("E946").Value = "立科町" Range("G946").Value = "タテシナマチ" Range("C947").Value = "000956" Range("E947").Value = "青木村" Range("G947").Value = "アオキムラ" Range("C948").Value = "000957" Range("E948").Value = "長和町" Range("G948").Value = "ナガワマチ" Range("C949").Value = "000958" Range("E949").Value = "下諏訪町" Range("G949").Value = "シモスワマチ" Range("C950").Value = "000959" Range("E950").Value = "富士見町" Range("G950").Value = "フジミマチ" Range("C951").Value = "000960" Range("E951").Value = "原村" Range("G951").Value = "ハラムラ" Range("C952").Value = "000961" Range("E952").Value = "辰野町" Range("G952").Value = "タツノマチ" Range("C953").Value = "000962" Range("E953").Value = "箕輪町" Range("G953").Value = "ミノワマチ" Range("C954").Value = "000963" Range("E954").Value = "飯島町" Range("G954").Value = "イイジママチ" Range("C955").Value = "000964" Range("E955").Value = "南箕輪村" Range("G955").Value = "ミナミミノワムラ" Range("C956").Value = "000965" Range("E956").Value = "中川村" Range("G956").Value = "ナカガワムラ" Range("C957").Value = "000966" Range("E957").Value = "宮田村" Range("G957").Value = "ミヤダムラ" Range("C958").Value = "000967" Range("E958").Value = "松川町" Range("G958").Value = "マツカワマチ" Range("C959").Value = "000968" Range("E959").Value = "高森町" Range("G959").Value = "タカモリマチ" Range("C960").Value = "000969" Range("E960").Value = "阿南町" Range("G960").Value = "アナンチョウ" Range("C961").Value = "000970" Range("E961").Value = "阿智村" Range("G961").Value = "アチムラ" Range("C962").Value = "000971" Range("E962").Value = "平谷村" Range("G962").Value = "ヒラヤムラ" Range("C963").Value = "000972" Range("E963").Value = "根羽村" Range("G963").Value = "ネバムラ" Range("C964").Value = "000973" Range("E964").Value = "下條村" Range("G964").Value = "シモジョウムラ" Range("C965").Value = "000974" Range("E965").Value = "売木村" Range("G965").Value = "ウルギムラ" Range("C966").Value = "000975" Range("E966").Value = "天龍村" Range("G966").Value = "テンリュウムラ" Range("C967").Value = "000976" Range("E967").Value = "泰阜村" Range("G967").Value = "ヤスオカムラ" Range("C968").Value = "000977" Range("E968").Value = "喬木村" Range("G968").Value = "タカギムラ" Range("C969").Value = "000978" Range("E969").Value = "豊丘村" Range("G969").Value = "トヨオカムラ" Range("C970").Value = "000979" Range("E970").Value = "大鹿村" Range("G970").Value = "オオシカムラ" Range("C971").Value = "000980" Range("E971").Value = "上松町" Range("G971").Value = "アゲマツマチ" Range("C972").Value = "000981" Range("E972").Value = "南木曽町" Range("G972").Value = "ナギソマチ" Range("C973").Value = "000982" Range("E973").Value = "木祖村" Range("G973").Value = "キソムラ" Range("C974").Value = "000983" Range("E974").Value = "王滝村" Range("G974").Value = "オウタキムラ" Range("C975").Value = "000984" Range("E975").Value = "大桑村" Range("G975").Value = "オオクワムラ" Range("C976").Value = "000985" Range("E976").Value = "木曽町" Range("G976").Value = "キソマチ" Range("C977").Value = "000986" Range("E977").Value = "麻績村" Range("G977").Value = "オミムラ" Range("C978").Value = "000987" Range("E978").Value = "生坂村" Range("G978").Value = "イクサカムラ" Range("C979").Value = "000988" Range("E979").Value = "山形村" Range("G979").Value = "ヤマガタムラ" Range("C980").Value = "000989" Range("E980").Value = "朝日村" Range("G980").Value = "アサヒムラ" Range("C981").Value = "000990" Range("E981").Value = "筑北村" Range("G981").Value = "チクホクムラ" Range("C982").Value = "000991" Range("G982").Value = "イケダマチ" Range("C983").Value = "000992" Range("E983").Value = "松川村" Range("G983").Value = "マツカワムラ" Range("C984").Value = "000993" Range("E984").Value = "白馬村" Range("G984").Value = "ハクバムラ" Range("C985").Value = "000994" Range("E985").Value = "小谷村" Range("G985").Value = "オタリムラ" Range("C986").Value = "000995" Range("E986").Value = "坂城町" Range("G986").Value = "サカキマチ" Range("C987").Value = "000996" Range("E987").Value = "小布施町" Range("G987").Value = "オブセマチ" Range("C988").Value = "000997" Range("C989").Value = "000998" Range("E989").Value = "山ノ内町" Range("G989").Value = "ヤマノウチマチ" Range("C990").Value = "000999" Range("E990").Value = "木島平村" Range("G990").Value = "キジマダイラムラ" Range("C991").Value = "001000" Range("E991").Value = "野沢温泉村" Range("G991").Value = "ノザワオンセンムラ" Range("C992").Value = "001001" Range("E992").Value = "信濃町" Range("G992").Value = "シナノマチ" Range("C993").Value = "001002" Range("E993").Value = "小川村" Range("G993").Value = "オガワムラ" Range("C994").Value = "001003" Range("E994").Value = "飯綱町" Range("G994").Value = "イイヅナマチ" Range("C995").Value = "001004" Range("E995").Value = "栄村" Range("G995").Value = "サカエムラ" Range("C996").Value = "001005" Range("F996:F1038").Value = "ギフケン" Range("C997").Value = "001006" Range("E997").Value = "岐阜市" Range("G997").Value = "ギフシ" Range("C998").Value = "001007" Range("E998").Value = "大垣市" Range("G998").Value = "オオガキシ" Range("C999").Value = "001008" Range("E999").Value = "高山市" Range("G999").Value = "タカヤマシ" Range("C1000").Value = "001009" Range("E1000").Value = "多治見市" Range("G1000").Value = "タジミシ" Range("C1001").Value = "001010" Range("E1001").Value = "関市" Range("G1001").Value = "セキシ" Range("C1002").Value = "001011" Range("E1002").Value = "中津川市" Range("G1002").Value = "ナカツガワシ" Range("C1003").Value = "001012" Range("E1003").Value = "美濃市" Range("G1003").Value = "ミノシ" Range("C1004").Value = "001013" Range("E1004").Value = "瑞浪市" Range("G1004").Value = "ミズナミシ" Range("C1005").Value = "001014" Range("E1005").Value = "羽島市" Range("G1005").Value = "ハシマシ" Range("C1006").Value = "001015" Range("E1006").Value = "恵那市" Range("G1006").Value = "エナシ" Range("C1007").Value = "001016" Range("E1007").Value = "美濃加茂市" Range("G1007").Value = "ミノカモシ" Range("C1008").Value = "001017" Range("E1008").Value = "土岐市" Range("G1008").Value = "トキシ" Range("C1009").Value = "001018" Range("E1009").Value = "各務原市" Range("G1009").Value = "カカミガハラシ" Range("C1010").Value = "001019" Range("E1010").Value = "可児市" Range("G1010").Value = "カニシ" Range("C1011").Value = "001020" Range("E1011").Value = "山県市" Range("C1012").Value = "001021" Range("E1012").Value = "瑞穂市" Range("G1012").Value = "ミズホシ" Range("C1013").Value = "001022" Range("E1013").Value = "飛騨市" Range("G1013").Value = "ヒダシ" Range("C1014").Value = "001023" Range("E1014").Value = "本巣市" Range("G1014").Value = "モトスシ" Range("C1015").Value = "001024" Range("E1015").Value = "郡上市" Range("G1015").Value = "グジョウシ" Range("C1016").Value = "001025" Range("E1016").Value = "下呂市" Range("G1016").Value = "ゲロシ" Range("C1017").Value = "001026" Range("E1017").Value = "海津市" Range("G1017").Value = "カイヅシ" Range("C1018").Value = "001027" Range("E1018").Value = "岐南町" Range("G1018").Value = "ギナンチョウ" Range("C1019").Value = "001028" Range("E1019").Value = "笠松町" Range("G1019").Value = "カサマツチョウ" Range("C1020").Value = "001029" Range("E1020").Value = "養老町" Range("G1020").Value = "ヨウロウチョウ" Range("C1021").Value = "001030" Range("E1021").Value = "垂井町" Range("G1021").Value = "タルイチョウ" Range("C1022").Value = "001031" Range("E1022").Value = "関ケ原町" Range("G1022").Value = "セキガハラチョウ" Range("C1023").Value = "001032" Range("E1023").Value = "神戸町" Range("G1023").Value = "ゴウドチョウ" Range("C1024").Value = "001033" Range("E1024").Value = "輪之内町" Range("G1024").Value = "ワノウチチョウ" Range("C1025").Value = "001034" Range("E1025").Value = "安八町" Range("G1025").Value = "アンパチチョウ" Range("C1026").Value = "001035" Range("E1026").Value = "揖斐川町" Range("G1026").Value = "イビガワチョウ" Range("C1027").Value = "001036" Range("E1027").Value = "大野町" Range("G1027").Value = "オオノチョウ" Range("C1028").Value = "001037" Range("C1029").Value = "001038" Range("E1029").Value = "北方町" Range("G1029").Value = "キタガタチョウ" Range("C1030").Value = "001039" Range("E1030").Value = "坂祝町" Range("G1030").Value = "サカホギチョウ" Range("C1031").Value = "001040" Range("E1031").Value = "富加町" Range("G1031").Value = "トミカチョウ" Range("C1032").Value = "001041" Range("E1032").Value = "川辺町" Range("G1032").Value = "カワベチョウ" Range("C1033").Value = "001042" Range("E1033").Value = "七宗町" Range("G1033").Value = "ヒチソウチョウ" Range("C1034").Value = "001043" Range("E1034").Value = "八百津町" Range("G1034").Value = "ヤオツチョウ" Range("C1035").Value = "001044" Range("E1035").Value = "白川町" Range("G1035").Value = "シラカワチョウ" Range("C1036").Value = "001045" Range("E1036").Value = "東白川村" Range("G1036").Value = "ヒガシシラカワムラ" Range("C1037").Value = "001046" Range("E1037").Value = "御嵩町" Range("G1037").Value = "ミタケチョウ" Range("C1038").Value = "001047" Range("E1038").Value = "白川村" Range("G1038").Value = "シラカワムラ" Range("C1039").Value = "001048" Range("F1039:F1084").Value = "シズオカケン" Range("C1040").Value = "001049" Range("E1040").Value = "静岡市" Range("G1040").Value = "シズオカシ" Range("C1041").Value = "001050" Range("E1041").Value = "静岡市葵区" Range("G1041").Value = "しずおかしあおいく" Range("C1042").Value = "001051" Range("E1042").Value = "静岡市駿河区" Range("G1042").Value = "しずおかしするがく" Range("C1043").Value = "001052" Range("E1043").Value = "静岡市清水区" Range("G1043").Value = "しずおかししみずく" Range("C1044").Value = "001053" Range("E1044").Value = "浜松市" Range("G1044").Value = "ハママツシ" Range("C1045").Value = "001054" Range("E1045").Value = "浜松市中区" Range("G1045").Value = "はままつしなかく" Range("C1046").Value = "001055" Range("E1046").Value = "浜松市東区" Range("G1046").Value = "はままつしひがしく" Range("C1047").Value = "001056" Range("E1047").Value = "浜松市西区" Range("G1047").Value = "はままつしにしく" Range("C1048").Value = "001057" Range("E1048").Value = "浜松市南区" Range("G1048").Value = "はままつしみなみく" Range("C1049").Value = "001058" Range("E1049").Value = "浜松市北区" Range("G1049").Value = "はままつしきたく" Range("C1050").Value = "001059" Range("E1050").Value = "浜松市浜北区" Range("G1050").Value = "はままつしはまきたく" Range("C1051").Value = "001060" Range("E1051").Value = "浜松市天竜区" Range("G1051").Value = "はままつしてんりゅうく" Range("C1052").Value = "001061" Range("E1052").Value = "沼津市" Range("G1052").Value = "ヌマヅシ" Range("C1053").Value = "001062" Range("E1053").Value = "熱海市" Range("G1053").Value = "アタミシ" Range("C1054").Value = "001063" Range("E1054").Value = "三島市" Range("G1054").Value = "ミシマシ" Range("C1055").Value = "001064" Range("E1055").Value = "富士宮市" Range("G1055").Value = "フジノミヤシ" Range("C1056").Value = "001065" Range("E1056").Value = "伊東市" Range("G1056").Value = "イトウシ" Range("C1057").Value = "001066" Range("E1057").Value = "島田市" Range("G1057").Value = "シマダシ" Range("C1058").Value = "001067" Range("E1058").Value = "富士市" Range("G1058").Value = "フジシ" Range("C1059").Value = "001068" Range("E1059").Value = "磐田市" Range("G1059").Value = "イワタシ" Range("C1060").Value = "001069" Range("E1060").Value = "焼津市" Range("G1060").Value = "ヤイヅシ" Range("C1061").Value = "001070" Range("E1061").Value = "掛川市" Range("G1061").Value = "カケガワシ" Range("C1062").Value = "001071" Range("E1062").Value = "藤枝市" Range("G1062").Value = "フジエダシ" Range("C1063").Value = "001072" Range("E1063").Value = "御殿場市" Range("G1063").Value = "ゴテンバシ" Range("C1064").Value = "001073" Range("E1064").Value = "袋井市" Range("G1064").Value = "フクロイシ" Range("C1065").Value = "001074" Range("E1065").Value = "下田市" Range("G1065").Value = "シモダシ" Range("C1066").Value = "001075" Range("E1066").Value = "裾野市" Range("G1066").Value = "スソノシ" Range("C1067").Value = "001076" Range("E1067").Value = "湖西市" Range("G1067").Value = "コサイシ" Range("C1068").Value = "001077" Range("E1068").Value = "伊豆市" Range("G1068").Value = "イズシ" Range("C1069").Value = "001078" Range("E1069").Value = "御前崎市" Range("G1069").Value = "オマエザキシ" Range("C1070").Value = "001079" Range("E1070").Value = "菊川市" Range("G1070").Value = "キクガワシ" Range("C1071").Value = "001080" Range("E1071").Value = "伊豆の国市" Range("G1071").Value = "イズノクニシ" Range("C1072").Value = "001081" Range("E1072").Value = "牧之原市" Range("G1072").Value = "マキノハラシ" Range("C1073").Value = "001082" Range("E1073").Value = "東伊豆町" Range("G1073").Value = "ヒガシイズチョウ" Range("C1074").Value = "001083" Range("E1074").Value = "河津町" Range("G1074").Value = "カワヅチョウ" Range("C1075").Value = "001084" Range("E1075").Value = "南伊豆町" Range("G1075").Value = "ミナミイズチョウ" Range("C1076").Value = "001085" Range("E1076").Value = "松崎町" Range("G1076").Value = "マツザキチョウ" Range("C1077").Value = "001086" Range("E1077").Value = "西伊豆町" Range("G1077").Value = "ニシイズチョウ" Range("C1078").Value = "001087" Range("E1078").Value = "函南町" Range("G1078").Value = "カンナミチョウ" Range("C1079").Value = "001088" Range("C1080").Value = "001089" Range("E1080").Value = "長泉町" Range("G1080").Value = "ナガイズミチョウ" Range("C1081").Value = "001090" Range("E1081").Value = "小山町" Range("G1081").Value = "オヤマチョウ" Range("C1082").Value = "001091" Range("E1082").Value = "吉田町" Range("G1082").Value = "ヨシダチョウ" Range("C1083").Value = "001092" Range("E1083").Value = "川根本町" Range("G1083").Value = "カワネホンチョウ" Range("C1084").Value = "001093" Range("C1085").Value = "001094" Range("F1085:F1155").Value = "アイチケン" Range("C1086").Value = "001095" Range("E1086").Value = "名古屋市" Range("G1086").Value = "ナゴヤシ" Range("C1087").Value = "001096" Range("E1087").Value = "名古屋市千種区" Range("G1087").Value = "なごやしちくさく" Range("C1088").Value = "001097" Range("E1088").Value = "名古屋市東区" Range("G1088").Value = "なごやしひがしく" Range("C1089").Value = "001098" Range("E1089").Value = "名古屋市北区" Range("G1089").Value = "なごやしきたく" Range("C1090").Value = "001099" Range("E1090").Value = "名古屋市西区" Range("G1090").Value = "なごやしにしく" Range("C1091").Value = "001100" Range("E1091").Value = "名古屋市中村区" Range("G1091").Value = "なごやしなかむらく" Range("C1092").Value = "001101" Range("E1092").Value = "名古屋市中区" Range("G1092").Value = "なごやしなかく" Range("C1093").Value = "001102" Range("E1093").Value = "名古屋市昭和区" Range("G1093").Value = "なごやししょうわく" Range("C1094").Value = "001103" Range("E1094").Value = "名古屋市瑞穂区" Range("G1094").Value = "なごやしみずほく" Range("C1095").Value = "001104" Range("E1095").Value = "名古屋市熱田区" Range("G1095").Value = "なごやしあつたく" Range("C1096").Value = "001105" Range("E1096").Value = "名古屋市中川区" Range("G1096").Value = "なごやしなかがわく" Range("C1097").Value = "001106" Range("E1097").Value = "名古屋市港区" Range("G1097").Value = "なごやしみなとく" Range("C1098").Value = "001107" Range("E1098").Value = "名古屋市南区" Range("G1098").Value = "なごやしみなみく" Range("C1099").Value = "001108" Range("E1099").Value = "名古屋市守山区" Range("G1099").Value = "なごやしもりやまく" Range("C1100").Value = "001109" Range("E1100").Value = "名古屋市緑区" Range("G1100").Value = "なごやしみどりく" Range("C1101").Value = "001110" Range("E1101").Value = "名古屋市名東区" Range("G1101").Value = "なごやしめいとうく" Range("C1102").Value = "001111" Range("E1102").Value = "名古屋市天白区" Range("G1102").Value = "なごやしてんぱくく" Range("C1103").Value = "001112" Range("E1103").Value = "豊橋市" Range("G1103").Value = "トヨハシシ" Range("C1104").Value = "001113" Range("E1104").Value = "岡崎市" Range("G1104").Value = "オカザキシ" Range("C1105").Value = "001114" Range("E1105").Value = "一宮市" Range("G1105").Value = "イチノミヤシ" Range("C1106").Value = "001115" Range("E1106").Value = "瀬戸市" Range("G1106").Value = "セトシ" Range("C1107").Value = "001116" Range("E1107").Value = "半田市" Range("G1107").Value = "ハンダシ" Range("C1108").Value = "001117" Range("E1108").Value = "春日井市" Range("G1108").Value = "カスガイシ" Range("C1109").Value = "001118" Range("E1109").Value = "豊川市" Range("G1109").Value = "トヨカワシ" Range("C1110").Value = "001119" Range("E1110").Value = "津島市" Range("G1110").Value = "ツシマシ" Range("C1111").Value = "001120" Range("E1111").Value = "碧南市" Range("G1111").Value = "ヘキナンシ" Range("C1112").Value = "001121" Range("E1112").Value = "刈谷市" Range("G1112").Value = "カリヤシ" Range("C1113").Value = "001122" Range("E1113").Value = "豊田市" Range("G1113").Value = "トヨタシ" Range("C1114").Value = "001123" Range("E1114").Value = "安城市" Range("G1114").Value = "アンジョウシ" Range("C1115").Value = "001124" Range("E1115").Value = "西尾市" Range("G1115").Value = "ニシオシ" Range("C1116").Value = "001125" Range("E1116").Value = "蒲郡市" Range("G1116").Value = "ガマゴオリシ" Range("C1117").Value = "001126" Range("E1117").Value = "犬山市" Range("G1117").Value = "イヌヤマシ" Range("C1118").Value = "001127" Range("E1118").Value = "常滑市" Range("G1118").Value = "トコナメシ" Range("C1119").Value = "001128" Range("E1119").Value = "江南市" Range("G1119").Value = "コウナンシ" Range("C1120").Value = "001129" Range("E1120").Value = "小牧市" Range("G1120").Value = "コマキシ" Range("C1121").Value = "001130" Range("E1121").Value = "稲沢市" Range("G1121").Value = "イナザワシ" Range("C1122").Value = "001131" Range("E1122").Value = "新城市" Range("G1122").Value = "シンシロシ" Range("C1123").Value = "001132" Range("E1123").Value = "東海市" Range("G1123").Value = "トウカイシ" Range("C1124").Value = "001133" Range("E1124").Value = "大府市" Range("G1124").Value = "オオブシ" Range("C1125").Value = "001134" Range("E1125").Value = "知多市" Range("G1125").Value = "チタシ" Range("C1126").Value = "001135" Range("E1126").Value = "知立市" Range("G1126").Value = "チリュウシ" Range("C1127").Value = "001136" Range("E1127").Value = "尾張旭市" Range("G1127").Value = "オワリアサヒシ" Range("C1128").Value = "001137" Range("E1128").Value = "高浜市" Range("G1128").Value = "タカハマシ" Range("C1129").Value = "001138" Range("E1129").Value = "岩倉市" Range("G1129").Value = "イワクラシ" Range("C1130").Value = "001139" Range("E1130").Value = "豊明市" Range("G1130").Value = "トヨアケシ" Range("C1131").Value = "001140" Range("E1131").Value = "日進市" Range("G1131").Value = "ニッシンシ" Range("C1132").Value = "001141" Range("E1132").Value = "田原市" Range("G1132").Value = "タハラシ" Range("C1133").Value = "001142" Range("E1133").Value = "愛西市" Range("G1133").Value = "アイサイシ" Range("C1134").Value = "001143" Range("E1134").Value = "清須市" Range("G1134").Value = "キヨスシ" Range("C1135").Value = "001144" Range("E1135").Value = "北名古屋市" Range("G1135").Value = "キタナゴヤシ" Range("C1136").Value = "001145" Range("E1136").Value = "弥富市" Range("G1136").Value = "ヤトミシ" Range("C1137").Value = "001146" Range("E1137").Value = "みよし市" Range("G1137").Value = "ミヨシシ" Range("C1138").Value = "001147" Range("E1138").Value = "あま市" Range("G1138").Value = "アマシ" Range("C1139").Value = "001148" Range("E1139").Value = "長久手市" Range("G1139").Value = "ナガクテシ" Range("C1140").Value = "001149" Range("E1140").Value = "東郷町" Range("G1140").Value = "トウゴウチョウ" Range("C1141").Value = "001150" Range("E1141").Value = "豊山町" Range("G1141").Value = "トヨヤマチョウ" Range("C1142").Value = "001151" Range("E1142").Value = "大口町" Range("G1142").Value = "オオグチチョウ" Range("C1143").Value = "001152" Range("E1143").Value = "扶桑町" Range("G1143").Value = "フソウチョウ" Range("C1144").Value = "001153" Range("E1144").Value = "大治町" Range("G1144").Value = "オオハルチョウ" Range("C1145").Value = "001154" Range("E1145").Value = "蟹江町" Range("G1145").Value = "カニエチョウ" Range("C1146").Value = "001155" Range("E1146").Value = "飛島村" Range("G1146").Value = "トビシマムラ" Range("C1147").Value = "001156" Range("E1147").Value = "阿久比町" Range("G1147").Value = "アグイチョウ" Range("C1148").Value = "001157" Range("E1148").Value = "東浦町" Range("G1148").Value = "ヒガシウラチョウ" Range("C1149").Value = "001158" Range("E1149").Value = "南知多町" Range("G1149").Value = "ミナミチタチョウ" Range("C1150").Value = "001159" Range("C1151").Value = "001160" Range("E1151").Value = "武豊町" Range("G1151").Value = "タケトヨチョウ" Range("C1152").Value = "001161" Range("E1152").Value = "幸田町" Range("G1152").Value = "コウタチョウ" Range("C1153").Value = "001162" Range("E1153").Value = "設楽町" Range("G1153").Value = "シタラチョウ" Range("C1154").Value = "001163" Range("E1154").Value = "東栄町" Range("G1154").Value = "トウエイチョウ" Range("C1155").Value = "001164" Range("E1155").Value = "豊根村" Range("G1155").Value = "トヨネムラ" Range("C1156").Value = "001165" Range("F1156:F1185").Value = "ミエケン" Range("C1157").Value = "001166" Range("E1157").Value = "津市" Range("G1157").Value = "ツシ" Range("C1158").Value = "001167" Range("E1158").Value = "四日市市" Range("G1158").Value = "ヨッカイチシ" Range("C1159").Value = "001168" Range("E1159").Value = "伊勢市" Range("G1159").Value = "イセシ" Range("C1160").Value = "001169" Range("E1160").Value = "松阪市" Range("G1160").Value = "マツサカシ" Range("C1161").Value = "001170" Range("E1161").Value = "桑名市" Range("G1161").Value = "クワナシ" Range("C1162").Value = "001171" Range("E1162").Value = "鈴鹿市" Range("G1162").Value = "スズカシ" Range("C1163").Value = "001172" Range("E1163").Value = "名張市" Range("G1163").Value = "ナバリシ" Range("C1164").Value = "001173" Range("E1164").Value = "尾鷲市" Range("G1164").Value = "オワセシ" Range("C1165").Value = "001174" Range("E1165").Value = "亀山市" Range("G1165").Value = "カメヤマシ" Range("C1166").Value = "001175" Range("E1166").Value = "鳥羽市" Range("G1166").Value = "トバシ" Range("C1167").Value = "001176" Range("E1167").Value = "熊野市" Range("G1167").Value = "クマノシ" Range("C1168").Value = "001177" Range("E1168").Value = "いなべ市" Range("G1168").Value = "イナベシ" Range("C1169").Value = "001178" Range("E1169").Value = "志摩市" Range("G1169").Value = "シマシ" Range("C1170").Value = "001179" Range("E1170").Value = "伊賀市" Range("G1170").Value = "イガシ" Range("C1171").Value = "001180" Range("E1171").Value = "木曽岬町" Range("G1171").Value = "キソサキチョウ" Range("C1172").Value = "001181" Range("E1172").Value = "東員町" Range("G1172").Value = "トウインチョウ" Range("C1173").Value = "001182" Range("E1173").Value = "菰野町" Range("G1173").Value = "コモノチョウ" Range("C1174").Value = "001183" Range("G1174").Value = "アサヒチョウ" Range("C1175").Value = "001184" Range("E1175").Value = "川越町" Range("G1175").Value = "カワゴエチョウ" Range("C1176").Value = "001185" Range("E1176").Value = "多気町" Range("G1176").Value = "タキチョウ" Range("C1177").Value = "001186" Range("G1177").Value = "メイワチョウ" Range("C1178").Value = "001187" Range("E1178").Value = "大台町" Range("G1178").Value = "オオダイチョウ" Range("C1179").Value = "001188" Range("E1179").Value = "玉城町" Range("G1179").Value = "タマキチョウ" Range("C1180").Value = "001189" Range("E1180").Value = "度会町" Range("G1180").Value = "ワタライチョウ" Range("C1181").Value = "001190" Range("E1181").Value = "大紀町" Range("C1182").Value = "001191" Range("E1182").Value = "南伊勢町" Range("G1182").Value = "ミナミイセチョウ" Range("C1183").Value = "001192" Range("E1183").Value = "紀北町" Range("G1183").Value = "キホクチョウ" Range("C1184").Value = "001193" Range("E1184").Value = "御浜町" Range("C1185").Value = "001194" Range("E1185").Value = "紀宝町" Range("G1185").Value = "キホウチョウ" Range("C1186").Value = "001195" Range("F1186:F1205").Value = "シガケン" Range("C1187").Value = "001196" Range("E1187").Value = "大津市" Range("G1187").Value = "オオツシ" Range("C1188").Value = "001197" Range("E1188").Value = "彦根市" Range("G1188").Value = "ヒコネシ" Range("C1189").Value = "001198" Range("E1189").Value = "長浜市" Range("G1189").Value = "ナガハマシ" Range("C1190").Value = "001199" Range("E1190").Value = "近江八幡市" Range("G1190").Value = "オウミハチマンシ" Range("C1191").Value = "001200" Range("E1191").Value = "草津市" Range("G1191").Value = "クサツシ" Range("C1192").Value = "001201" Range("E1192").Value = "守山市" Range("G1192").Value = "モリヤマシ" Range("C1193").Value = "001202" Range("E1193").Value = "栗東市" Range("G1193").Value = "リットウシ" Range("C1194").Value = "001203" Range("E1194").Value = "甲賀市" Range("G1194").Value = "コウカシ" Range("C1195").Value = "001204" Range("E1195").Value = "野洲市" Range("G1195").Value = "ヤスシ" Range("C1196").Value = "001205" Range("E1196").Value = "湖南市" Range("G1196").Value = "コナンシ" Range("C1197").Value = "001206" Range("E1197").Value = "高島市" Range("G1197").Value = "タカシマシ" Range("C1198").Value = "001207" Range("E1198").Value = "東近江市" Range("G1198").Value = "ヒガシオウミシ" Range("C1199").Value = "001208" Range("E1199").Value = "米原市" Range("G1199").Value = "マイバラシ" Range("C1200").Value = "001209" Range("E1200").Value = "日野町" Range("G1200").Value = "ヒノチョウ" Range("C1201").Value = "001210" Range("E1201").Value = "竜王町" Range("G1201").Value = "リユウオウチョウ" Range("C1202").Value = "001211" Range("E1202").Value = "愛荘町" Range("G1202").Value = "アイショウチョウ" Range("C1203").Value = "001212" Range("E1203").Value = "豊郷町" Range("G1203").Value = "トヨサトチョウ" Range("C1204").Value = "001213" Range("E1204").Value = "甲良町" Range("G1204").Value = "コウラチョウ" Range("C1205").Value = "001214" Range("E1205").Value = "多賀町" Range("G1205").Value = "タガチョウ" Range("C1206").Value = "001215" Range("F1206:F1243").Value = "キョウトフ" Range("C1207").Value = "001216" Range("E1207").Value = "京都市" Range("G1207").Value = "キョウトシ" Range("C1208").Value = "001217" Range("E1208").Value = "京都市北区" Range("G1208").Value = "きょうとしきたく" Range("C1209").Value = "001218" Range("E1209").Value = "京都市上京区" Range("G1209").Value = "きょうとしかみぎょうく" Range("C1210").Value = "001219" Range("E1210").Value = "京都市左京区" Range("G1210").Value = "きょうとしさきょうく" Range("C1211").Value = "001220" Range("E1211").Value = "京都市中京区" Range("G1211").Value = "きょうとしなかぎょうく" Range("C1212").Value = "001221" Range("E1212").Value = "京都市東山区" Range("G1212").Value = "きょうとしひがしやまく" Range("C1213").Value = "001222" Range("E1213").Value = "京都市下京区" Range("G1213").Value = "きょうとししもぎょうく" Range("C1214").Value = "001223" Range("E1214").Value = "京都市南区" Range("G1214").Value = "きょうとしみなみく" Range("C1215").Value = "001224" Range("E1215").Value = "京都市右京区" Range("G1215").Value = "きょうとしうきょうく" Range("C1216").Value = "001225" Range("E1216").Value = "京都市伏見区" Range("G1216").Value = "きょうとしふしみく" Range("C1217").Value = "001226" Range("E1217").Value = "京都市山科区" Range("G1217").Value = "きょうとしやましなく" Range("C1218").Value = "001227" Range("E1218").Value = "京都市西京区" Range("G1218").Value = "きょうとしにしきょうく" Range("C1219").Value = "001228" Range("E1219").Value = "福知山市" Range("G1219").Value = "フクチヤマシ" Range("C1220").Value = "001229" Range("E1220").Value = "舞鶴市" Range("G1220").Value = "マイヅルシ" Range("C1221").Value = "001230" Range("E1221").Value = "綾部市" Range("G1221").Value = "アヤベシ" Range("C1222").Value = "001231" Range("E1222").Value = "宇治市" Range("G1222").Value = "ウジシ" Range("C1223").Value = "001232" Range("E1223").Value = "宮津市" Range("G1223").Value = "ミヤヅシ" Range("C1224").Value = "001233" Range("E1224").Value = "亀岡市" Range("G1224").Value = "カメオカシ" Range("C1225").Value = "001234" Range("E1225").Value = "城陽市" Range("G1225").Value = "ジョウヨウシ" Range("C1226").Value = "001235" Range("E1226").Value = "向日市" Range("G1226").Value = "ムコウシ" Range("C1227").Value = "001236" Range("E1227").Value = "長岡京市" Range("G1227").Value = "ナガオカキョウシ" Range("C1228").Value = "001237" Range("E1228").Value = "八幡市" Range("G1228").Value = "ヤワタシ" Range("C1229").Value = "001238" Range("E1229").Value = "京田辺市" Range("G1229").Value = "キョウタナベシ" Range("C1230").Value = "001239" Range("E1230").Value = "京丹後市" Range("G1230").Value = "キョウタンゴシ" Range("C1231").Value = "001240" Range("E1231").Value = "南丹市" Range("G1231").Value = "ナンタンシ" Range("C1232").Value = "001241" Range("E1232").Value = "木津川市" Range("G1232").Value = "キヅガワシ" Range("C1233").Value = "001242" Range("E1233").Value = "大山崎町" Range("G1233").Value = "オオヤマザキチョウ" Range("C1234").Value = "001243" Range("E1234").Value = "久御山町" Range("G1234").Value = "クミヤマチョウ" Range("C1235").Value = "001244" Range("E1235").Value = "井手町" Range("G1235").Value = "イデチョウ" Range("C1236").Value = "001245" Range("E1236").Value = "宇治田原町" Range("G1236").Value = "ウジタワラチョウ" Range("C1237").Value = "001246" Range("E1237").Value = "笠置町" Range("G1237").Value = "カサギチョウ" Range("C1238").Value = "001247" Range("E1238").Value = "和束町" Range("G1238").Value = "ワヅカチョウ" Range("C1239").Value = "001248" Range("E1239").Value = "精華町" Range("G1239").Value = "セイカチョウ" Range("C1240").Value = "001249" Range("E1240").Value = "南山城村" Range("G1240").Value = "ミナミヤマシロムラ" Range("C1241").Value = "001250" Range("E1241").Value = "京丹波町" Range("G1241").Value = "キョウタンバチョウ" Range("C1242").Value = "001251" Range("E1242").Value = "伊根町" Range("G1242").Value = "イネチョウ" Range("C1243").Value = "001252" Range("E1243").Value = "与謝野町" Range("G1243").Value = "ヨサノチョウ" Range("C1244").Value = "001253" Range("F1244:F1318").Value = "オオサカフ" Range("C1245").Value = "001254" Range("E1245").Value = "大阪市" Range("G1245").Value = "オオサカシ" Range("C1246").Value = "001255" Range("E1246").Value = "大阪市都島区" Range("G1246").Value = "おおさかしみやこじまく" Range("C1247").Value = "001256" Range("E1247").Value = "大阪市福島区" Range("G1247").Value = "おおさかしふくしまく" Range("C1248").Value = "001257" Range("E1248").Value = "大阪市此花区" Range("G1248").Value = "おおさかしこのはなく" Range("C1249").Value = "001258" Range("E1249").Value = "大阪市西区" Range("G1249").Value = "おおさかしにしく" Range("C1250").Value = "001259" Range("E1250").Value = "大阪市港区" Range("G1250").Value = "おおさかしみなとく" Range("C1251").Value = "001260" Range("E1251").Value = "大阪市大正区" Range("G1251").Value = "おおさかしたいしょうく" Range("C1252").Value = "001261" Range("E1252").Value = "大阪市天王寺区" Range("G1252").Value = "おおさかしてんのうじく" Range("C1253").Value = "001262" Range("E1253").Value = "大阪市浪速区" Range("G1253").Value = "おおさかしなにわく" Range("C1254").Value = "001263" Range("E1254").Value = "大阪市西淀川区" Range("G1254").Value = "おおさかしにしよどがわく" Range("C1255").Value = "001264" Range("E1255").Value = "大阪市東淀川区" Range("G1255").Value = "おおさかしひがしよどがわく" Range("C1256").Value = "001265" Range("E1256").Value = "大阪市東成区" Range("G1256").Value = "おおさかしひがしなりく" Range("C1257").Value = "001266" Range("E1257").Value = "大阪市生野区" Range("G1257").Value = "おおさかしいくのく" Range("C1258").Value = "001267" Range("E1258").Value = "大阪市旭区" Range("G1258").Value = "おおさかしあさひく" Range("C1259").Value = "001268" Range("E1259").Value = "大阪市城東区" Range("G1259").Value = "おおさかしじょうとうく" Range("C1260").Value = "001269" Range("E1260").Value = "大阪市阿倍野区" Range("G1260").Value = "おおさかしあべのく" Range("C1261").Value = "001270" Range("E1261").Value = "大阪市住吉区" Range("G1261").Value = "おおさかしすみよしく" Range("C1262").Value = "001271" Range("E1262").Value = "大阪市東住吉区" Range("G1262").Value = "おおさかしひがしすみよしく" Range("C1263").Value = "001272" Range("E1263").Value = "大阪市西成区" Range("G1263").Value = "おおさかしにしなりく" Range("C1264").Value = "001273" Range("E1264").Value = "大阪市淀川区" Range("G1264").Value = "おおさかしよどがわく" Range("C1265").Value = "001274" Range("E1265").Value = "大阪市鶴見区" Range("G1265").Value = "おおさかしつるみく" Range("C1266").Value = "001275" Range("E1266").Value = "大阪市住之江区" Range("G1266").Value = "おおさかしすみのえく" Range("C1267").Value = "001276" Range("E1267").Value = "大阪市平野区" Range("G1267").Value = "おおさかしひらのく" Range("C1268").Value = "001277" Range("E1268").Value = "大阪市北区" Range("G1268").Value = "おおさかしきたく" Range("C1269").Value = "001278" Range("E1269").Value = "大阪市中央区" Range("G1269").Value = "おおさかしちゅうおうく" Range("C1270").Value = "001279" Range("E1270").Value = "堺市" Range("C1271").Value = "001280" Range("E1271").Value = "堺市堺区" Range("G1271").Value = "さかいしさかいく" Range("C1272").Value = "001281" Range("E1272").Value = "堺市中区" Range("G1272").Value = "さかいしなかく" Range("C1273").Value = "001282" Range("E1273").Value = "堺市東区" Range("G1273").Value = "さかいしひがしく" Range("C1274").Value = "001283" Range("E1274").Value = "堺市西区" Range("G1274").Value = "さかいしにしく" Range("C1275").Value = "001284" Range("E1275").Value = "堺市南区" Range("G1275").Value = "さかいしみなみく" Range("C1276").Value = "001285" Range("E1276").Value = "堺市北区" Range("G1276").Value = "さかいしきたく" Range("C1277").Value = "001286" Range("E1277").Value = "堺市美原区" Range("G1277").Value = "さかいしみはらく" Range("C1278").Value = "001287" Range("E1278").Value = "岸和田市" Range("G1278").Value = "キシワダシ" Range("C1279").Value = "001288" Range("E1279").Value = "豊中市" Range("G1279").Value = "トヨナカシ" Range("C1280").Value = "001289" Range("E1280").Value = "池田市" Range("G1280").Value = "イケダシ" Range("C1281").Value = "001290" Range("E1281").Value = "吹田市" Range("G1281").Value = "スイタシ" Range("C1282").Value = "001291" Range("E1282").Value = "泉大津市" Range("G1282").Value = "イズミオオツシ" Range("C1283").Value = "001292" Range("E1283").Value = "高槻市" Range("G1283").Value = "タカツキシ" Range("C1284").Value = "001293" Range("E1284").Value = "貝塚市" Range("G1284").Value = "カイヅカシ" Range("C1285").Value = "001294" Range("E1285").Value = "守口市" Range("G1285").Value = "モリグチシ" Range("C1286").Value = "001295" Range("E1286").Value = "枚方市" Range("G1286").Value = "ヒラカタシ" Range("C1287").Value = "001296" Range("E1287").Value = "茨木市" Range("G1287").Value = "イバラキシ" Range("C1288").Value = "001297" Range("E1288").Value = "八尾市" Range("G1288").Value = "ヤオシ" Range("C1289").Value = "001298" Range("E1289").Value = "泉佐野市" Range("G1289").Value = "イズミサノシ" Range("C1290").Value = "001299" Range("E1290").Value = "富田林市" Range("G1290").Value = "トンダバヤシシ" Range("C1291").Value = "001300" Range("E1291").Value = "寝屋川市" Range("G1291").Value = "ネヤガワシ" Range("C1292").Value = "001301" Range("E1292").Value = "河内長野市" Range("G1292").Value = "カワチナガノシ" Range("C1293").Value = "001302" Range("E1293").Value = "松原市" Range("G1293").Value = "マツバラシ" Range("C1294").Value = "001303" Range("E1294").Value = "大東市" Range("G1294").Value = "ダイトウシ" Range("C1295").Value = "001304" Range("E1295").Value = "和泉市" Range("G1295").Value = "イズミシ" Range("C1296").Value = "001305" Range("E1296").Value = "箕面市" Range("G1296").Value = "ミノオシ" Range("C1297").Value = "001306" Range("E1297").Value = "柏原市" Range("G1297").Value = "カシワラシ" Range("C1298").Value = "001307" Range("E1298").Value = "羽曳野市" Range("G1298").Value = "ハビキノシ" Range("C1299").Value = "001308" Range("E1299").Value = "門真市" Range("G1299").Value = "カドマシ" Range("C1300").Value = "001309" Range("E1300").Value = "摂津市" Range("G1300").Value = "セッツシ" Range("C1301").Value = "001310" Range("E1301").Value = "高石市" Range("G1301").Value = "タカイシシ" Range("C1302").Value = "001311" Range("E1302").Value = "藤井寺市" Range("G1302").Value = "フジイデラシ" Range("C1303").Value = "001312" Range("E1303").Value = "東大阪市" Range("G1303").Value = "ヒガシオオサカシ" Range("C1304").Value = "001313" Range("E1304").Value = "泉南市" Range("G1304").Value = "センナンシ" Range("C1305").Value = "001314" Range("E1305").Value = "四條畷市" Range("G1305").Value = "シジヨウナワテシ" Range("C1306").Value = "001315" Range("E1306").Value = "交野市" Range("G1306").Value = "カタノシ" Range("C1307").Value = "001316" Range("E1307").Value = "大阪狭山市" Range("G1307").Value = "オオサカサヤマシ" Range("C1308").Value = "001317" Range("E1308").Value = "阪南市" Range("G1308").Value = "ハンナンシ" Range("C1309").Value = "001318" Range("E1309").Value = "島本町" Range("G1309").Value = "シマモトチョウ" Range("C1310").Value = "001319" Range("E1310").Value = "豊能町" Range("G1310").Value = "トヨノチョウ" Range("C1311").Value = "001320" Range("E1311").Value = "能勢町" Range("G1311").Value = "ノセチョウ" Range("C1312").Value = "001321" Range("E1312").Value = "忠岡町" Range("G1312").Value = "タダオカチョウ" Range("C1313").Value = "001322" Range("E1313").Value = "熊取町" Range("G1313").Value = "クマトリチョウ" Range("C1314").Value = "001323" Range("E1314").Value = "田尻町" Range("G1314").Value = "タジリチョウ" Range("C1315").Value = "001324" Range("E1315").Value = "岬町" Range("G1315").Value = "ミサキチョウ" Range("C1316").Value = "001325" Range("E1316,E1365").Value = "太子町" Range("G1316,G1365").Value = "タイシチョウ" Range("C1317").Value = "001326" Range("E1317").Value = "河南町" Range("G1317").Value = "カナンチョウ" Range("C1318").Value = "001327" Range("E1318").Value = "千早赤阪村" Range("G1318").Value = "チハヤアカサカムラ" Range("C1319").Value = "001328" Range("F1319:F1369").Value = "ヒョウゴケン" Range("C1320").Value = "001329" Range("E1320").Value = "神戸市" Range("G1320").Value = "コウベシ" Range("C1321").Value = "001330" Range("E1321").Value = "神戸市東灘区" Range("G1321").Value = "こうべしひがしなだく" Range("C1322").Value = "001331" Range("E1322").Value = "神戸市灘区" Range("G1322").Value = "こうべしなだく" Range("C1323").Value = "001332" Range("E1323").Value = "神戸市兵庫区" Range("G1323").Value = "こうべしひょうごく" Range("C1324").Value = "001333" Range("E1324").Value = "神戸市長田区" Range("G1324").Value = "こうべしながたく" Range("C1325").Value = "001334" Range("E1325").Value = "神戸市須磨区" Range("G1325").Value = "こうべしすまく" Range("C1326").Value = "001335" Range("E1326").Value = "神戸市垂水区" Range("G1326").Value = "こうべしたるみく" Range("C1327").Value = "001336" Range("E1327").Value = "神戸市北区" Range("G1327").Value = "こうべしきたく" Range("C1328").Value = "001337" Range("E1328").Value = "神戸市中央区" Range("G1328").Value = "こうべしちゅうおうく" Range("C1329").Value = "001338" Range("E1329").Value = "神戸市西区" Range("G1329").Value = "こうべしにしく" Range("C1330").Value = "001339" Range("E1330").Value = "姫路市" Range("G1330").Value = "ヒメジシ" Range("C1331").Value = "001340" Range("E1331").Value = "尼崎市" Range("G1331").Value = "アマガサキシ" Range("C1332").Value = "001341" Range("E1332").Value = "明石市" Range("G1332").Value = "アカシシ" Range("C1333").Value = "001342" Range("E1333").Value = "西宮市" Range("G1333").Value = "ニシノミヤシ" Range("C1334").Value = "001343" Range("E1334").Value = "洲本市" Range("G1334").Value = "スモトシ" Range("C1335").Value = "001344" Range("E1335").Value = "芦屋市" Range("G1335").Value = "アシヤシ" Range("C1336").Value = "001345" Range("E1336").Value = "伊丹市" Range("G1336").Value = "イタミシ" Range("C1337").Value = "001346" Range("E1337").Value = "相生市" Range("G1337").Value = "アイオイシ" Range("C1338").Value = "001347" Range("E1338").Value = "豊岡市" Range("G1338").Value = "トヨオカシ" Range("C1339").Value = "001348" Range("E1339").Value = "加古川市" Range("G1339").Value = "カコガワシ" Range("C1340").Value = "001349" Range("E1340").Value = "赤穂市" Range("G1340").Value = "アコウシ" Range("C1341").Value = "001350" Range("E1341").Value = "西脇市" Range("G1341").Value = "ニシワキシ" Range("C1342").Value = "001351" Range("E1342").Value = "宝塚市" Range("G1342").Value = "タカラヅカシ" Range("C1343").Value = "001352" Range("E1343").Value = "三木市" Range("G1343").Value = "ミキシ" Range("C1344").Value = "001353" Range("E1344").Value = "高砂市" Range("G1344").Value = "タカサゴシ" Range("C1345").Value = "001354" Range("E1345").Value = "川西市" Range("G1345").Value = "カワニシシ" Range("C1346").Value = "001355" Range("E1346").Value = "小野市" Range("G1346").Value = "オノシ" Range("C1347").Value = "001356" Range("E1347").Value = "三田市" Range("G1347").Value = "サンダシ" Range("C1348").Value = "001357" Range("E1348").Value = "加西市" Range("G1348").Value = "カサイシ" Range("C1349").Value = "001358" Range("E1349").Value = "篠山市" Range("G1349").Value = "ササヤマシ" Range("C1350").Value = "001359" Range("E1350").Value = "養父市" Range("G1350").Value = "ヤブシ" Range("C1351").Value = "001360" Range("E1351").Value = "丹波市" Range("G1351").Value = "タンバシ" Range("C1352").Value = "001361" Range("E1352").Value = "南あわじ市" Range("G1352").Value = "ミナミアワジシ" Range("C1353").Value = "001362" Range("E1353").Value = "朝来市" Range("G1353").Value = "アサゴシ" Range("C1354").Value = "001363" Range("E1354").Value = "淡路市" Range("G1354").Value = "アワジシ" Range("C1355").Value = "001364" Range("E1355").Value = "宍粟市" Range("G1355").Value = "シソウシ" Range("C1356").Value = "001365" Range("E1356").Value = "加東市" Range("G1356").Value = "カトウシ" Range("C1357").Value = "001366" Range("E1357").Value = "たつの市" Range("G1357").Value = "タツノシ" Range("C1358").Value = "001367" Range("E1358").Value = "猪名川町" Range("G1358").Value = "イナガワチョウ" Range("C1359").Value = "001368" Range("E1359").Value = "多可町" Range("G1359").Value = "タカチョウ" Range("C1360").Value = "001369" Range("E1360").Value = "稲美町" Range("G1360,G1430").Value = "イナミチョウ" Range("C1361").Value = "001370" Range("E1361").Value = "播磨町" Range("G1361").Value = "ハリマチョウ" Range("C1362").Value = "001371" Range("E1362").Value = "市川町" Range("G1362").Value = "イチカワチョウ" Range("C1363").Value = "001372" Range("E1363").Value = "福崎町" Range("G1363").Value = "フクサキチョウ" Range("C1364").Value = "001373" Range("E1364").Value = "神河町" Range("C1365").Value = "001374" Range("C1366").Value = "001375" Range("E1366").Value = "上郡町" Range("G1366").Value = "カミゴオリチョウ" Range("C1367").Value = "001376" Range("E1367").Value = "佐用町" Range("G1367").Value = "サヨウチョウ" Range("C1368").Value = "001377" Range("E1368").Value = "香美町" Range("G1368").Value = "カミチョウ" Range("C1369").Value = "001378" Range("E1369").Value = "新温泉町" Range("G1369").Value = "シンオンセンチョウ" Range("C1370").Value = "001379" Range("F1370:F1409").Value = "ナラケン" Range("C1371").Value = "001380" Range("E1371").Value = "奈良市" Range("G1371").Value = "ナラシ" Range("C1372").Value = "001381" Range("E1372").Value = "大和高田市" Range("G1372").Value = "ヤマトタカダシ" Range("C1373").Value = "001382" Range("E1373").Value = "大和郡山市" Range("G1373").Value = "ヤマトコオリヤマシ" Range("C1374").Value = "001383" Range("E1374").Value = "天理市" Range("G1374").Value = "テンリシ" Range("C1375").Value = "001384" Range("E1375").Value = "橿原市" Range("G1375").Value = "カシハラシ" Range("C1376").Value = "001385" Range("E1376").Value = "桜井市" Range("G1376").Value = "サクライシ" Range("C1377").Value = "001386" Range("E1377").Value = "五條市" Range("G1377").Value = "ゴジョウシ" Range("C1378").Value = "001387" Range("E1378").Value = "御所市" Range("G1378").Value = "ゴセシ" Range("C1379").Value = "001388" Range("E1379").Value = "生駒市" Range("G1379").Value = "イコマシ" Range("C1380").Value = "001389" Range("E1380").Value = "香芝市" Range("G1380").Value = "カシバシ" Range("C1381").Value = "001390" Range("E1381").Value = "葛城市" Range("G1381").Value = "カツラギシ" Range("C1382").Value = "001391" Range("E1382").Value = "宇陀市" Range("G1382").Value = "ウダシ" Range("C1383").Value = "001392" Range("E1383").Value = "山添村" Range("G1383").Value = "ヤマゾエムラ" Range("C1384").Value = "001393" Range("E1384").Value = "平群町" Range("G1384").Value = "ヘグリチョウ" Range("C1385").Value = "001394" Range("E1385").Value = "三郷町" Range("G1385").Value = "サンゴウチョウ" Range("C1386").Value = "001395" Range("E1386").Value = "斑鳩町" Range("G1386").Value = "イカルガチョウ" Range("C1387").Value = "001396" Range("E1387").Value = "安堵町" Range("G1387").Value = "アンドチョウ" Range("C1388").Value = "001397" Range("G1388").Value = "カワニシチョウ" Range("C1389").Value = "001398" Range("E1389").Value = "三宅町" Range("G1389").Value = "ミヤケチョウ" Range("C1390").Value = "001399" Range("E1390").Value = "田原本町" Range("G1390").Value = "タワラモトチョウ" Range("C1391").Value = "001400" Range("E1391").Value = "曽爾村" Range("G1391").Value = "ソニムラ" Range("C1392").Value = "001401" Range("E1392").Value = "御杖村" Range("G1392").Value = "ミツエムラ" Range("C1393").Value = "001402" Range("E1393").Value = "高取町" Range("G1393").Value = "タカトリチョウ" Range("C1394").Value = "001403" Range("E1394").Value = "明日香村" Range("G1394").Value = "アスカムラ" Range("C1395").Value = "001404" Range("E1395").Value = "上牧町" Range("G1395").Value = "カンマキチョウ" Range("C1396").Value = "001405" Range("E1396").Value = "王寺町" Range("G1396").Value = "オウジチョウ" Range("C1397").Value = "001406" Range("E1397").Value = "広陵町" Range("G1397").Value = "コウリヨウチョウ" Range("C1398").Value = "001407" Range("E1398").Value = "河合町" Range("G1398").Value = "カワイチョウ" Range("C1399").Value = "001408" Range("E1399").Value = "吉野町" Range("G1399").Value = "ヨシノチョウ" Range("C1400").Value = "001409" Range("E1400").Value = "大淀町" Range("G1400").Value = "オオヨドチョウ" Range("C1401").Value = "001410" Range("E1401").Value = "下市町" Range("G1401").Value = "シモイチチョウ" Range("C1402").Value = "001411" Range("E1402").Value = "黒滝村" Range("G1402").Value = "クロタキムラ" Range("C1403").Value = "001412" Range("E1403").Value = "天川村" Range("G1403").Value = "テンカワムラ" Range("C1404").Value = "001413" Range("E1404").Value = "野迫川村" Range("G1404").Value = "ノセガワムラ" Range("C1405").Value = "001414" Range("E1405").Value = "十津川村" Range("G1405").Value = "トツカワムラ" Range("C1406").Value = "001415" Range("E1406").Value = "下北山村" Range("G1406").Value = "シモキタヤマムラ" Range("C1407").Value = "001416" Range("E1407").Value = "上北山村" Range("G1407").Value = "カミキタヤマムラ" Range("C1408").Value = "001417" Range("C1409").Value = "001418" Range("E1409").Value = "東吉野村" Range("G1409").Value = "ヒガシヨシノムラ" Range("C1410").Value = "001419" Range("F1410:F1440").Value = "ワカヤマケン" Range("C1411").Value = "001420" Range("E1411").Value = "和歌山市" Range("G1411").Value = "ワカヤマシ" Range("C1412").Value = "001421" Range("E1412").Value = "海南市" Range("G1412").Value = "カイナンシ" Range("C1413").Value = "001422" Range("E1413").Value = "橋本市" Range("G1413").Value = "ハシモトシ" Range("C1414").Value = "001423" Range("E1414").Value = "有田市" Range("G1414").Value = "アリダシ" Range("C1415").Value = "001424" Range("E1415").Value = "御坊市" Range("G1415").Value = "ゴボウシ" Range("C1416").Value = "001425" Range("E1416").Value = "田辺市" Range("G1416").Value = "タナベシ" Range("C1417").Value = "001426" Range("E1417").Value = "新宮市" Range("G1417").Value = "シングウシ" Range("C1418").Value = "001427" Range("E1418").Value = "紀の川市" Range("G1418").Value = "キノカワシ" Range("C1419").Value = "001428" Range("E1419").Value = "岩出市" Range("G1419").Value = "イワデシ" Range("C1420").Value = "001429" Range("E1420").Value = "紀美野町" Range("G1420").Value = "キミノチョウ" Range("C1421").Value = "001430" Range("E1421").Value = "かつらぎ町" Range("G1421").Value = "カツラギチョウ" Range("C1422").Value = "001431" Range("E1422").Value = "九度山町" Range("G1422").Value = "クドヤマチョウ" Range("C1423").Value = "001432" Range("E1423").Value = "高野町" Range("G1423").Value = "コウヤチョウ" Range("C1424").Value = "001433" Range("E1424").Value = "湯浅町" Range("G1424").Value = "ユアサチョウ" Range("C1425").Value = "001434" Range("E1425").Value = "広川町" Range("G1425").Value = "ヒロガワチョウ" Range("C1426").Value = "001435" Range("E1426").Value = "有田川町" Range("G1426").Value = "アリダガワチョウ" Range("C1427").Value = "001436" Range("C1428").Value = "001437" Range("C1429").Value = "001438" Range("E1429").Value = "由良町" Range("G1429").Value = "ユラチョウ" Range("C1430").Value = "001439" Range("E1430").Value = "印南町" Range("C1431").Value = "001440" Range("E1431").Value = "みなべ町" Range("G1431").Value = "ミナベチョウ" Range("C1432").Value = "001441" Range("E1432").Value = "日高川町" Range("G1432").Value = "ヒダカガワチョウ" Range("C1433").Value = "001442" Range("E1433").Value = "白浜町" Range("G1433").Value = "シラハマチョウ" Range("C1434").Value = "001443" Range("E1434").Value = "上富田町" Range("G1434").Value = "カミトンダチョウ" Range("C1435").Value = "001444" Range("E1435").Value = "すさみ町" Range("G1435").Value = "スサミチョウ" Range("C1436").Value = "001445" Range("E1436").Value = "那智勝浦町" Range("G1436").Value = "ナチカツウラチョウ" Range("C1437").Value = "001446" Range("E1437").Value = "太地町" Range("G1437").Value = "タイジチョウ" Range("C1438").Value = "001447" Range("E1438").Value = "古座川町" Range("G1438").Value = "コザガワチョウ" Range("C1439").Value = "001448" Range("E1439").Value = "北山村" Range("G1439").Value = "キタヤマムラ" Range("C1440").Value = "001449" Range("E1440").Value = "串本町" Range("G1440").Value = "クシモトチョウ"
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理 Range("A1:A49,C1:G1,C2:D2,F2,C3:G191,C192:D192,F192,C193:G232,C233:D233,F233").NumberFormatLocal = "@" Range("C234:G266,C267:D267,F267,C268:G307,C308:D308,F308,C309:G333,C334:D334,F334,C335:G369").NumberFormatLocal = "@" Range("C370:D370,F370,C371:G429,C430:D430,F430,C431:G474,C475:D475,F475,C476:G500,C501:D501").NumberFormatLocal = "@" Range("F501,C502:G536,C537:D537,F537,C538:G538,C539:D548,F539:G548,C549:G610,C611:D611,F611").NumberFormatLocal = "@" Range("C612:G612,C613:D618,F613:G618,C619:G671,C672:D672,F672,C673:G734,I701,C735:D735,F735").NumberFormatLocal = "@" Range("C736:G796,C797:D797,F797,C798:G835,C836:D836,F836,C837:G851,C852:D852,F852,C853:G871").NumberFormatLocal = "@" Range("C872:D872,F872,C873:G889,C890:D890,F890,C891:G917,C918:D918,F918,C919:G995,C996:D996").NumberFormatLocal = "@" Range("F996,C997:G1038,C1039:D1039,F1039,C1040:G1084,C1085:D1085,F1085,C1086:G1086,C1087:D1102,F1087:G1102").NumberFormatLocal = "@" Range("C1103:G1155,C1156:D1156,F1156,C1157:G1185,C1186:D1186,F1186,C1187:G1205,C1206:D1206,F1206,C1207:G1243").NumberFormatLocal = "@" Range("C1244:D1244,F1244,C1245:G1318,C1319:D1319,F1319,C1320:G1369,C1370:D1370,F1370,C1371:G1409,C1410:D1410").NumberFormatLocal = "@" Range("F1410,C1411:G1440").NumberFormatLocal = "@"
Rem 塗りつぶしセルをまとめて処理 Range("A1,C1:G1").Interior.ColorIndex = 24 Range("C2:G2,A3:A49,C192:G192,C233:G233,C267:G267,C308:G308,C334:G334,C370:G370").Interior.ColorIndex = 6 Range("C430:G430,C475:G475,C501:G501,C537:G537,C611:G611,C672:G672,C735:G735,C797:G797").Interior.ColorIndex = 6 Range("C836:G836,C852:G852,C872:G872,C890:G890,C918:G918,C996:G996,C1039:G1039,C1085:G1085").Interior.ColorIndex = 6 Range("C1156:G1156,C1186:G1186,C1206:G1206,C1244:G1244,C1319:G1319,C1370:G1370,C1410:G1410").Interior.ColorIndex = 6
Rem 列幅をまとめて処理 Range("A1:A1440,D1:D1440").ColumnWidth = 12.25 Range("B1:B1440,H1:I1440").ColumnWidth = 8.38 Range("C1:C1440").ColumnWidth = 11 Range("E1:E1440").ColumnWidth = 16.63 Range("F1:F1440").ColumnWidth = 12.13 Range("G1:G1440").ColumnWidth = 28.13
Rem 行高さをまとめて処理 Range("A1:I1").RowHeight = 28.5 Range("A2:I1440").RowHeight = 13.5 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/20(水) 10:08
(隠居じーさん) 2019/02/20(水) 10:25
■情報入力シートの転記処理部分(こちらはツール実行できておりますが、念のため)
.Range("A" & i).Value = sh2.Range("B2").Value 'マスタ(管理)より管理者コードを取得する必要あり ' .Range("B" & i).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & i).Value = wb.Name
.Range("D" & i).Value = sh2.Range("B2").Value
.Range("E" & i).Value = sh2.Range("F2").Value
.Range("F" & i).Value = sh2.Range("G2").Value
.Range("G" & i).Value = sh2.Range("I2").Value
.Range("H" & i).Value = sh2.Range("L2").Value
.Range("J" & i).Value = sh2.Range("B4").Value .Range("K" & i).Value = sh2.Range("F4").Value .Range("L" & i).Value = sh2.Range("L4").Value .Range("M" & i).Value = sh2.Range("B5").Value .Range("N" & i).Value = sh2.Range("C5").Value .Range("O" & i).Value = sh2.Range("D5").Value .Range("P" & i).Value = sh2.Range("L5").Value
'緯度、経度 .Range("Q" & i).Value = sh2.Range("B6").Value .Range("R" & i).Value = sh2.Range("E6").Value
.Range("S" & i).Value = sh2.Range("H6").Value .Range("T" & i).Value = sh2.Range("B8").Value .Range("U" & i).Value = sh2.Range("F8").Value .Range("V" & i).Value = sh2.Range("K8").Value
.Range("W" & i).Value = sh2.Range("B9").Value .Range("X" & i).Value = sh2.Range("F9").Value .Range("Y" & i).Value = sh2.Range("K9").Value .Range("Z" & i).Value = sh2.Range("B10").Value .Range("AA" & i).Value = sh2.Range("C10").Value
.Range("AB" & i).Value = sh2.Range("F10").Value .Range("AC" & i).Value = sh2.Range("G10").Value .Range("AD" & i).Value = sh2.Range("H10").Value
.Range("AE" & i).Value = sh2.Range("K10").Value .Range("AF" & i).Value = sh2.Range("L10").Value .Range("AG" & i).Value = sh2.Range("B11").Value .Range("AH" & i).Value = sh2.Range("C11").Value .Range("AI" & i).Value = sh2.Range("F11").Value .Range("AJ" & i).Value = sh2.Range("G11").Value .Range("AK" & i).Value = sh2.Range("K11").Value .Range("AL" & i).Value = sh2.Range("L11").Value .Range("AM" & i).Value = sh2.Range("B12").Value .Range("AN" & i).Value = sh2.Range("C12").Value .Range("AO" & i).Value = sh2.Range("F12").Value .Range("AP" & i).Value = sh2.Range("G12").Value .Range("AQ" & i).Value = sh2.Range("K12").Value
.Range("AR" & i).Value = sh2.Range("B14").Value .Range("AS" & i).Value = sh2.Range("E14").Value .Range("AT" & i).Value = sh2.Range("H14").Value .Range("AU" & i).Value = sh2.Range("L14").Value
.Range("AV" & i).Value = sh2.Range("B15").Value .Range("AW" & i).Value = sh2.Range("E15").Value .Range("AX" & i).Value = sh2.Range("H15").Value .Range("AY" & i).Value = sh2.Range("L15").Value
.Range("AZ" & i).Value = sh2.Range("B16").Value .Range("BA" & i).Value = sh2.Range("E16").Value .Range("BB" & i).Value = sh2.Range("H16").Value .Range("BC" & i).Value = sh2.Range("L16").Value .Range("BD" & i).Value = sh2.Range("B18").Value .Range("BE" & i).Value = sh2.Range("E18").Value '
.Range("BF" & i).Value = sh2.Range("H18").Value .Range("BG" & i).Value = sh2.Range("I18").Value .Range("BH" & i).Value = sh2.Range("J18").Value .Range("BI" & i).Value = sh2.Range("L18").Value .Range("BJ" & i).Value = sh2.Range("M18").Value .Range("BK" & i).Value = sh2.Range("N18").Value
.Range("BL" & i).Value = sh2.Range("B19").Value .Range("BM" & i).Value = sh2.Range("E19").Value .Range("BN" & i).Value = sh2.Range("L19").Value
.Range("BO" & i).Value = sh2.Range("B21").Value .Range("BP" & i).Value = sh2.Range("H21").Value
.Range("BR" & i).Value = sh2.Range("H18").Value
'市町村コードを転記する必要あり ' .Range("BS" & i) =
.Range("BT" & i).Value = sh2.Range("B5").Value & sh2.Range("C5").Value .Range("BU" & i).Value = sh2.Range("B6").Value .Range("BV" & i).Value = sh2.Range("E6").Value
End With wb.Close SaveChanges:=False End If fname = Dir() Loop Application.ScreenUpdating = True
End Sub
(f) 2019/02/20(水) 11:05
'マスタ(管理)より管理者コードを取得する必要あり
' .Range("B" & i).Value = sh2.Range("").Value
'ファイル名取得
.Range("C" & i).Value = wb.Name
.Range("D" & i).Value = sh4.Range("B2").Value
.Range("E" & i).Value = sh4.Range("F2").Value
.Range("F" & i).Value = sh4.Range("G2").Value
.Range("G" & i).Value = sh4.Range("I2").Value
.Range("H" & i).Value = sh4.Range("L2").Value
'以下結果転記 .Range("J" & i).Value = sh2.Range("D10").Value .Range("K" & i).Value = sh2.Range("E10").Value .Range("L" & i).Value = sh2.Range("F10").Value .Range("M" & i).Value = sh2.Range("G10").Value .Range("N" & i).Value = sh2.Range("H10").Value .Range("O" & i).Value = sh2.Range("I10").Value .Range("P" & i).Value = sh2.Range("J10").Value .Range("Q" & i).Value = sh2.Range("K10").Value .Range("R" & i).Value = sh2.Range("L10").Value .Range("S" & i).Value = sh2.Range("M10").Value .Range("T" & i).Value = sh2.Range("N10").Value .Range("U" & i).Value = sh2.Range("O10").Value .Range("V" & i).Value = sh2.Range("P10").Value .Range("W" & i).Value = sh2.Range("Q10").Value .Range("X" & i).Value = sh2.Range("R10").Value .Range("Y" & i).Value = sh2.Range("S10").Value .Range("Z" & i).Value = sh2.Range("T10").Value .Range("AA" & i).Value = sh2.Range("U10").Value .Range("AB" & i).Value = sh2.Range("V10").Value .Range("AC" & i).Value = sh2.Range("W10").Value .Range("AD" & i).Value = sh2.Range("X10").Value .Range("AE" & i).Value = sh2.Range("D11").Value .Range("AF" & i).Value = sh2.Range("E11").Value .Range("AG" & i).Value = sh2.Range("F11").Value .Range("AH" & i).Value = sh2.Range("G11").Value .Range("AI" & i).Value = sh2.Range("H11").Value .Range("AJ" & i).Value = sh2.Range("I11").Value .Range("AK" & i).Value = sh2.Range("J11").Value .Range("AL" & i).Value = sh2.Range("K11").Value .Range("AM" & i).Value = sh2.Range("L11").Value .Range("AN" & i).Value = sh2.Range("M11").Value .Range("AO" & i).Value = sh2.Range("N11").Value .Range("AP" & i).Value = sh2.Range("O11").Value .Range("AQ" & i).Value = sh2.Range("P11").Value .Range("AR" & i).Value = sh2.Range("Q11").Value .Range("AS" & i).Value = sh2.Range("R11").Value .Range("AT" & i).Value = sh2.Range("S11").Value .Range("AU" & i).Value = sh2.Range("T11").Value .Range("AV" & i).Value = sh2.Range("U11").Value .Range("AW" & i).Value = sh2.Range("V11").Value .Range("AX" & i).Value = sh2.Range("W11").Value .Range("AY" & i).Value = sh2.Range("X11").Value .Range("AZ" & i).Value = sh2.Range("D12").Value .Range("BA" & i).Value = sh2.Range("E12").Value .Range("BB" & i).Value = sh2.Range("F12").Value .Range("BC" & i).Value = sh2.Range("G12").Value .Range("BD" & i).Value = sh2.Range("H12").Value .Range("BE" & i).Value = sh2.Range("I12").Value .Range("BF" & i).Value = sh2.Range("J12").Value .Range("BG" & i).Value = sh2.Range("K12").Value .Range("BH" & i).Value = sh2.Range("L12").Value .Range("BI" & i).Value = sh2.Range("M12").Value .Range("BJ" & i).Value = sh2.Range("N12").Value .Range("BK" & i).Value = sh2.Range("O12").Value .Range("BL" & i).Value = sh2.Range("P12").Value .Range("BM" & i).Value = sh2.Range("Q12").Value .Range("BN" & i).Value = sh2.Range("R12").Value .Range("BO" & i).Value = sh2.Range("S12").Value .Range("BP" & i).Value = sh2.Range("T12").Value .Range("BQ" & i).Value = sh2.Range("U12").Value .Range("BR" & i).Value = sh2.Range("V12").Value .Range("BS" & i).Value = sh2.Range("W12").Value .Range("BT" & i).Value = sh2.Range("X12").Value .Range("BU" & i).Value = sh2.Range("D13").Value .Range("BV" & i).Value = sh2.Range("E13").Value .Range("BW" & i).Value = sh2.Range("F13").Value .Range("BX" & i).Value = sh2.Range("G13").Value .Range("BY" & i).Value = sh2.Range("H13").Value .Range("BZ" & i).Value = sh2.Range("I13").Value .Range("CA" & i).Value = sh2.Range("J13").Value .Range("CB" & i).Value = sh2.Range("K13").Value .Range("CC" & i).Value = sh2.Range("L13").Value .Range("CD" & i).Value = sh2.Range("M13").Value .Range("CE" & i).Value = sh2.Range("N13").Value .Range("CF" & i).Value = sh2.Range("O13").Value .Range("CG" & i).Value = sh2.Range("P13").Value .Range("CH" & i).Value = sh2.Range("Q13").Value .Range("CI" & i).Value = sh2.Range("R13").Value .Range("CJ" & i).Value = sh2.Range("S13").Value .Range("CK" & i).Value = sh2.Range("T13").Value .Range("CL" & i).Value = sh2.Range("U13").Value .Range("CM" & i).Value = sh2.Range("V13").Value .Range("CN" & i).Value = sh2.Range("W13").Value .Range("CO" & i).Value = sh2.Range("X13").Value .Range("CP" & i).Value = sh2.Range("D14").Value .Range("CQ" & i).Value = sh2.Range("E14").Value .Range("CR" & i).Value = sh2.Range("F14").Value .Range("CS" & i).Value = sh2.Range("G14").Value .Range("CT" & i).Value = sh2.Range("H14").Value .Range("CU" & i).Value = sh2.Range("I14").Value .Range("CV" & i).Value = sh2.Range("J14").Value .Range("CW" & i).Value = sh2.Range("K14").Value .Range("CX" & i).Value = sh2.Range("L14").Value .Range("CY" & i).Value = sh2.Range("M14").Value .Range("CZ" & i).Value = sh2.Range("N14").Value .Range("DA" & i).Value = sh2.Range("O14").Value .Range("DB" & i).Value = sh2.Range("P14").Value .Range("DC" & i).Value = sh2.Range("Q14").Value .Range("DD" & i).Value = sh2.Range("R14").Value .Range("DE" & i).Value = sh2.Range("S14").Value .Range("DF" & i).Value = sh2.Range("T14").Value .Range("DG" & i).Value = sh2.Range("U14").Value .Range("DH" & i).Value = sh2.Range("V14").Value .Range("DI" & i).Value = sh2.Range("W14").Value .Range("DJ" & i).Value = sh2.Range("X14").Value .Range("DK" & i).Value = sh2.Range("D15").Value .Range("DL" & i).Value = sh2.Range("E15").Value .Range("DM" & i).Value = sh2.Range("F15").Value .Range("DN" & i).Value = sh2.Range("G15").Value .Range("DO" & i).Value = sh2.Range("H15").Value .Range("DP" & i).Value = sh2.Range("I15").Value .Range("DQ" & i).Value = sh2.Range("J15").Value .Range("DR" & i).Value = sh2.Range("K15").Value .Range("DS" & i).Value = sh2.Range("L15").Value .Range("DT" & i).Value = sh2.Range("M15").Value .Range("DU" & i).Value = sh2.Range("N15").Value .Range("DV" & i).Value = sh2.Range("O15").Value .Range("DW" & i).Value = sh2.Range("P15").Value .Range("DX" & i).Value = sh2.Range("Q15").Value .Range("DY" & i).Value = sh2.Range("R15").Value .Range("DZ" & i).Value = sh2.Range("S15").Value .Range("EA" & i).Value = sh2.Range("T15").Value .Range("EB" & i).Value = sh2.Range("U15").Value .Range("EC" & i).Value = sh2.Range("V15").Value .Range("ED" & i).Value = sh2.Range("W15").Value .Range("EE" & i).Value = sh2.Range("X15").Value .Range("EF" & i).Value = sh2.Range("D16").Value .Range("EG" & i).Value = sh2.Range("E16").Value .Range("EH" & i).Value = sh2.Range("F16").Value .Range("EI" & i).Value = sh2.Range("G16").Value .Range("EJ" & i).Value = sh2.Range("H16").Value .Range("EK" & i).Value = sh2.Range("I16").Value .Range("EL" & i).Value = sh2.Range("J16").Value .Range("EM" & i).Value = sh2.Range("K16").Value .Range("EN" & i).Value = sh2.Range("L16").Value .Range("EO" & i).Value = sh2.Range("M16").Value .Range("EP" & i).Value = sh2.Range("N16").Value .Range("EQ" & i).Value = sh2.Range("O16").Value .Range("ER" & i).Value = sh2.Range("P16").Value .Range("ES" & i).Value = sh2.Range("Q16").Value .Range("ET" & i).Value = sh2.Range("R16").Value .Range("EU" & i).Value = sh2.Range("S16").Value .Range("EV" & i).Value = sh2.Range("T16").Value .Range("EW" & i).Value = sh2.Range("U16").Value .Range("EX" & i).Value = sh2.Range("V16").Value .Range("EY" & i).Value = sh2.Range("W16").Value .Range("EZ" & i).Value = sh2.Range("X16").Value .Range("FA" & i).Value = sh2.Range("D17").Value .Range("FB" & i).Value = sh2.Range("E17").Value .Range("FC" & i).Value = sh2.Range("F17").Value .Range("FD" & i).Value = sh2.Range("G17").Value .Range("FE" & i).Value = sh2.Range("H17").Value .Range("FF" & i).Value = sh2.Range("I17").Value .Range("FG" & i).Value = sh2.Range("J17").Value .Range("FH" & i).Value = sh2.Range("K17").Value .Range("FI" & i).Value = sh2.Range("L17").Value .Range("FJ" & i).Value = sh2.Range("M17").Value .Range("FK" & i).Value = sh2.Range("N17").Value .Range("FL" & i).Value = sh2.Range("O17").Value .Range("FM" & i).Value = sh2.Range("P17").Value .Range("FN" & i).Value = sh2.Range("Q17").Value .Range("FO" & i).Value = sh2.Range("R17").Value .Range("FP" & i).Value = sh2.Range("S17").Value .Range("FQ" & i).Value = sh2.Range("T17").Value .Range("FR" & i).Value = sh2.Range("U17").Value .Range("FS" & i).Value = sh2.Range("V17").Value .Range("FT" & i).Value = sh2.Range("W17").Value .Range("FU" & i).Value = sh2.Range("X17").Value .Range("FV" & i).Value = sh2.Range("D18").Value .Range("FW" & i).Value = sh2.Range("E18").Value .Range("FX" & i).Value = sh2.Range("F18").Value .Range("FY" & i).Value = sh2.Range("G18").Value .Range("FZ" & i).Value = sh2.Range("H18").Value .Range("GA" & i).Value = sh2.Range("I18").Value .Range("GB" & i).Value = sh2.Range("J18").Value .Range("GC" & i).Value = sh2.Range("K18").Value .Range("GD" & i).Value = sh2.Range("L18").Value .Range("GE" & i).Value = sh2.Range("M18").Value .Range("GF" & i).Value = sh2.Range("N18").Value .Range("GG" & i).Value = sh2.Range("O18").Value .Range("GH" & i).Value = sh2.Range("P18").Value .Range("GI" & i).Value = sh2.Range("Q18").Value .Range("GJ" & i).Value = sh2.Range("R18").Value .Range("GK" & i).Value = sh2.Range("S18").Value .Range("GL" & i).Value = sh2.Range("T18").Value .Range("GM" & i).Value = sh2.Range("U18").Value .Range("GN" & i).Value = sh2.Range("V18").Value .Range("GO" & i).Value = sh2.Range("W18").Value .Range("GP" & i).Value = sh2.Range("X18").Value .Range("GQ" & i).Value = sh2.Range("D19").Value .Range("GR" & i).Value = sh2.Range("E19").Value .Range("GS" & i).Value = sh2.Range("F19").Value .Range("GT" & i).Value = sh2.Range("G19").Value .Range("GU" & i).Value = sh2.Range("H19").Value .Range("GV" & i).Value = sh2.Range("I19").Value .Range("GW" & i).Value = sh2.Range("J19").Value .Range("GX" & i).Value = sh2.Range("K19").Value .Range("GY" & i).Value = sh2.Range("L19").Value .Range("GZ" & i).Value = sh2.Range("M19").Value .Range("HA" & i).Value = sh2.Range("N19").Value .Range("HB" & i).Value = sh2.Range("O19").Value .Range("HC" & i).Value = sh2.Range("P19").Value .Range("HD" & i).Value = sh2.Range("Q19").Value .Range("HE" & i).Value = sh2.Range("R19").Value .Range("HF" & i).Value = sh2.Range("S19").Value .Range("HG" & i).Value = sh2.Range("T19").Value .Range("HH" & i).Value = sh2.Range("U19").Value .Range("HI" & i).Value = sh2.Range("V19").Value .Range("HJ" & i).Value = sh2.Range("W19").Value .Range("HK" & i).Value = sh2.Range("X19").Value .Range("HL" & i).Value = sh2.Range("D20").Value .Range("HM" & i).Value = sh2.Range("E20").Value .Range("HN" & i).Value = sh2.Range("F20").Value .Range("HO" & i).Value = sh2.Range("G20").Value .Range("HP" & i).Value = sh2.Range("H20").Value .Range("HQ" & i).Value = sh2.Range("I20").Value .Range("HR" & i).Value = sh2.Range("J20").Value .Range("HS" & i).Value = sh2.Range("K20").Value .Range("HT" & i).Value = sh2.Range("L20").Value .Range("HU" & i).Value = sh2.Range("M20").Value .Range("HV" & i).Value = sh2.Range("N20").Value .Range("HW" & i).Value = sh2.Range("O20").Value .Range("HX" & i).Value = sh2.Range("P20").Value .Range("HY" & i).Value = sh2.Range("Q20").Value .Range("HZ" & i).Value = sh2.Range("R20").Value .Range("IA" & i).Value = sh2.Range("S20").Value .Range("IB" & i).Value = sh2.Range("T20").Value .Range("IC" & i).Value = sh2.Range("U20").Value .Range("ID" & i).Value = sh2.Range("V20").Value .Range("IE" & i).Value = sh2.Range("W20").Value .Range("IF" & i).Value = sh2.Range("X20").Value .Range("IG" & i).Value = sh2.Range("D21").Value .Range("IH" & i).Value = sh2.Range("E21").Value .Range("II" & i).Value = sh2.Range("F21").Value .Range("IJ" & i).Value = sh2.Range("G21").Value .Range("IK" & i).Value = sh2.Range("H21").Value .Range("IL" & i).Value = sh2.Range("I21").Value .Range("IM" & i).Value = sh2.Range("J21").Value .Range("IN" & i).Value = sh2.Range("K21").Value .Range("IO" & i).Value = sh2.Range("L21").Value .Range("IP" & i).Value = sh2.Range("M21").Value .Range("IQ" & i).Value = sh2.Range("N21").Value .Range("IR" & i).Value = sh2.Range("O21").Value .Range("IS" & i).Value = sh2.Range("P21").Value .Range("IT" & i).Value = sh2.Range("Q21").Value .Range("IU" & i).Value = sh2.Range("R21").Value .Range("IV" & i).Value = sh2.Range("S21").Value .Range("IW" & i).Value = sh2.Range("T21").Value .Range("IX" & i).Value = sh2.Range("U21").Value .Range("IY" & i).Value = sh2.Range("V21").Value .Range("IZ" & i).Value = sh2.Range("W21").Value .Range("JA" & i).Value = sh2.Range("X21").Value .Range("JB" & i).Value = sh2.Range("Y10").Value .Range("JC" & i).Value = sh2.Range("Z10").Value .Range("JD" & i).Value = sh2.Range("D22").Value .Range("JE" & i).Value = sh2.Range("E22").Value .Range("JF" & i).Value = sh2.Range("F22").Value .Range("JG" & i).Value = sh2.Range("G22").Value .Range("JH" & i).Value = sh2.Range("H22").Value .Range("JI" & i).Value = sh2.Range("I22").Value .Range("JJ" & i).Value = sh2.Range("J22").Value .Range("JK" & i).Value = sh2.Range("K22").Value .Range("JL" & i).Value = sh2.Range("L22").Value .Range("JM" & i).Value = sh2.Range("M22").Value .Range("JN" & i).Value = sh2.Range("N22").Value .Range("JO" & i).Value = sh2.Range("O22").Value .Range("JP" & i).Value = sh2.Range("P22").Value .Range("JQ" & i).Value = sh2.Range("Q22").Value .Range("JR" & i).Value = sh2.Range("R22").Value .Range("JS" & i).Value = sh2.Range("S22").Value .Range("JT" & i).Value = sh2.Range("T22").Value .Range("JU" & i).Value = sh2.Range("U22").Value .Range("JV" & i).Value = sh2.Range("V22").Value .Range("JW" & i).Value = sh2.Range("W22").Value .Range("JX" & i).Value = sh2.Range("X22").Value .Range("JY" & i).Value = sh2.Range("D23").Value .Range("JZ" & i).Value = sh2.Range("E23").Value .Range("KA" & i).Value = sh2.Range("F23").Value .Range("KB" & i).Value = sh2.Range("G23").Value .Range("KC" & i).Value = sh2.Range("H23").Value .Range("KD" & i).Value = sh2.Range("I23").Value .Range("KE" & i).Value = sh2.Range("J23").Value .Range("KF" & i).Value = sh2.Range("K23").Value .Range("KG" & i).Value = sh2.Range("L23").Value .Range("KH" & i).Value = sh2.Range("M23").Value .Range("KI" & i).Value = sh2.Range("N23").Value .Range("KJ" & i).Value = sh2.Range("O23").Value .Range("KK" & i).Value = sh2.Range("P23").Value .Range("KL" & i).Value = sh2.Range("Q23").Value .Range("KM" & i).Value = sh2.Range("R23").Value .Range("KN" & i).Value = sh2.Range("S23").Value .Range("KO" & i).Value = sh2.Range("T23").Value .Range("KP" & i).Value = sh2.Range("U23").Value .Range("KQ" & i).Value = sh2.Range("V23").Value .Range("KR" & i).Value = sh2.Range("W23").Value .Range("KS" & i).Value = sh2.Range("X23").Value .Range("KT" & i).Value = sh2.Range("D24").Value .Range("KU" & i).Value = sh2.Range("E24").Value .Range("KV" & i).Value = sh2.Range("F24").Value .Range("KW" & i).Value = sh2.Range("G24").Value .Range("KX" & i).Value = sh2.Range("H24").Value .Range("KY" & i).Value = sh2.Range("I24").Value .Range("KZ" & i).Value = sh2.Range("J24").Value .Range("LA" & i).Value = sh2.Range("K24").Value .Range("LB" & i).Value = sh2.Range("L24").Value .Range("LC" & i).Value = sh2.Range("M24").Value .Range("LD" & i).Value = sh2.Range("N24").Value .Range("LE" & i).Value = sh2.Range("O24").Value .Range("LF" & i).Value = sh2.Range("P24").Value .Range("LG" & i).Value = sh2.Range("Q24").Value .Range("LH" & i).Value = sh2.Range("R24").Value .Range("LI" & i).Value = sh2.Range("S24").Value .Range("LJ" & i).Value = sh2.Range("T24").Value .Range("LK" & i).Value = sh2.Range("U24").Value .Range("LL" & i).Value = sh2.Range("V24").Value .Range("LM" & i).Value = sh2.Range("W24").Value .Range("LN" & i).Value = sh2.Range("X24").Value .Range("LO" & i).Value = sh2.Range("D25").Value .Range("LP" & i).Value = sh2.Range("E25").Value .Range("LQ" & i).Value = sh2.Range("F25").Value .Range("LR" & i).Value = sh2.Range("G25").Value .Range("LS" & i).Value = sh2.Range("H25").Value .Range("LT" & i).Value = sh2.Range("I25").Value .Range("LU" & i).Value = sh2.Range("J25").Value .Range("LV" & i).Value = sh2.Range("K25").Value .Range("LW" & i).Value = sh2.Range("L25").Value .Range("LX" & i).Value = sh2.Range("M25").Value .Range("LY" & i).Value = sh2.Range("N25").Value .Range("LZ" & i).Value = sh2.Range("O25").Value .Range("MA" & i).Value = sh2.Range("P25").Value .Range("MB" & i).Value = sh2.Range("Q25").Value .Range("MC" & i).Value = sh2.Range("R25").Value .Range("MD" & i).Value = sh2.Range("S25").Value .Range("ME" & i).Value = sh2.Range("T25").Value .Range("MF" & i).Value = sh2.Range("U25").Value .Range("MG" & i).Value = sh2.Range("V25").Value .Range("MH" & i).Value = sh2.Range("W25").Value .Range("MI" & i).Value = sh2.Range("X25").Value .Range("MJ" & i).Value = sh2.Range("D26").Value .Range("MK" & i).Value = sh2.Range("E26").Value .Range("ML" & i).Value = sh2.Range("F26").Value .Range("MM" & i).Value = sh2.Range("G26").Value .Range("MN" & i).Value = sh2.Range("H26").Value .Range("MO" & i).Value = sh2.Range("I26").Value .Range("MP" & i).Value = sh2.Range("J26").Value .Range("MQ" & i).Value = sh2.Range("K26").Value .Range("MR" & i).Value = sh2.Range("L26").Value .Range("MS" & i).Value = sh2.Range("M26").Value .Range("MT" & i).Value = sh2.Range("N26").Value .Range("MU" & i).Value = sh2.Range("O26").Value .Range("MV" & i).Value = sh2.Range("P26").Value .Range("MW" & i).Value = sh2.Range("Q26").Value .Range("MX" & i).Value = sh2.Range("R26").Value .Range("MY" & i).Value = sh2.Range("S26").Value .Range("MZ" & i).Value = sh2.Range("T26").Value .Range("NA" & i).Value = sh2.Range("U26").Value .Range("NB" & i).Value = sh2.Range("V26").Value .Range("NC" & i).Value = sh2.Range("W26").Value .Range("ND" & i).Value = sh2.Range("X26").Value .Range("NE" & i).Value = sh2.Range("D27").Value .Range("NF" & i).Value = sh2.Range("E27").Value .Range("NG" & i).Value = sh2.Range("F27").Value .Range("NH" & i).Value = sh2.Range("G27").Value .Range("NI" & i).Value = sh2.Range("H27").Value .Range("NJ" & i).Value = sh2.Range("I27").Value .Range("NK" & i).Value = sh2.Range("J27").Value .Range("NL" & i).Value = sh2.Range("K27").Value .Range("NM" & i).Value = sh2.Range("L27").Value .Range("NN" & i).Value = sh2.Range("M27").Value .Range("NO" & i).Value = sh2.Range("N27").Value .Range("NP" & i).Value = sh2.Range("O27").Value .Range("NQ" & i).Value = sh2.Range("P27").Value .Range("NR" & i).Value = sh2.Range("Q27").Value .Range("NS" & i).Value = sh2.Range("R27").Value .Range("NT" & i).Value = sh2.Range("S27").Value .Range("NU" & i).Value = sh2.Range("T27").Value .Range("NV" & i).Value = sh2.Range("U27").Value .Range("NW" & i).Value = sh2.Range("V27").Value .Range("NX" & i).Value = sh2.Range("W27").Value .Range("NY" & i).Value = sh2.Range("X27").Value .Range("NZ" & i).Value = sh2.Range("Y22").Value .Range("OA" & i).Value = sh2.Range("Z22").Value .Range("OB" & i).Value = sh2.Range("D28").Value .Range("OC" & i).Value = sh2.Range("E28").Value .Range("OD" & i).Value = sh2.Range("F28").Value .Range("OE" & i).Value = sh2.Range("G28").Value .Range("OF" & i).Value = sh2.Range("H28").Value .Range("OG" & i).Value = sh2.Range("I28").Value .Range("OH" & i).Value = sh2.Range("J28").Value .Range("OI" & i).Value = sh2.Range("K28").Value .Range("OJ" & i).Value = sh2.Range("L28").Value .Range("OK" & i).Value = sh2.Range("M28").Value .Range("OL" & i).Value = sh2.Range("N28").Value .Range("OM" & i).Value = sh2.Range("O28").Value .Range("ON" & i).Value = sh2.Range("P28").Value .Range("OO" & i).Value = sh2.Range("Q28").Value .Range("OP" & i).Value = sh2.Range("R28").Value .Range("OQ" & i).Value = sh2.Range("S28").Value .Range("OR" & i).Value = sh2.Range("T28").Value .Range("OS" & i).Value = sh2.Range("U28").Value .Range("OT" & i).Value = sh2.Range("V28").Value .Range("OU" & i).Value = sh2.Range("W28").Value .Range("OV" & i).Value = sh2.Range("X28").Value .Range("OW" & i).Value = sh2.Range("D29").Value .Range("OX" & i).Value = sh2.Range("E29").Value .Range("OY" & i).Value = sh2.Range("F29").Value .Range("OZ" & i).Value = sh2.Range("G29").Value .Range("PA" & i).Value = sh2.Range("H29").Value .Range("PB" & i).Value = sh2.Range("I29").Value .Range("PC" & i).Value = sh2.Range("J29").Value .Range("PD" & i).Value = sh2.Range("K29").Value .Range("PE" & i).Value = sh2.Range("L29").Value .Range("PF" & i).Value = sh2.Range("M29").Value .Range("PG" & i).Value = sh2.Range("N29").Value .Range("PH" & i).Value = sh2.Range("O29").Value .Range("PI" & i).Value = sh2.Range("P29").Value .Range("PJ" & i).Value = sh2.Range("Q29").Value .Range("PK" & i).Value = sh2.Range("R29").Value .Range("PL" & i).Value = sh2.Range("S29").Value .Range("PM" & i).Value = sh2.Range("T29").Value .Range("PN" & i).Value = sh2.Range("U29").Value .Range("PO" & i).Value = sh2.Range("V29").Value .Range("PP" & i).Value = sh2.Range("W29").Value .Range("PQ" & i).Value = sh2.Range("X29").Value .Range("PR" & i).Value = sh2.Range("D30").Value .Range("PS" & i).Value = sh2.Range("E30").Value .Range("PT" & i).Value = sh2.Range("F30").Value .Range("PU" & i).Value = sh2.Range("G30").Value .Range("PV" & i).Value = sh2.Range("H30").Value .Range("PW" & i).Value = sh2.Range("I30").Value .Range("PX" & i).Value = sh2.Range("J30").Value .Range("PY" & i).Value = sh2.Range("K30").Value .Range("PZ" & i).Value = sh2.Range("L30").Value .Range("QA" & i).Value = sh2.Range("M30").Value .Range("QB" & i).Value = sh2.Range("N30").Value .Range("QC" & i).Value = sh2.Range("O30").Value .Range("QD" & i).Value = sh2.Range("P30").Value .Range("QE" & i).Value = sh2.Range("Q30").Value .Range("QF" & i).Value = sh2.Range("R30").Value .Range("QG" & i).Value = sh2.Range("S30").Value .Range("QH" & i).Value = sh2.Range("T30").Value .Range("QI" & i).Value = sh2.Range("U30").Value .Range("QJ" & i).Value = sh2.Range("V30").Value .Range("QK" & i).Value = sh2.Range("W30").Value .Range("QL" & i).Value = sh2.Range("X30").Value .Range("QM" & i).Value = sh2.Range("D31").Value .Range("QN" & i).Value = sh2.Range("E31").Value .Range("QO" & i).Value = sh2.Range("F31").Value .Range("QP" & i).Value = sh2.Range("G31").Value .Range("QQ" & i).Value = sh2.Range("H31").Value .Range("QR" & i).Value = sh2.Range("I31").Value .Range("QS" & i).Value = sh2.Range("J31").Value .Range("QT" & i).Value = sh2.Range("K31").Value .Range("QU" & i).Value = sh2.Range("L31").Value .Range("QV" & i).Value = sh2.Range("M31").Value .Range("QW" & i).Value = sh2.Range("N31").Value .Range("QX" & i).Value = sh2.Range("O31").Value .Range("QY" & i).Value = sh2.Range("P31").Value .Range("QZ" & i).Value = sh2.Range("Q31").Value .Range("RA" & i).Value = sh2.Range("R31").Value .Range("RB" & i).Value = sh2.Range("S31").Value .Range("RC" & i).Value = sh2.Range("T31").Value .Range("RD" & i).Value = sh2.Range("U31").Value .Range("RE" & i).Value = sh2.Range("V31").Value .Range("RF" & i).Value = sh2.Range("W31").Value .Range("RG" & i).Value = sh2.Range("X31").Value .Range("RH" & i).Value = sh2.Range("D32").Value .Range("RI" & i).Value = sh2.Range("E32").Value .Range("RJ" & i).Value = sh2.Range("F32").Value .Range("RK" & i).Value = sh2.Range("G32").Value .Range("RL" & i).Value = sh2.Range("H32").Value .Range("RM" & i).Value = sh2.Range("I32").Value .Range("RN" & i).Value = sh2.Range("J32").Value .Range("RO" & i).Value = sh2.Range("K32").Value .Range("RP" & i).Value = sh2.Range("L32").Value .Range("RQ" & i).Value = sh2.Range("M32").Value .Range("RR" & i).Value = sh2.Range("N32").Value .Range("RS" & i).Value = sh2.Range("O32").Value .Range("RT" & i).Value = sh2.Range("P32").Value .Range("RU" & i).Value = sh2.Range("Q32").Value .Range("RV" & i).Value = sh2.Range("R32").Value .Range("RW" & i).Value = sh2.Range("S32").Value .Range("RX" & i).Value = sh2.Range("T32").Value .Range("RY" & i).Value = sh2.Range("U32").Value .Range("RZ" & i).Value = sh2.Range("V32").Value .Range("SA" & i).Value = sh2.Range("W32").Value .Range("SB" & i).Value = sh2.Range("X32").Value .Range("SC" & i).Value = sh2.Range("D33").Value .Range("SD" & i).Value = sh2.Range("E33").Value .Range("SE" & i).Value = sh2.Range("F33").Value .Range("SF" & i).Value = sh2.Range("G33").Value .Range("SG" & i).Value = sh2.Range("H33").Value .Range("SH" & i).Value = sh2.Range("I33").Value .Range("SI" & i).Value = sh2.Range("J33").Value .Range("SJ" & i).Value = sh2.Range("K33").Value .Range("SK" & i).Value = sh2.Range("L33").Value .Range("SL" & i).Value = sh2.Range("M33").Value .Range("SM" & i).Value = sh2.Range("N33").Value .Range("SN" & i).Value = sh2.Range("O33").Value .Range("SO" & i).Value = sh2.Range("P33").Value .Range("SP" & i).Value = sh2.Range("Q33").Value .Range("SQ" & i).Value = sh2.Range("R33").Value .Range("SR" & i).Value = sh2.Range("S33").Value .Range("SS" & i).Value = sh2.Range("T33").Value .Range("ST" & i).Value = sh2.Range("U33").Value .Range("SU" & i).Value = sh2.Range("V33").Value .Range("SV" & i).Value = sh2.Range("W33").Value .Range("SW" & i).Value = sh2.Range("X33").Value .Range("SX" & i).Value = sh2.Range("Y28").Value .Range("SY" & i).Value = sh2.Range("Z28").Value .Range("SZ" & i).Value = sh2.Range("D34").Value .Range("TA" & i).Value = sh2.Range("E34").Value .Range("TB" & i).Value = sh2.Range("F34").Value .Range("TC" & i).Value = sh2.Range("G34").Value .Range("TD" & i).Value = sh2.Range("H34").Value .Range("TE" & i).Value = sh2.Range("I34").Value .Range("TF" & i).Value = sh2.Range("J34").Value .Range("TG" & i).Value = sh2.Range("K34").Value .Range("TH" & i).Value = sh2.Range("L34").Value .Range("TI" & i).Value = sh2.Range("M34").Value .Range("TJ" & i).Value = sh2.Range("N34").Value .Range("TK" & i).Value = sh2.Range("O34").Value .Range("TL" & i).Value = sh2.Range("P34").Value .Range("TM" & i).Value = sh2.Range("Q34").Value .Range("TN" & i).Value = sh2.Range("R34").Value .Range("TO" & i).Value = sh2.Range("S34").Value .Range("TP" & i).Value = sh2.Range("T34").Value .Range("TQ" & i).Value = sh2.Range("U34").Value .Range("TR" & i).Value = sh2.Range("V34").Value .Range("TS" & i).Value = sh2.Range("W34").Value .Range("TT" & i).Value = sh2.Range("X34").Value .Range("TU" & i).Value = sh2.Range("D35").Value .Range("TV" & i).Value = sh2.Range("E35").Value .Range("TW" & i).Value = sh2.Range("F35").Value .Range("TX" & i).Value = sh2.Range("G35").Value .Range("TY" & i).Value = sh2.Range("H35").Value .Range("TZ" & i).Value = sh2.Range("I35").Value .Range("UA" & i).Value = sh2.Range("J35").Value .Range("UB" & i).Value = sh2.Range("K35").Value .Range("UC" & i).Value = sh2.Range("L35").Value .Range("UD" & i).Value = sh2.Range("M35").Value .Range("UE" & i).Value = sh2.Range("N35").Value .Range("UF" & i).Value = sh2.Range("O35").Value .Range("UG" & i).Value = sh2.Range("P35").Value .Range("UH" & i).Value = sh2.Range("Q35").Value .Range("UI" & i).Value = sh2.Range("R35").Value .Range("UJ" & i).Value = sh2.Range("S35").Value .Range("UK" & i).Value = sh2.Range("T35").Value .Range("UL" & i).Value = sh2.Range("U35").Value .Range("UM" & i).Value = sh2.Range("V35").Value .Range("UN" & i).Value = sh2.Range("W35").Value .Range("UO" & i).Value = sh2.Range("X35").Value .Range("UP" & i).Value = sh2.Range("Y34").Value .Range("UQ" & i).Value = sh2.Range("Z34").Value .Range("UR" & i).Value = sh2.Range("D36").Value .Range("US" & i).Value = sh2.Range("E36").Value .Range("UT" & i).Value = sh2.Range("F36").Value .Range("UU" & i).Value = sh2.Range("G36").Value .Range("UV" & i).Value = sh2.Range("H36").Value .Range("UW" & i).Value = sh2.Range("I36").Value .Range("UX" & i).Value = sh2.Range("J36").Value .Range("UY" & i).Value = sh2.Range("K36").Value .Range("UZ" & i).Value = sh2.Range("L36").Value .Range("VA" & i).Value = sh2.Range("M36").Value .Range("VB" & i).Value = sh2.Range("N36").Value .Range("VC" & i).Value = sh2.Range("O36").Value .Range("VD" & i).Value = sh2.Range("P36").Value .Range("VE" & i).Value = sh2.Range("Q36").Value .Range("VF" & i).Value = sh2.Range("R36").Value .Range("VG" & i).Value = sh2.Range("S36").Value .Range("VH" & i).Value = sh2.Range("T36").Value .Range("VI" & i).Value = sh2.Range("U36").Value .Range("VJ" & i).Value = sh2.Range("V36").Value .Range("VK" & i).Value = sh2.Range("W36").Value .Range("VL" & i).Value = sh2.Range("X36").Value .Range("VM" & i).Value = sh2.Range("D37").Value .Range("VN" & i).Value = sh2.Range("E37").Value .Range("VO" & i).Value = sh2.Range("F37").Value .Range("VP" & i).Value = sh2.Range("G37").Value .Range("VQ" & i).Value = sh2.Range("H37").Value .Range("VR" & i).Value = sh2.Range("I37").Value .Range("VS" & i).Value = sh2.Range("J37").Value .Range("VT" & i).Value = sh2.Range("K37").Value .Range("VU" & i).Value = sh2.Range("L37").Value .Range("VV" & i).Value = sh2.Range("M37").Value .Range("VW" & i).Value = sh2.Range("N37").Value .Range("VX" & i).Value = sh2.Range("O37").Value .Range("VY" & i).Value = sh2.Range("P37").Value .Range("VZ" & i).Value = sh2.Range("Q37").Value .Range("WA" & i).Value = sh2.Range("R37").Value .Range("WB" & i).Value = sh2.Range("S37").Value .Range("WC" & i).Value = sh2.Range("T37").Value .Range("WD" & i).Value = sh2.Range("U37").Value .Range("WE" & i).Value = sh2.Range("V37").Value .Range("WF" & i).Value = sh2.Range("W37").Value .Range("WG" & i).Value = sh2.Range("X37").Value .Range("WH" & i).Value = sh2.Range("Y36").Value .Range("WI" & i).Value = sh2.Range("Z36").Value .Range("WJ" & i).Value = sh2.Range("D38").Value .Range("WK" & i).Value = sh2.Range("E38").Value .Range("WL" & i).Value = sh2.Range("F38").Value .Range("WM" & i).Value = sh2.Range("G38").Value .Range("WN" & i).Value = sh2.Range("H38").Value .Range("WO" & i).Value = sh2.Range("I38").Value .Range("WP" & i).Value = sh2.Range("J38").Value .Range("WQ" & i).Value = sh2.Range("K38").Value .Range("WR" & i).Value = sh2.Range("L38").Value .Range("WS" & i).Value = sh2.Range("M38").Value .Range("WT" & i).Value = sh2.Range("N38").Value .Range("WU" & i).Value = sh2.Range("O38").Value .Range("WV" & i).Value = sh2.Range("P38").Value .Range("WW" & i).Value = sh2.Range("Q38").Value .Range("WX" & i).Value = sh2.Range("R38").Value .Range("WY" & i).Value = sh2.Range("S38").Value .Range("WZ" & i).Value = sh2.Range("T38").Value .Range("XA" & i).Value = sh2.Range("U38").Value .Range("XB" & i).Value = sh2.Range("V38").Value .Range("XC" & i).Value = sh2.Range("W38").Value .Range("XD" & i).Value = sh2.Range("X38").Value .Range("XE" & i).Value = sh2.Range("D39").Value .Range("XF" & i).Value = sh2.Range("E39").Value .Range("XG" & i).Value = sh2.Range("F39").Value .Range("XH" & i).Value = sh2.Range("G39").Value .Range("XI" & i).Value = sh2.Range("H39").Value .Range("XJ" & i).Value = sh2.Range("I39").Value .Range("XK" & i).Value = sh2.Range("J39").Value .Range("XL" & i).Value = sh2.Range("K39").Value .Range("XM" & i).Value = sh2.Range("L39").Value .Range("XN" & i).Value = sh2.Range("M39").Value .Range("XO" & i).Value = sh2.Range("N39").Value .Range("XP" & i).Value = sh2.Range("O39").Value .Range("XQ" & i).Value = sh2.Range("P39").Value .Range("XR" & i).Value = sh2.Range("Q39").Value .Range("XS" & i).Value = sh2.Range("R39").Value .Range("XT" & i).Value = sh2.Range("S39").Value .Range("XU" & i).Value = sh2.Range("T39").Value .Range("XV" & i).Value = sh2.Range("U39").Value .Range("XW" & i).Value = sh2.Range("V39").Value .Range("XX" & i).Value = sh2.Range("W39").Value .Range("XY" & i).Value = sh2.Range("X39").Value .Range("XZ" & i).Value = sh2.Range("D40").Value .Range("YA" & i).Value = sh2.Range("E40").Value .Range("YB" & i).Value = sh2.Range("F40").Value .Range("YC" & i).Value = sh2.Range("G40").Value .Range("YD" & i).Value = sh2.Range("H40").Value .Range("YE" & i).Value = sh2.Range("I40").Value .Range("YF" & i).Value = sh2.Range("J40").Value .Range("YG" & i).Value = sh2.Range("K40").Value .Range("YH" & i).Value = sh2.Range("L40").Value .Range("YI" & i).Value = sh2.Range("M40").Value .Range("YJ" & i).Value = sh2.Range("N40").Value .Range("YK" & i).Value = sh2.Range("O40").Value .Range("YL" & i).Value = sh2.Range("P40").Value .Range("YM" & i).Value = sh2.Range("Q40").Value .Range("YN" & i).Value = sh2.Range("R40").Value .Range("YO" & i).Value = sh2.Range("S40").Value .Range("YP" & i).Value = sh2.Range("T40").Value .Range("YQ" & i).Value = sh2.Range("U40").Value .Range("YR" & i).Value = sh2.Range("V40").Value .Range("YS" & i).Value = sh2.Range("W40").Value .Range("YT" & i).Value = sh2.Range("X40").Value .Range("YU" & i).Value = sh2.Range("D41").Value .Range("YV" & i).Value = sh2.Range("E41").Value .Range("YW" & i).Value = sh2.Range("F41").Value .Range("YX" & i).Value = sh2.Range("G41").Value .Range("YY" & i).Value = sh2.Range("H41").Value .Range("YZ" & i).Value = sh2.Range("I41").Value .Range("ZA" & i).Value = sh2.Range("J41").Value .Range("ZB" & i).Value = sh2.Range("K41").Value .Range("ZC" & i).Value = sh2.Range("L41").Value .Range("ZD" & i).Value = sh2.Range("M41").Value .Range("ZE" & i).Value = sh2.Range("N41").Value .Range("ZF" & i).Value = sh2.Range("O41").Value .Range("ZG" & i).Value = sh2.Range("P41").Value .Range("ZH" & i).Value = sh2.Range("Q41").Value .Range("ZI" & i).Value = sh2.Range("R41").Value .Range("ZJ" & i).Value = sh2.Range("S41").Value .Range("ZK" & i).Value = sh2.Range("T41").Value .Range("ZL" & i).Value = sh2.Range("U41").Value .Range("ZM" & i).Value = sh2.Range("V41").Value .Range("ZN" & i).Value = sh2.Range("W41").Value .Range("ZO" & i).Value = sh2.Range("X41").Value .Range("ZP" & i).Value = sh2.Range("Y38").Value .Range("ZQ" & i).Value = sh2.Range("Z38").Value .Range("ZR" & i).Value = sh2.Range("Y42").Value .Range("ZS" & i).Value = sh2.Range("A45").Value .Range("ZT" & i).Value = sh2.Range("C48").Value .Range("ZU" & i).Value = sh2.Range("C49").Value .Range("ZV" & i).Value = sh2.Range("L48").Value .Range("ZW" & i).Value = sh2.Range("L49").Value
End With wb.Close SaveChanges:=False End If fname = Dir() Loop Application.ScreenUpdating = True
End Sub
(f) 2019/02/20(水) 11:07
ありがとうございました。 とりあえず全、情報がそろったようなので、コード、書いてみます そのまま書き出せばよい分はアップしていただいたものをつかわせて いただきます。 検査シート(A)〜につきましては、見出しだけでも、可能なら 頂いて、後はコードが出来ましたら微調整させていただきます。 便利機能は後に於いておいて、先に必要な骨格部分を作っていきます。 では m(__)m。。。少しお時間を戴きます。。。。← ほんとに少しかあやしい^^; でもそんなに、難しいロジックでもなさそぉなので何とかなると思います。 でわ
(隠居じーさん) 2019/02/20(水) 11:48
本当にありがとうございます。。。
ただなぜか検査シートについてはなぜかツールが実行できません。
もう少々お待ちください。
(f) 2019/02/20(水) 11:51
(隠居じーさん) 2019/02/20(水) 12:50
Private Sub SoulMan() Rem 結合状態を処理 Range("D1:D5").Merge Range("E1:E5").Merge Range("F1:F5").Merge Range("G1:G5").Merge Range("H1:H5").Merge Range("I1:I5").Merge Range("J2:AD2").Merge Range("J3:AD3").Merge Range("J4:J5").Merge Range("K4:K5").Merge Range("L4:L5").Merge Range("M4:N4").Merge Range("O4:P4").Merge Range("Q4:R4").Merge Range("S4:T4").Merge Range("U4:V4").Merge Range("W4:X4").Merge Range("Y4:Z4").Merge Range("AA4:AB4").Merge Range("AC4:AD4").Merge
Rem 数式セル以外をまとめて処理 Range("D1").Value = 4 Range("E1").Value = 5 Range("F1").Value = 6 Range("G1").Value = 7 Range("H1").Value = 8 Range("I1").Value = 9 Range("J1").Value = "1'''" Range("J2").Value = "1''" Range("J3").Value = "1'" Range("C4").Value = "C4" Range("J4").Value = 10 Range("K4").Value = 11 Range("L4").Value = 12 Range("M4").Value = 31 Range("O4").Value = 32 Range("Q4").Value = 33 Range("S4").Value = 34 Range("U4").Value = 35 Range("W4").Value = 36 Range("Y4").Value = 37 Range("AA4").Value = 38 Range("AC4").Value = 39 Range("A5").Value = 1 Range("B5").Value = 2 Range("C5").Value = 3 Range("M5").Value = 13 Range("N5").Value = 14 Range("O5").Value = 15 Range("P5").Value = 16 Range("Q5").Value = 17 Range("R5").Value = 18 Range("S5").Value = 19 Range("T5").Value = 20 Range("U5").Value = 21 Range("V5").Value = 22 Range("W5").Value = 23 Range("X5").Value = 24 Range("Y5").Value = 25 Range("Z5").Value = 26 Range("AA5").Value = 27 Range("AB5").Value = 28 Range("AC5").Value = 29 Range("AD5").Value = 30
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理 Range("A1:C3,J3:AD3,A4:B4,A6:C6").Interior.ColorIndex = 35 Range("D1:I6").Interior.ColorIndex = 24 Range("J1:AD1").Interior.ColorIndex = 56 Range("J2:AD2").Interior.ColorIndex = 48
Rem 列幅をまとめて処理 Range("A1:AD6").ColumnWidth = 8.38
Rem 行高さをまとめて処理 Range("A1:AD3,A6:AD6").RowHeight = 15 Range("A4:AD4").RowHeight = 31.5 Range("A5:AD5").RowHeight = 32.25 MsgBox "お題の作成が完了しました。"
End Sub
(f) 2019/02/20(水) 15:03
fさん、了解ですぅ〜お疲れさまでしたぁ〜 それはそぉと処理対象ファイルは何ファイルくらい有るのでしょうか。。。← そろそろ処理速度 が気になってきている。。。( ̄▽ ̄;) m(__)m
(隠居じーさん) 2019/02/20(水) 15:17
処理対象ファイルの数は具体的には決まっておりませんが、
できるだけ1回の処理で多くのエクセルファイルを取り込めたらと思いますが、
最高で何エクセル程度かのうでしょうか?また、推奨エクセルファイル数等はございますでしょうか?
以上、よろしくお願いいたします。
(f) 2019/02/20(水) 15:34
w 。。。 実験はしてませんが。。。時間がかっても良いのでしたら PCのスペック(メモリー、とかHDD容量)にもよりますが 開いては閉じてますので、 かなり行けるのではないでしょうか。 とはいえあまり長いとオートメーションエラー、とかいって原因があまり定かではなく エクセル様がデッドロック状態になることはままあります。 ご用心ください。 ^^; ↑ 隠居じーさんはこれくらいしか。。。あまりわかっていないかも、この手の案件に お詳しい方のご回答をお待ちください。m(_ _)m おお、コードをいそがねば。。。←とってつけたいいわけっす。(#^.^#)でわ
(隠居じーさん) 2019/02/20(水) 16:06
承知いたしました。
こちらの環境でテスト等をしてみて、100以下のファイル数で実行してくださいというようなルールを決めて、運用面でその辺は何とかしたいと思います。
以上、よろしくお願いいたします。
(f) 2019/02/20(水) 16:09
こんばんは!
なんかすごいことになってますねぇ(^^;
途中で私は全然ついていけてませんけど、、気が付いた点をいくつか
先ず、、そろそろシート名を決めた方がいいのではないでしょうか?
もう決まっているのなら、、すみません。
一応、私の中では、
検査シート マスタ 転記先 マスタ管理 検査シート転記元 情報入力シートダミー
かな?と思います。
それから、、おやりになりたいことは色々あるでしょうし、、隠居じーさん さんもその気みたいですから
私がどうこう言う立場でもないのですが、、、あえて一言、、、、
この エクセルの学校 というところは、、みんなが勉強するところだと私は思っていて
このトピは、トピ主さんのトピであってトピ主さんだけのトピではないのです。(←あくまで私見です)
どういうことかと言いますと、、同じ様な問題で困っているひとの為にもあると思うのです。
で、今回の場合でしたら、、、最初の
>■転記元データ入力シート >B5セル:都道府県名 >C5セル:市町村名
>■転記元データマクロシートを >D列:都道府県 >E列:市町村名 >C列:D,Eの各行に応じた地域コード的な数字5桁が入力されている >※DとEの値で主キーになります。
>■希望処理 >B5、C5セル内容に応じた地域コードを転記先シートのBR列に転記したいのです。
でしたら、、、転記先シートのBR列 に
=INDEX(マスタ!$C$2:$C$1440,MATCH(情報入力シートダミー!$B$5&情報入力シートダミー!$C$5,マスタ!$D$2:$D$1440&マスタ!$E$2:$E$1440,0))
と入力して配列で確定すれば表示出来ます。
他のBookとか他のシートとか色々ありますでしょうけど、、、原点はこの一点ではないのでしょうか?
先ずは、一枚のシートの中で問題を解決することを考えて、、
次に、、別のシート
次の次に、、Book間、、、、
実は、、一枚のシートの中で出来たことは、、シート間だろうがBook間だろうがさほど大差はないと私は思っていて、、、
実際、、Range("A1").Value の前に、、Sheet名 Book名を付けるだけですから、、、
でも、一枚のシートのなかですら、、出来ていないことは当然、、Sheet間はもちろんBook間で出来るわけがないことは理解して頂けると思います。
で、今回の場合でしたら、、、↓ =INDEX(D1:D17,MATCH(A1&B1,E1:E17&F1:F17,0)) A B C D E F a6 d7 a12350 a12345 a1 d2 a12346 a2 d3 a12347 a3 d4 a12348 a4 d5 a12349 a5 d6 a12350 a6 d7 a12351 a7 d8 a12352 a8 d9 a12353 a9 d10 a12354 a10 d11 a12355 a11 d12 a12356 a12 d13 a12357 a13 d14 a12358 a14 d15 a12359 a15 d16 a12360 a16 d17 a12361 a17 d18
こんな感じのサンプル?例え話が出来ればそれで済む話の様な気がするんですけど、、どうでしょう??
ちょっと小言みたいになっちゃって申し訳ないですけど、、気分を悪くなさらないでくださいね。。。
では、では、お邪魔しました。m(__)m (SoulMan) 2019/02/20(水) 20:57
こんばんは〜〜〜 ども ^^ ツール。。。有難うございます m(_ _)m すご〜く役にたっていますよ。もう足を向けてねられません。。。 w。。。どっちむいても地球一回りすればだめか( ̄▽ ̄) そぉですね〜2点ほどクリア出来ればよいみたいっすね。 コードは一往出来たのですが。めっちゃ処理速度が遅くて。。。 いま配列に置き換えています。明日ぐらいにはアップ出来ると思うのですが 出来ないかも^^;;; 突っ込みお願いいたします。 お師匠様もアップしてくださいね〜〜〜 勝手に弟子入りすんまそ。。。(#^.^#)v Soulmanさんのおかげで情報も開示状態です。 他の諸先生もアップくだされば、いろいろお互いに勉強になって楽しいですよ。 あ!勉強になるのは私だけかも。。。 でわでわ m(_ _)m
(隠居じーさん) 2019/02/20(水) 22:15
隠居じーさん さん こんばんは!
変な突込み入れてすみませんね(^^;
>お師匠様もアップしてくださいね〜〜〜
ちょっと私は解読出来ないので今回は遠慮しておきます。
ってゆうか、、、残念ながら、、、
>大変申し訳ございませんが、まだ作成していただいたコードについて試せておりませんでした。。
この時点で Out です。。。。
でも、隠居じーさん さんのコードは、楽しみにしています。
では、では、 (SoulMan) 2019/02/20(水) 22:53
>>変な突込み入れてすみませんね(^^; いえいえ、とんでもありません。 いつもすみません、ありがとうございます。 がんばってみます。(#^.^#)。。。 おやすみなさい。。。。zzzz m(_ _)m
(隠居じーさん) 2019/02/20(水) 23:16
いろいろとコメントありがとうございます。
みんなのトピックという意見について、承知いたしました。
ただ、あくまで私の作成したトピックでありますので、私のやり方で進めさせていただけたらと思います。
ご理解のほどよろしくお願いいたします。
(f) 2019/02/21(木) 09:51
おはようございます。fです。
速度を上げるのに配列というやり方があるのですか。
調べてみます。
昨日はコード部分ではなくこのその他便利機能の仕様を考えておりました。すみません。
(f) 2019/02/21(木) 09:56
(隠居じーさん) 2019/02/21(木) 10:15
fです。
100は無理ですか。。
ただ、ここはPCスペックなどどうしようもない問題ですよね??コードうんぬんというお話ではなく。
(f) 2019/02/21(木) 10:23
できたてほかほか、ばぐだらけ。。。( ̄▽ ̄)コードっす チェクお願いいたします。重たいので、10ファイル位で様子見て下さい。 データー、特に情報入力の方は十分確認が出来ていません。 (新規書込み、重複上書きできているか) 検査の方は追加書込みオンリーです。 こちらでも、いまダミーBOOKを作っています。 書込み先(列)の情報が良いかどうかは判定できると思いますので。。。 とりあえずアップ致します。要バックアップ!m(__)m >>ただ、ここはPCスペックなどどうしようもない問題ですよね??コードうんぬんというお話ではなく。 100くらいなら、書き方にもよると思います。^^;では
Option Explicit Sub 転記_Ver2() 'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。 Const BaseBookName As String = "データ転記02.xlsm" Dim fpath As String, fname As String Dim wb As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr As Range Dim Mtr As Range Dim Mkr As Range Dim snm Dim Snmstr As String Dim SsortA() Dim SsortB() Dim SsortC() Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim n As Long Dim lr As Long Dim N2 As Long Dim t, counter& Dim w_flg As Boolean t = Timer '振り分けする転記先のシート名、並び変えたい順番に左から記入 snm = Array("A", "B", "C", "D") If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then Sheet_Delete snm End If Application.ScreenUpdating = False Set BB = Workbooks(BaseBookName) fpath = BB.Path & "\転記元\" Set sh1 = BB.Worksheets("列見出") fname = Dir(fpath & "*.xls*") Do Until fname = "" DoEvents If fname <> BB.Name Then Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh4 = wb.Worksheets("情報入力シート") Set sh5 = wb.Worksheets("検査シート") Set sh6 = wb.Worksheets("マスタ(都道府県)") Set sh7 = wb.Worksheets("マスタ(管理)") Set Jr = sh4.UsedRange Set Mtr = sh6.Range("C2").CurrentRegion Set Mkr = sh7.Range("B2").CurrentRegion Snmstr = Trim(sh4.Range("B2").Value) '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) On Error Resume Next If Err.Number > 0 Then MsgBox "シート名が設定されていません" & vbNewLine & _ "確認後設定してやり直してください。" On Error GoTo 0 For j = 1 To Windows.Count If ActiveWorkbook.Name <> BaseBookName Then ActiveWorkbook.Close False End If Next Sheet_Delete snm Exit Sub End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" SsortA(n) = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") sh2.Rows(6).Delete End If ReDim Preserve SsortA(n) SsortA(n) = sh2.Name n = n + 1 Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")" Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") sh3.Range(sh3.Rows(1), sh3.Rows(2)).Clear End If ReDim Preserve SsortB(N2) SsortB(N2) = sh3.Name N2 = N2 + 1 On Error GoTo 0 Rem 情報シート書出 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr For ry = 3 To lr If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = wb.Name) * _ (.Cells(ry, 5) = sh4.Range("F2").Value) Then w_flg = True Exit For End If Next If w_flg Then y = ry w_flg = False End If Write_J y, sh2, sh4, wb 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To Mtr.Rows.Count If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), Mkr.Rows(1), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出 With sh3 y2 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 y2 = IIf(y2 < 7, 7, y2) Write_K y2, sh3, sh4, sh5, wb .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With wb.Close SaveChanges:=False End If fname = Dir() DoEvents Application.StatusBar = counter counter = counter + 1 Loop j = 0: ReDim SsortC(UBound(SsortA) + UBound(SsortB) + 2) For i = 0 To UBound(SsortA) SsortC(j) = SsortA(i) j = j + 1 Next For i = 0 To UBound(SsortB) SsortC(j) = SsortB(i) j = j + 1 Next For i = UBound(SsortC) To 0 Step -1 On Error Resume Next Worksheets(SsortC(i)).Move before:=Worksheets(1) On Error GoTo 0 Next Application.ScreenUpdating = True Application.StatusBar = "" MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Sub Sheet_Delete(ByVal snm As Variant) Dim i As Long Dim j As Long Application.DisplayAlerts = False For j = Worksheets.Count To 1 Step -1 For i = 0 To UBound(snm) If Worksheets(j).Name = "検査シート(" & snm(i) & ")" Or _ Worksheets(j).Name = "情報入力シート(" & snm(i) & ")" Then Worksheets(j).Delete End If Next Next Application.DisplayAlerts = True End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, wb As Workbook) 'sh2 = 情報入力シート,sh4 = 検査シート? With ws '.Range("A" & y).Value = sh2.Range("B2").Value 'マスタ(管理)より管理者コードを取得する必要あり ' .Range("B" & y).Value = sh2.Range("").Value 'ファイル名取得 .Range("C" & y).Value = wb.Name .Range("D" & y).Value = sh2.Range("B2").Value .Range("E" & y).Value = sh2.Range("F2").Value .Range("F" & y).Value = sh2.Range("G2").Value .Range("G" & y).Value = sh2.Range("I2").Value .Range("H" & y).Value = sh2.Range("L2").Value .Range("J" & y).Value = sh2.Range("B4").Value .Range("K" & y).Value = sh2.Range("F4").Value .Range("L" & y).Value = sh2.Range("L4").Value .Range("M" & y).Value = sh2.Range("B5").Value .Range("N" & y).Value = sh2.Range("C5").Value .Range("O" & y).Value = sh2.Range("D5").Value .Range("P" & y).Value = sh2.Range("L5").Value '緯度、経度 .Range("Q" & y).Value = sh2.Range("B6").Value .Range("R" & y).Value = sh2.Range("E6").Value .Range("S" & y).Value = sh2.Range("H6").Value .Range("T" & y).Value = sh2.Range("B8").Value .Range("U" & y).Value = sh2.Range("F8").Value .Range("V" & y).Value = sh2.Range("K8").Value .Range("W" & y).Value = sh2.Range("B9").Value .Range("X" & y).Value = sh2.Range("F9").Value .Range("Y" & y).Value = sh2.Range("K9").Value .Range("Z" & y).Value = sh2.Range("B10").Value .Range("AA" & y).Value = sh2.Range("C10").Value
.Range("AB" & y).Value = sh2.Range("F10").Value .Range("AC" & y).Value = sh2.Range("G10").Value .Range("AD" & y).Value = sh2.Range("H10").Value .Range("AE" & y).Value = sh2.Range("K10").Value .Range("AF" & y).Value = sh2.Range("L10").Value .Range("AG" & y).Value = sh2.Range("B11").Value .Range("AH" & y).Value = sh2.Range("C11").Value .Range("Ay" & y).Value = sh2.Range("F11").Value .Range("AJ" & y).Value = sh2.Range("G11").Value .Range("AK" & y).Value = sh2.Range("K11").Value .Range("AL" & y).Value = sh2.Range("L11").Value .Range("AM" & y).Value = sh2.Range("B12").Value .Range("AN" & y).Value = sh2.Range("C12").Value .Range("AO" & y).Value = sh2.Range("F12").Value .Range("AP" & y).Value = sh2.Range("G12").Value .Range("AQ" & y).Value = sh2.Range("K12").Value .Range("AR" & y).Value = sh2.Range("B14").Value .Range("AS" & y).Value = sh2.Range("E14").Value .Range("AT" & y).Value = sh2.Range("H14").Value .Range("AU" & y).Value = sh2.Range("L14").Value .Range("AV" & y).Value = sh2.Range("B15").Value .Range("AW" & y).Value = sh2.Range("E15").Value .Range("AX" & y).Value = sh2.Range("H15").Value .Range("AY" & y).Value = sh2.Range("L15").Value .Range("AZ" & y).Value = sh2.Range("B16").Value
.Range("BA" & y).Value = sh2.Range("E16").Value .Range("BB" & y).Value = sh2.Range("H16").Value .Range("BC" & y).Value = sh2.Range("L16").Value .Range("BD" & y).Value = sh2.Range("B18").Value .Range("BE" & y).Value = sh2.Range("E18").Value ' .Range("BF" & y).Value = sh2.Range("H18").Value .Range("BG" & y).Value = sh2.Range("I18").Value .Range("BH" & y).Value = sh2.Range("J18").Value .Range("BI" & y).Value = sh2.Range("L18").Value .Range("BJ" & y).Value = sh2.Range("M18").Value .Range("BK" & y).Value = sh2.Range("N18").Value .Range("BL" & y).Value = sh2.Range("B19").Value .Range("BM" & y).Value = sh2.Range("E19").Value .Range("BN" & y).Value = sh2.Range("L19").Value .Range("BO" & y).Value = sh2.Range("B21").Value .Range("BP" & y).Value = sh2.Range("H21").Value .Range("BR" & y).Value = sh2.Range("H18").Value '市町村コードを転記する必要あり ' .Range("BS" & y) = .Range("BT" & y).Value = sh2.Range("B5").Value & sh2.Range("C5").Value .Range("BU" & y).Value = sh2.Range("B6").Value .Range("BV" & y).Value = sh2.Range("E6").Value End With Rem(f) 2019/02/20(水) 11:05 End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, wb As Workbook) Rem 'sh2 = 検査シート, sh4 = 情報入力シート With ws Rem ■検査シートの転記処理部分 (ZU列ではなくZWまでありました) MsgBox sh2.Range("B2").Value & sh2.Name .Range("A" & y2).Value = sh4.Range("B2").Value 'マスタ(管理)より管理者コードを取得する必要あり ' .Range("B" & y2).Value = sh2.Range("").Value 'ファイル名取得 .Range("C" & y2).Value = wb.Name .Range("D" & y2).Value = sh4.Range("B2").Value .Range("E" & y2).Value = sh4.Range("F2").Value .Range("F" & y2).Value = sh4.Range("G2").Value .Range("G" & y2).Value = sh4.Range("I2").Value .Range("H" & y2).Value = sh4.Range("L2").Value '以下結果転記 .Range("J" & y2).Value = sh2.Range("D10").Value .Range("K" & y2).Value = sh2.Range("E10").Value .Range("L" & y2).Value = sh2.Range("F10").Value .Range("M" & y2).Value = sh2.Range("G10").Value .Range("N" & y2).Value = sh2.Range("H10").Value .Range("O" & y2).Value = sh2.Range("I10").Value .Range("P" & y2).Value = sh2.Range("J10").Value .Range("Q" & y2).Value = sh2.Range("K10").Value .Range("R" & y2).Value = sh2.Range("L10").Value .Range("S" & y2).Value = sh2.Range("M10").Value .Range("T" & y2).Value = sh2.Range("N10").Value .Range("U" & y2).Value = sh2.Range("O10").Value .Range("V" & y2).Value = sh2.Range("P10").Value .Range("W" & y2).Value = sh2.Range("Q10").Value .Range("X" & y2).Value = sh2.Range("R10").Value .Range("Y" & y2).Value = sh2.Range("S10").Value .Range("Z" & y2).Value = sh2.Range("T10").Value DoEvents .Range("AA" & y2).Value = sh2.Range("U10").Value .Range("AB" & y2).Value = sh2.Range("V10").Value .Range("AC" & y2).Value = sh2.Range("W10").Value .Range("AD" & y2).Value = sh2.Range("X10").Value .Range("AE" & y2).Value = sh2.Range("D11").Value .Range("AF" & y2).Value = sh2.Range("E11").Value .Range("AG" & y2).Value = sh2.Range("F11").Value .Range("AH" & y2).Value = sh2.Range("G11").Value .Range("AI" & y2).Value = sh2.Range("H11").Value .Range("AJ" & y2).Value = sh2.Range("I11").Value .Range("AK" & y2).Value = sh2.Range("J11").Value .Range("AL" & y2).Value = sh2.Range("K11").Value .Range("AM" & y2).Value = sh2.Range("L11").Value .Range("AN" & y2).Value = sh2.Range("M11").Value .Range("AO" & y2).Value = sh2.Range("N11").Value .Range("AP" & y2).Value = sh2.Range("O11").Value .Range("AQ" & y2).Value = sh2.Range("P11").Value .Range("AR" & y2).Value = sh2.Range("Q11").Value .Range("AS" & y2).Value = sh2.Range("R11").Value .Range("AT" & y2).Value = sh2.Range("S11").Value .Range("AU" & y2).Value = sh2.Range("T11").Value .Range("AV" & y2).Value = sh2.Range("U11").Value .Range("AW" & y2).Value = sh2.Range("V11").Value .Range("AX" & y2).Value = sh2.Range("W11").Value .Range("AY" & y2).Value = sh2.Range("X11").Value .Range("AZ" & y2).Value = sh2.Range("D12").Value .Range("BA" & y2).Value = sh2.Range("E12").Value .Range("BB" & y2).Value = sh2.Range("F12").Value .Range("BC" & y2).Value = sh2.Range("G12").Value .Range("BD" & y2).Value = sh2.Range("H12").Value .Range("BE" & y2).Value = sh2.Range("I12").Value .Range("BF" & y2).Value = sh2.Range("J12").Value .Range("BG" & y2).Value = sh2.Range("K12").Value .Range("BH" & y2).Value = sh2.Range("L12").Value .Range("BI" & y2).Value = sh2.Range("M12").Value .Range("BJ" & y2).Value = sh2.Range("N12").Value .Range("BK" & y2).Value = sh2.Range("O12").Value .Range("BL" & y2).Value = sh2.Range("P12").Value .Range("BM" & y2).Value = sh2.Range("Q12").Value .Range("BN" & y2).Value = sh2.Range("R12").Value .Range("BO" & y2).Value = sh2.Range("S12").Value .Range("BP" & y2).Value = sh2.Range("T12").Value .Range("BQ" & y2).Value = sh2.Range("U12").Value .Range("BR" & y2).Value = sh2.Range("V12").Value .Range("BS" & y2).Value = sh2.Range("W12").Value .Range("BT" & y2).Value = sh2.Range("X12").Value .Range("BU" & y2).Value = sh2.Range("D13").Value .Range("BV" & y2).Value = sh2.Range("E13").Value .Range("BW" & y2).Value = sh2.Range("F13").Value .Range("BX" & y2).Value = sh2.Range("G13").Value .Range("BY" & y2).Value = sh2.Range("H13").Value .Range("BZ" & y2).Value = sh2.Range("I13").Value .Range("CA" & y2).Value = sh2.Range("J13").Value .Range("CB" & y2).Value = sh2.Range("K13").Value .Range("CC" & y2).Value = sh2.Range("L13").Value .Range("CD" & y2).Value = sh2.Range("M13").Value .Range("CE" & y2).Value = sh2.Range("N13").Value .Range("CF" & y2).Value = sh2.Range("O13").Value .Range("CG" & y2).Value = sh2.Range("P13").Value .Range("CH" & y2).Value = sh2.Range("Q13").Value .Range("CI" & y2).Value = sh2.Range("R13").Value .Range("CJ" & y2).Value = sh2.Range("S13").Value .Range("CK" & y2).Value = sh2.Range("T13").Value .Range("CL" & y2).Value = sh2.Range("U13").Value .Range("CM" & y2).Value = sh2.Range("V13").Value .Range("CN" & y2).Value = sh2.Range("W13").Value .Range("CO" & y2).Value = sh2.Range("X13").Value .Range("CP" & y2).Value = sh2.Range("D14").Value .Range("CQ" & y2).Value = sh2.Range("E14").Value .Range("CR" & y2).Value = sh2.Range("F14").Value .Range("CS" & y2).Value = sh2.Range("G14").Value .Range("CT" & y2).Value = sh2.Range("H14").Value .Range("CU" & y2).Value = sh2.Range("I14").Value .Range("CV" & y2).Value = sh2.Range("J14").Value .Range("CW" & y2).Value = sh2.Range("K14").Value .Range("CX" & y2).Value = sh2.Range("L14").Value .Range("CY" & y2).Value = sh2.Range("M14").Value .Range("CZ" & y2).Value = sh2.Range("N14").Value .Range("DA" & y2).Value = sh2.Range("O14").Value .Range("DB" & y2).Value = sh2.Range("P14").Value .Range("DC" & y2).Value = sh2.Range("Q14").Value .Range("DD" & y2).Value = sh2.Range("R14").Value .Range("DE" & y2).Value = sh2.Range("S14").Value .Range("DF" & y2).Value = sh2.Range("T14").Value .Range("DG" & y2).Value = sh2.Range("U14").Value .Range("DH" & y2).Value = sh2.Range("V14").Value .Range("DI" & y2).Value = sh2.Range("W14").Value .Range("DJ" & y2).Value = sh2.Range("X14").Value .Range("DK" & y2).Value = sh2.Range("D15").Value .Range("DL" & y2).Value = sh2.Range("E15").Value .Range("DM" & y2).Value = sh2.Range("F15").Value .Range("DN" & y2).Value = sh2.Range("G15").Value .Range("DO" & y2).Value = sh2.Range("H15").Value .Range("DP" & y2).Value = sh2.Range("I15").Value .Range("DQ" & y2).Value = sh2.Range("J15").Value .Range("DR" & y2).Value = sh2.Range("K15").Value .Range("DS" & y2).Value = sh2.Range("L15").Value .Range("DT" & y2).Value = sh2.Range("M15").Value .Range("DU" & y2).Value = sh2.Range("N15").Value .Range("DV" & y2).Value = sh2.Range("O15").Value .Range("DW" & y2).Value = sh2.Range("P15").Value .Range("DX" & y2).Value = sh2.Range("Q15").Value .Range("DY" & y2).Value = sh2.Range("R15").Value .Range("DZ" & y2).Value = sh2.Range("S15").Value .Range("EA" & y2).Value = sh2.Range("T15").Value .Range("EB" & y2).Value = sh2.Range("U15").Value .Range("EC" & y2).Value = sh2.Range("V15").Value .Range("ED" & y2).Value = sh2.Range("W15").Value .Range("EE" & y2).Value = sh2.Range("X15").Value .Range("EF" & y2).Value = sh2.Range("D16").Value .Range("EG" & y2).Value = sh2.Range("E16").Value .Range("EH" & y2).Value = sh2.Range("F16").Value .Range("EI" & y2).Value = sh2.Range("G16").Value .Range("EJ" & y2).Value = sh2.Range("H16").Value .Range("EK" & y2).Value = sh2.Range("I16").Value .Range("EL" & y2).Value = sh2.Range("J16").Value .Range("EM" & y2).Value = sh2.Range("K16").Value .Range("EN" & y2).Value = sh2.Range("L16").Value .Range("EO" & y2).Value = sh2.Range("M16").Value .Range("EP" & y2).Value = sh2.Range("N16").Value .Range("EQ" & y2).Value = sh2.Range("O16").Value .Range("ER" & y2).Value = sh2.Range("P16").Value .Range("ES" & y2).Value = sh2.Range("Q16").Value .Range("ET" & y2).Value = sh2.Range("R16").Value .Range("EU" & y2).Value = sh2.Range("S16").Value .Range("EV" & y2).Value = sh2.Range("T16").Value .Range("EW" & y2).Value = sh2.Range("U16").Value .Range("EX" & y2).Value = sh2.Range("V16").Value .Range("EY" & y2).Value = sh2.Range("W16").Value .Range("EZ" & y2).Value = sh2.Range("X16").Value .Range("FA" & y2).Value = sh2.Range("D17").Value .Range("FB" & y2).Value = sh2.Range("E17").Value .Range("FC" & y2).Value = sh2.Range("F17").Value .Range("FD" & y2).Value = sh2.Range("G17").Value .Range("FE" & y2).Value = sh2.Range("H17").Value .Range("FF" & y2).Value = sh2.Range("I17").Value .Range("FG" & y2).Value = sh2.Range("J17").Value .Range("FH" & y2).Value = sh2.Range("K17").Value .Range("FI" & y2).Value = sh2.Range("L17").Value .Range("FJ" & y2).Value = sh2.Range("M17").Value .Range("FK" & y2).Value = sh2.Range("N17").Value .Range("FL" & y2).Value = sh2.Range("O17").Value .Range("FM" & y2).Value = sh2.Range("P17").Value .Range("FN" & y2).Value = sh2.Range("Q17").Value .Range("FO" & y2).Value = sh2.Range("R17").Value .Range("FP" & y2).Value = sh2.Range("S17").Value .Range("FQ" & y2).Value = sh2.Range("T17").Value .Range("FR" & y2).Value = sh2.Range("U17").Value .Range("FS" & y2).Value = sh2.Range("V17").Value .Range("FT" & y2).Value = sh2.Range("W17").Value .Range("FU" & y2).Value = sh2.Range("X17").Value .Range("FV" & y2).Value = sh2.Range("D18").Value .Range("FW" & y2).Value = sh2.Range("E18").Value .Range("FX" & y2).Value = sh2.Range("F18").Value .Range("FY" & y2).Value = sh2.Range("G18").Value .Range("FZ" & y2).Value = sh2.Range("H18").Value .Range("GA" & y2).Value = sh2.Range("I18").Value .Range("GB" & y2).Value = sh2.Range("J18").Value .Range("GC" & y2).Value = sh2.Range("K18").Value .Range("GD" & y2).Value = sh2.Range("L18").Value .Range("GE" & y2).Value = sh2.Range("M18").Value .Range("GF" & y2).Value = sh2.Range("N18").Value .Range("GG" & y2).Value = sh2.Range("O18").Value .Range("GH" & y2).Value = sh2.Range("P18").Value .Range("GI" & y2).Value = sh2.Range("Q18").Value .Range("GJ" & y2).Value = sh2.Range("R18").Value .Range("GK" & y2).Value = sh2.Range("S18").Value .Range("GL" & y2).Value = sh2.Range("T18").Value .Range("GM" & y2).Value = sh2.Range("U18").Value .Range("GN" & y2).Value = sh2.Range("V18").Value .Range("GO" & y2).Value = sh2.Range("W18").Value .Range("GP" & y2).Value = sh2.Range("X18").Value .Range("GQ" & y2).Value = sh2.Range("D19").Value .Range("GR" & y2).Value = sh2.Range("E19").Value .Range("GS" & y2).Value = sh2.Range("F19").Value .Range("GT" & y2).Value = sh2.Range("G19").Value .Range("GU" & y2).Value = sh2.Range("H19").Value .Range("GV" & y2).Value = sh2.Range("I19").Value .Range("GW" & y2).Value = sh2.Range("J19").Value .Range("GX" & y2).Value = sh2.Range("K19").Value .Range("GY" & y2).Value = sh2.Range("L19").Value .Range("GZ" & y2).Value = sh2.Range("M19").Value .Range("HA" & y2).Value = sh2.Range("N19").Value .Range("HB" & y2).Value = sh2.Range("O19").Value .Range("HC" & y2).Value = sh2.Range("P19").Value .Range("HD" & y2).Value = sh2.Range("Q19").Value .Range("HE" & y2).Value = sh2.Range("R19").Value .Range("HF" & y2).Value = sh2.Range("S19").Value .Range("HG" & y2).Value = sh2.Range("T19").Value .Range("HH" & y2).Value = sh2.Range("U19").Value .Range("HI" & y2).Value = sh2.Range("V19").Value .Range("HJ" & y2).Value = sh2.Range("W19").Value .Range("HK" & y2).Value = sh2.Range("X19").Value .Range("HL" & y2).Value = sh2.Range("D20").Value .Range("HM" & y2).Value = sh2.Range("E20").Value .Range("HN" & y2).Value = sh2.Range("F20").Value .Range("HO" & y2).Value = sh2.Range("G20").Value .Range("HP" & y2).Value = sh2.Range("H20").Value .Range("HQ" & y2).Value = sh2.Range("I20").Value .Range("HR" & y2).Value = sh2.Range("J20").Value .Range("HS" & y2).Value = sh2.Range("K20").Value .Range("HT" & y2).Value = sh2.Range("L20").Value .Range("HU" & y2).Value = sh2.Range("M20").Value .Range("HV" & y2).Value = sh2.Range("N20").Value .Range("HW" & y2).Value = sh2.Range("O20").Value .Range("HX" & y2).Value = sh2.Range("P20").Value .Range("HY" & y2).Value = sh2.Range("Q20").Value .Range("HZ" & y2).Value = sh2.Range("R20").Value .Range("IA" & y2).Value = sh2.Range("S20").Value .Range("IB" & y2).Value = sh2.Range("T20").Value .Range("IC" & y2).Value = sh2.Range("U20").Value .Range("ID" & y2).Value = sh2.Range("V20").Value .Range("IE" & y2).Value = sh2.Range("W20").Value .Range("IF" & y2).Value = sh2.Range("X20").Value .Range("IG" & y2).Value = sh2.Range("D21").Value .Range("IH" & y2).Value = sh2.Range("E21").Value .Range("II" & y2).Value = sh2.Range("F21").Value .Range("IJ" & y2).Value = sh2.Range("G21").Value .Range("IK" & y2).Value = sh2.Range("H21").Value .Range("IL" & y2).Value = sh2.Range("I21").Value .Range("IM" & y2).Value = sh2.Range("J21").Value .Range("IN" & y2).Value = sh2.Range("K21").Value .Range("IO" & y2).Value = sh2.Range("L21").Value .Range("IP" & y2).Value = sh2.Range("M21").Value .Range("IQ" & y2).Value = sh2.Range("N21").Value .Range("IR" & y2).Value = sh2.Range("O21").Value .Range("IS" & y2).Value = sh2.Range("P21").Value .Range("IT" & y2).Value = sh2.Range("Q21").Value .Range("IU" & y2).Value = sh2.Range("R21").Value .Range("IV" & y2).Value = sh2.Range("S21").Value .Range("IW" & y2).Value = sh2.Range("T21").Value .Range("IX" & y2).Value = sh2.Range("U21").Value .Range("IY" & y2).Value = sh2.Range("V21").Value .Range("IZ" & y2).Value = sh2.Range("W21").Value .Range("JA" & y2).Value = sh2.Range("X21").Value .Range("JB" & y2).Value = sh2.Range("Y10").Value .Range("JC" & y2).Value = sh2.Range("Z10").Value .Range("JD" & y2).Value = sh2.Range("D22").Value .Range("JE" & y2).Value = sh2.Range("E22").Value .Range("JF" & y2).Value = sh2.Range("F22").Value .Range("JG" & y2).Value = sh2.Range("G22").Value .Range("JH" & y2).Value = sh2.Range("H22").Value .Range("JI" & y2).Value = sh2.Range("I22").Value .Range("JJ" & y2).Value = sh2.Range("J22").Value .Range("JK" & y2).Value = sh2.Range("K22").Value .Range("JL" & y2).Value = sh2.Range("L22").Value .Range("JM" & y2).Value = sh2.Range("M22").Value .Range("JN" & y2).Value = sh2.Range("N22").Value .Range("JO" & y2).Value = sh2.Range("O22").Value .Range("JP" & y2).Value = sh2.Range("P22").Value .Range("JQ" & y2).Value = sh2.Range("Q22").Value .Range("JR" & y2).Value = sh2.Range("R22").Value .Range("JS" & y2).Value = sh2.Range("S22").Value .Range("JT" & y2).Value = sh2.Range("T22").Value .Range("JU" & y2).Value = sh2.Range("U22").Value .Range("JV" & y2).Value = sh2.Range("V22").Value .Range("JW" & y2).Value = sh2.Range("W22").Value .Range("JX" & y2).Value = sh2.Range("X22").Value .Range("JY" & y2).Value = sh2.Range("D23").Value .Range("JZ" & y2).Value = sh2.Range("E23").Value .Range("KA" & y2).Value = sh2.Range("F23").Value .Range("KB" & y2).Value = sh2.Range("G23").Value .Range("KC" & y2).Value = sh2.Range("H23").Value .Range("KD" & y2).Value = sh2.Range("I23").Value .Range("KE" & y2).Value = sh2.Range("J23").Value .Range("KF" & y2).Value = sh2.Range("K23").Value .Range("KG" & y2).Value = sh2.Range("L23").Value .Range("KH" & y2).Value = sh2.Range("M23").Value .Range("KI" & y2).Value = sh2.Range("N23").Value .Range("KJ" & y2).Value = sh2.Range("O23").Value .Range("KK" & y2).Value = sh2.Range("P23").Value .Range("KL" & y2).Value = sh2.Range("Q23").Value .Range("KM" & y2).Value = sh2.Range("R23").Value .Range("KN" & y2).Value = sh2.Range("S23").Value .Range("KO" & y2).Value = sh2.Range("T23").Value .Range("KP" & y2).Value = sh2.Range("U23").Value .Range("KQ" & y2).Value = sh2.Range("V23").Value .Range("KR" & y2).Value = sh2.Range("W23").Value .Range("KS" & y2).Value = sh2.Range("X23").Value .Range("KT" & y2).Value = sh2.Range("D24").Value .Range("KU" & y2).Value = sh2.Range("E24").Value .Range("KV" & y2).Value = sh2.Range("F24").Value .Range("KW" & y2).Value = sh2.Range("G24").Value .Range("KX" & y2).Value = sh2.Range("H24").Value .Range("KY" & y2).Value = sh2.Range("I24").Value .Range("KZ" & y2).Value = sh2.Range("J24").Value .Range("LA" & y2).Value = sh2.Range("K24").Value .Range("LB" & y2).Value = sh2.Range("L24").Value .Range("LC" & y2).Value = sh2.Range("M24").Value .Range("LD" & y2).Value = sh2.Range("N24").Value .Range("LE" & y2).Value = sh2.Range("O24").Value .Range("LF" & y2).Value = sh2.Range("P24").Value .Range("LG" & y2).Value = sh2.Range("Q24").Value .Range("LH" & y2).Value = sh2.Range("R24").Value .Range("LI" & y2).Value = sh2.Range("S24").Value .Range("LJ" & y2).Value = sh2.Range("T24").Value .Range("LK" & y2).Value = sh2.Range("U24").Value .Range("LL" & y2).Value = sh2.Range("V24").Value .Range("LM" & y2).Value = sh2.Range("W24").Value .Range("LN" & y2).Value = sh2.Range("X24").Value .Range("LO" & y2).Value = sh2.Range("D25").Value .Range("LP" & y2).Value = sh2.Range("E25").Value .Range("LQ" & y2).Value = sh2.Range("F25").Value .Range("LR" & y2).Value = sh2.Range("G25").Value .Range("LS" & y2).Value = sh2.Range("H25").Value .Range("LT" & y2).Value = sh2.Range("I25").Value .Range("LU" & y2).Value = sh2.Range("J25").Value .Range("LV" & y2).Value = sh2.Range("K25").Value .Range("LW" & y2).Value = sh2.Range("L25").Value .Range("LX" & y2).Value = sh2.Range("M25").Value .Range("LY" & y2).Value = sh2.Range("N25").Value .Range("LZ" & y2).Value = sh2.Range("O25").Value .Range("MA" & y2).Value = sh2.Range("P25").Value .Range("MB" & y2).Value = sh2.Range("Q25").Value .Range("MC" & y2).Value = sh2.Range("R25").Value .Range("MD" & y2).Value = sh2.Range("S25").Value .Range("ME" & y2).Value = sh2.Range("T25").Value .Range("MF" & y2).Value = sh2.Range("U25").Value .Range("MG" & y2).Value = sh2.Range("V25").Value .Range("MH" & y2).Value = sh2.Range("W25").Value .Range("MI" & y2).Value = sh2.Range("X25").Value .Range("MJ" & y2).Value = sh2.Range("D26").Value .Range("MK" & y2).Value = sh2.Range("E26").Value .Range("ML" & y2).Value = sh2.Range("F26").Value .Range("MM" & y2).Value = sh2.Range("G26").Value .Range("MN" & y2).Value = sh2.Range("H26").Value .Range("MO" & y2).Value = sh2.Range("I26").Value .Range("MP" & y2).Value = sh2.Range("J26").Value .Range("MQ" & y2).Value = sh2.Range("K26").Value .Range("MR" & y2).Value = sh2.Range("L26").Value .Range("MS" & y2).Value = sh2.Range("M26").Value .Range("MT" & y2).Value = sh2.Range("N26").Value .Range("MU" & y2).Value = sh2.Range("O26").Value .Range("MV" & y2).Value = sh2.Range("P26").Value .Range("MW" & y2).Value = sh2.Range("Q26").Value .Range("MX" & y2).Value = sh2.Range("R26").Value .Range("MY" & y2).Value = sh2.Range("S26").Value .Range("MZ" & y2).Value = sh2.Range("T26").Value .Range("NA" & y2).Value = sh2.Range("U26").Value .Range("NB" & y2).Value = sh2.Range("V26").Value .Range("NC" & y2).Value = sh2.Range("W26").Value .Range("ND" & y2).Value = sh2.Range("X26").Value .Range("NE" & y2).Value = sh2.Range("D27").Value .Range("NF" & y2).Value = sh2.Range("E27").Value .Range("NG" & y2).Value = sh2.Range("F27").Value .Range("NH" & y2).Value = sh2.Range("G27").Value .Range("NI" & y2).Value = sh2.Range("H27").Value .Range("NJ" & y2).Value = sh2.Range("I27").Value .Range("NK" & y2).Value = sh2.Range("J27").Value .Range("NL" & y2).Value = sh2.Range("K27").Value .Range("NM" & y2).Value = sh2.Range("L27").Value .Range("NN" & y2).Value = sh2.Range("M27").Value .Range("NO" & y2).Value = sh2.Range("N27").Value .Range("NP" & y2).Value = sh2.Range("O27").Value .Range("NQ" & y2).Value = sh2.Range("P27").Value .Range("NR" & y2).Value = sh2.Range("Q27").Value .Range("NS" & y2).Value = sh2.Range("R27").Value .Range("NT" & y2).Value = sh2.Range("S27").Value .Range("NU" & y2).Value = sh2.Range("T27").Value .Range("NV" & y2).Value = sh2.Range("U27").Value .Range("NW" & y2).Value = sh2.Range("V27").Value .Range("NX" & y2).Value = sh2.Range("W27").Value .Range("NY" & y2).Value = sh2.Range("X27").Value .Range("NZ" & y2).Value = sh2.Range("Y22").Value .Range("OA" & y2).Value = sh2.Range("Z22").Value .Range("OB" & y2).Value = sh2.Range("D28").Value .Range("OC" & y2).Value = sh2.Range("E28").Value .Range("OD" & y2).Value = sh2.Range("F28").Value .Range("OE" & y2).Value = sh2.Range("G28").Value .Range("OF" & y2).Value = sh2.Range("H28").Value .Range("OG" & y2).Value = sh2.Range("I28").Value .Range("OH" & y2).Value = sh2.Range("J28").Value .Range("OI" & y2).Value = sh2.Range("K28").Value .Range("OJ" & y2).Value = sh2.Range("L28").Value .Range("OK" & y2).Value = sh2.Range("M28").Value .Range("OL" & y2).Value = sh2.Range("N28").Value .Range("OM" & y2).Value = sh2.Range("O28").Value .Range("ON" & y2).Value = sh2.Range("P28").Value .Range("OO" & y2).Value = sh2.Range("Q28").Value .Range("OP" & y2).Value = sh2.Range("R28").Value .Range("OQ" & y2).Value = sh2.Range("S28").Value .Range("OR" & y2).Value = sh2.Range("T28").Value .Range("OS" & y2).Value = sh2.Range("U28").Value .Range("OT" & y2).Value = sh2.Range("V28").Value .Range("OU" & y2).Value = sh2.Range("W28").Value .Range("OV" & y2).Value = sh2.Range("X28").Value .Range("OW" & y2).Value = sh2.Range("D29").Value .Range("OX" & y2).Value = sh2.Range("E29").Value .Range("OY" & y2).Value = sh2.Range("F29").Value .Range("OZ" & y2).Value = sh2.Range("G29").Value .Range("PA" & y2).Value = sh2.Range("H29").Value .Range("PB" & y2).Value = sh2.Range("I29").Value .Range("PC" & y2).Value = sh2.Range("J29").Value .Range("PD" & y2).Value = sh2.Range("K29").Value .Range("PE" & y2).Value = sh2.Range("L29").Value .Range("PF" & y2).Value = sh2.Range("M29").Value .Range("PG" & y2).Value = sh2.Range("N29").Value .Range("PH" & y2).Value = sh2.Range("O29").Value .Range("PI" & y2).Value = sh2.Range("P29").Value .Range("PJ" & y2).Value = sh2.Range("Q29").Value .Range("PK" & y2).Value = sh2.Range("R29").Value .Range("PL" & y2).Value = sh2.Range("S29").Value .Range("PM" & y2).Value = sh2.Range("T29").Value .Range("PN" & y2).Value = sh2.Range("U29").Value .Range("PO" & y2).Value = sh2.Range("V29").Value .Range("PP" & y2).Value = sh2.Range("W29").Value .Range("PQ" & y2).Value = sh2.Range("X29").Value .Range("PR" & y2).Value = sh2.Range("D30").Value .Range("PS" & y2).Value = sh2.Range("E30").Value .Range("PT" & y2).Value = sh2.Range("F30").Value .Range("PU" & y2).Value = sh2.Range("G30").Value .Range("PV" & y2).Value = sh2.Range("H30").Value .Range("PW" & y2).Value = sh2.Range("I30").Value .Range("PX" & y2).Value = sh2.Range("J30").Value .Range("PY" & y2).Value = sh2.Range("K30").Value .Range("PZ" & y2).Value = sh2.Range("L30").Value .Range("QA" & y2).Value = sh2.Range("M30").Value .Range("QB" & y2).Value = sh2.Range("N30").Value .Range("QC" & y2).Value = sh2.Range("O30").Value .Range("QD" & y2).Value = sh2.Range("P30").Value .Range("QE" & y2).Value = sh2.Range("Q30").Value .Range("QF" & y2).Value = sh2.Range("R30").Value .Range("QG" & y2).Value = sh2.Range("S30").Value .Range("QH" & y2).Value = sh2.Range("T30").Value .Range("QI" & y2).Value = sh2.Range("U30").Value .Range("QJ" & y2).Value = sh2.Range("V30").Value .Range("QK" & y2).Value = sh2.Range("W30").Value .Range("QL" & y2).Value = sh2.Range("X30").Value .Range("QM" & y2).Value = sh2.Range("D31").Value .Range("QN" & y2).Value = sh2.Range("E31").Value .Range("QO" & y2).Value = sh2.Range("F31").Value .Range("QP" & y2).Value = sh2.Range("G31").Value .Range("QQ" & y2).Value = sh2.Range("H31").Value .Range("QR" & y2).Value = sh2.Range("I31").Value .Range("QS" & y2).Value = sh2.Range("J31").Value .Range("QT" & y2).Value = sh2.Range("K31").Value .Range("QU" & y2).Value = sh2.Range("L31").Value .Range("QV" & y2).Value = sh2.Range("M31").Value .Range("QW" & y2).Value = sh2.Range("N31").Value .Range("QX" & y2).Value = sh2.Range("O31").Value .Range("QY" & y2).Value = sh2.Range("P31").Value .Range("QZ" & y2).Value = sh2.Range("Q31").Value .Range("RA" & y2).Value = sh2.Range("R31").Value .Range("RB" & y2).Value = sh2.Range("S31").Value .Range("RC" & y2).Value = sh2.Range("T31").Value .Range("RD" & y2).Value = sh2.Range("U31").Value .Range("RE" & y2).Value = sh2.Range("V31").Value .Range("RF" & y2).Value = sh2.Range("W31").Value .Range("RG" & y2).Value = sh2.Range("X31").Value .Range("RH" & y2).Value = sh2.Range("D32").Value .Range("RI" & y2).Value = sh2.Range("E32").Value .Range("RJ" & y2).Value = sh2.Range("F32").Value .Range("RK" & y2).Value = sh2.Range("G32").Value .Range("RL" & y2).Value = sh2.Range("H32").Value .Range("RM" & y2).Value = sh2.Range("I32").Value .Range("RN" & y2).Value = sh2.Range("J32").Value .Range("RO" & y2).Value = sh2.Range("K32").Value .Range("RP" & y2).Value = sh2.Range("L32").Value .Range("RQ" & y2).Value = sh2.Range("M32").Value .Range("RR" & y2).Value = sh2.Range("N32").Value .Range("RS" & y2).Value = sh2.Range("O32").Value .Range("RT" & y2).Value = sh2.Range("P32").Value .Range("RU" & y2).Value = sh2.Range("Q32").Value .Range("RV" & y2).Value = sh2.Range("R32").Value .Range("RW" & y2).Value = sh2.Range("S32").Value .Range("RX" & y2).Value = sh2.Range("T32").Value .Range("RY" & y2).Value = sh2.Range("U32").Value .Range("RZ" & y2).Value = sh2.Range("V32").Value .Range("SA" & y2).Value = sh2.Range("W32").Value .Range("SB" & y2).Value = sh2.Range("X32").Value .Range("SC" & y2).Value = sh2.Range("D33").Value .Range("SD" & y2).Value = sh2.Range("E33").Value .Range("SE" & y2).Value = sh2.Range("F33").Value .Range("SF" & y2).Value = sh2.Range("G33").Value .Range("SG" & y2).Value = sh2.Range("H33").Value .Range("SH" & y2).Value = sh2.Range("I33").Value .Range("SI" & y2).Value = sh2.Range("J33").Value .Range("SJ" & y2).Value = sh2.Range("K33").Value .Range("SK" & y2).Value = sh2.Range("L33").Value .Range("SL" & y2).Value = sh2.Range("M33").Value .Range("SM" & y2).Value = sh2.Range("N33").Value .Range("SN" & y2).Value = sh2.Range("O33").Value .Range("SO" & y2).Value = sh2.Range("P33").Value .Range("SP" & y2).Value = sh2.Range("Q33").Value .Range("SQ" & y2).Value = sh2.Range("R33").Value .Range("SR" & y2).Value = sh2.Range("S33").Value .Range("SS" & y2).Value = sh2.Range("T33").Value .Range("ST" & y2).Value = sh2.Range("U33").Value .Range("SU" & y2).Value = sh2.Range("V33").Value .Range("SV" & y2).Value = sh2.Range("W33").Value .Range("SW" & y2).Value = sh2.Range("X33").Value .Range("SX" & y2).Value = sh2.Range("Y28").Value .Range("SY" & y2).Value = sh2.Range("Z28").Value .Range("SZ" & y2).Value = sh2.Range("D34").Value .Range("TA" & y2).Value = sh2.Range("E34").Value .Range("TB" & y2).Value = sh2.Range("F34").Value .Range("TC" & y2).Value = sh2.Range("G34").Value .Range("TD" & y2).Value = sh2.Range("H34").Value .Range("TE" & y2).Value = sh2.Range("I34").Value .Range("TF" & y2).Value = sh2.Range("J34").Value .Range("TG" & y2).Value = sh2.Range("K34").Value .Range("TH" & y2).Value = sh2.Range("L34").Value .Range("TI" & y2).Value = sh2.Range("M34").Value .Range("TJ" & y2).Value = sh2.Range("N34").Value .Range("TK" & y2).Value = sh2.Range("O34").Value .Range("TL" & y2).Value = sh2.Range("P34").Value .Range("TM" & y2).Value = sh2.Range("Q34").Value .Range("TN" & y2).Value = sh2.Range("R34").Value .Range("TO" & y2).Value = sh2.Range("S34").Value .Range("TP" & y2).Value = sh2.Range("T34").Value .Range("TQ" & y2).Value = sh2.Range("U34").Value .Range("TR" & y2).Value = sh2.Range("V34").Value .Range("TS" & y2).Value = sh2.Range("W34").Value .Range("TT" & y2).Value = sh2.Range("X34").Value .Range("TU" & y2).Value = sh2.Range("D35").Value .Range("TV" & y2).Value = sh2.Range("E35").Value .Range("TW" & y2).Value = sh2.Range("F35").Value .Range("TX" & y2).Value = sh2.Range("G35").Value .Range("TY" & y2).Value = sh2.Range("H35").Value .Range("TZ" & y2).Value = sh2.Range("I35").Value .Range("UA" & y2).Value = sh2.Range("J35").Value .Range("UB" & y2).Value = sh2.Range("K35").Value .Range("UC" & y2).Value = sh2.Range("L35").Value .Range("UD" & y2).Value = sh2.Range("M35").Value .Range("UE" & y2).Value = sh2.Range("N35").Value .Range("UF" & y2).Value = sh2.Range("O35").Value .Range("UG" & y2).Value = sh2.Range("P35").Value .Range("UH" & y2).Value = sh2.Range("Q35").Value .Range("UI" & y2).Value = sh2.Range("R35").Value .Range("UJ" & y2).Value = sh2.Range("S35").Value .Range("UK" & y2).Value = sh2.Range("T35").Value .Range("UL" & y2).Value = sh2.Range("U35").Value .Range("UM" & y2).Value = sh2.Range("V35").Value .Range("UN" & y2).Value = sh2.Range("W35").Value .Range("UO" & y2).Value = sh2.Range("X35").Value .Range("UP" & y2).Value = sh2.Range("Y34").Value .Range("UQ" & y2).Value = sh2.Range("Z34").Value .Range("UR" & y2).Value = sh2.Range("D36").Value .Range("US" & y2).Value = sh2.Range("E36").Value .Range("UT" & y2).Value = sh2.Range("F36").Value .Range("UU" & y2).Value = sh2.Range("G36").Value .Range("UV" & y2).Value = sh2.Range("H36").Value .Range("UW" & y2).Value = sh2.Range("I36").Value .Range("UX" & y2).Value = sh2.Range("J36").Value .Range("UY" & y2).Value = sh2.Range("K36").Value .Range("UZ" & y2).Value = sh2.Range("L36").Value .Range("VA" & y2).Value = sh2.Range("M36").Value .Range("VB" & y2).Value = sh2.Range("N36").Value .Range("VC" & y2).Value = sh2.Range("O36").Value .Range("VD" & y2).Value = sh2.Range("P36").Value .Range("VE" & y2).Value = sh2.Range("Q36").Value .Range("VF" & y2).Value = sh2.Range("R36").Value .Range("VG" & y2).Value = sh2.Range("S36").Value .Range("VH" & y2).Value = sh2.Range("T36").Value .Range("VI" & y2).Value = sh2.Range("U36").Value .Range("VJ" & y2).Value = sh2.Range("V36").Value .Range("VK" & y2).Value = sh2.Range("W36").Value .Range("VL" & y2).Value = sh2.Range("X36").Value .Range("VM" & y2).Value = sh2.Range("D37").Value .Range("VN" & y2).Value = sh2.Range("E37").Value .Range("VO" & y2).Value = sh2.Range("F37").Value .Range("VP" & y2).Value = sh2.Range("G37").Value .Range("VQ" & y2).Value = sh2.Range("H37").Value .Range("VR" & y2).Value = sh2.Range("I37").Value .Range("VS" & y2).Value = sh2.Range("J37").Value .Range("VT" & y2).Value = sh2.Range("K37").Value .Range("VU" & y2).Value = sh2.Range("L37").Value .Range("VV" & y2).Value = sh2.Range("M37").Value .Range("VW" & y2).Value = sh2.Range("N37").Value .Range("VX" & y2).Value = sh2.Range("O37").Value .Range("VY" & y2).Value = sh2.Range("P37").Value .Range("VZ" & y2).Value = sh2.Range("Q37").Value .Range("WA" & y2).Value = sh2.Range("R37").Value .Range("WB" & y2).Value = sh2.Range("S37").Value .Range("WC" & y2).Value = sh2.Range("T37").Value .Range("WD" & y2).Value = sh2.Range("U37").Value .Range("WE" & y2).Value = sh2.Range("V37").Value .Range("WF" & y2).Value = sh2.Range("W37").Value .Range("WG" & y2).Value = sh2.Range("X37").Value .Range("WH" & y2).Value = sh2.Range("Y36").Value .Range("WI" & y2).Value = sh2.Range("Z36").Value .Range("WJ" & y2).Value = sh2.Range("D38").Value .Range("WK" & y2).Value = sh2.Range("E38").Value .Range("WL" & y2).Value = sh2.Range("F38").Value .Range("WM" & y2).Value = sh2.Range("G38").Value .Range("WN" & y2).Value = sh2.Range("H38").Value .Range("WO" & y2).Value = sh2.Range("I38").Value .Range("WP" & y2).Value = sh2.Range("J38").Value .Range("WQ" & y2).Value = sh2.Range("K38").Value .Range("WR" & y2).Value = sh2.Range("L38").Value .Range("WS" & y2).Value = sh2.Range("M38").Value .Range("WT" & y2).Value = sh2.Range("N38").Value .Range("WU" & y2).Value = sh2.Range("O38").Value .Range("WV" & y2).Value = sh2.Range("P38").Value .Range("WW" & y2).Value = sh2.Range("Q38").Value .Range("WX" & y2).Value = sh2.Range("R38").Value .Range("WY" & y2).Value = sh2.Range("S38").Value .Range("WZ" & y2).Value = sh2.Range("T38").Value .Range("XA" & y2).Value = sh2.Range("U38").Value .Range("XB" & y2).Value = sh2.Range("V38").Value .Range("XC" & y2).Value = sh2.Range("W38").Value .Range("XD" & y2).Value = sh2.Range("X38").Value .Range("XE" & y2).Value = sh2.Range("D39").Value .Range("XF" & y2).Value = sh2.Range("E39").Value .Range("XG" & y2).Value = sh2.Range("F39").Value .Range("XH" & y2).Value = sh2.Range("G39").Value .Range("XI" & y2).Value = sh2.Range("H39").Value .Range("XJ" & y2).Value = sh2.Range("I39").Value .Range("XK" & y2).Value = sh2.Range("J39").Value .Range("XL" & y2).Value = sh2.Range("K39").Value .Range("XM" & y2).Value = sh2.Range("L39").Value .Range("XN" & y2).Value = sh2.Range("M39").Value .Range("XO" & y2).Value = sh2.Range("N39").Value .Range("XP" & y2).Value = sh2.Range("O39").Value .Range("XQ" & y2).Value = sh2.Range("P39").Value .Range("XR" & y2).Value = sh2.Range("Q39").Value .Range("XS" & y2).Value = sh2.Range("R39").Value .Range("XT" & y2).Value = sh2.Range("S39").Value .Range("XU" & y2).Value = sh2.Range("T39").Value .Range("XV" & y2).Value = sh2.Range("U39").Value .Range("XW" & y2).Value = sh2.Range("V39").Value .Range("XX" & y2).Value = sh2.Range("W39").Value .Range("XY" & y2).Value = sh2.Range("X39").Value .Range("XZ" & y2).Value = sh2.Range("D40").Value .Range("YA" & y2).Value = sh2.Range("E40").Value .Range("YB" & y2).Value = sh2.Range("F40").Value .Range("YC" & y2).Value = sh2.Range("G40").Value .Range("YD" & y2).Value = sh2.Range("H40").Value .Range("YE" & y2).Value = sh2.Range("I40").Value .Range("YF" & y2).Value = sh2.Range("J40").Value .Range("YG" & y2).Value = sh2.Range("K40").Value .Range("YH" & y2).Value = sh2.Range("L40").Value .Range("YI" & y2).Value = sh2.Range("M40").Value .Range("YJ" & y2).Value = sh2.Range("N40").Value .Range("YK" & y2).Value = sh2.Range("O40").Value .Range("YL" & y2).Value = sh2.Range("P40").Value .Range("YM" & y2).Value = sh2.Range("Q40").Value .Range("YN" & y2).Value = sh2.Range("R40").Value .Range("YO" & y2).Value = sh2.Range("S40").Value .Range("YP" & y2).Value = sh2.Range("T40").Value .Range("YQ" & y2).Value = sh2.Range("U40").Value .Range("YR" & y2).Value = sh2.Range("V40").Value .Range("YS" & y2).Value = sh2.Range("W40").Value .Range("YT" & y2).Value = sh2.Range("X40").Value .Range("YU" & y2).Value = sh2.Range("D41").Value .Range("YV" & y2).Value = sh2.Range("E41").Value .Range("YW" & y2).Value = sh2.Range("F41").Value .Range("YX" & y2).Value = sh2.Range("G41").Value .Range("YY" & y2).Value = sh2.Range("H41").Value .Range("YZ" & y2).Value = sh2.Range("I41").Value .Range("ZA" & y2).Value = sh2.Range("J41").Value .Range("ZB" & y2).Value = sh2.Range("K41").Value .Range("ZC" & y2).Value = sh2.Range("L41").Value .Range("ZD" & y2).Value = sh2.Range("M41").Value .Range("ZE" & y2).Value = sh2.Range("N41").Value .Range("ZF" & y2).Value = sh2.Range("O41").Value .Range("ZG" & y2).Value = sh2.Range("P41").Value .Range("ZH" & y2).Value = sh2.Range("Q41").Value .Range("ZI" & y2).Value = sh2.Range("R41").Value .Range("ZJ" & y2).Value = sh2.Range("S41").Value .Range("ZK" & y2).Value = sh2.Range("T41").Value .Range("ZL" & y2).Value = sh2.Range("U41").Value .Range("ZM" & y2).Value = sh2.Range("V41").Value .Range("ZN" & y2).Value = sh2.Range("W41").Value .Range("ZO" & y2).Value = sh2.Range("X41").Value .Range("ZP" & y2).Value = sh2.Range("Y38").Value .Range("ZQ" & y2).Value = sh2.Range("Z38").Value .Range("ZR" & y2).Value = sh2.Range("Y42").Value .Range("ZS" & y2).Value = sh2.Range("A45").Value .Range("ZT" & y2).Value = sh2.Range("C48").Value .Range("ZU" & y2).Value = sh2.Range("C49").Value .Range("ZV" & y2).Value = sh2.Range("L48").Value .Range("ZW" & y2).Value = sh2.Range("L49").Value DoEvents '(f) 2019/02/20(水) 11:07 End With End Sub (隠居じーさん) 2019/02/21(木) 10:38
追伸。。。すみません。多分変な結果だと思います。エラーかも 書込み側のBOOKに列見出しと云ううシートを作成して 一行目(情報入力と同じ列数) 6行目(検査シートと同じ列数) 項目なり、番号なり入力して 実行してください。 頂いている項目に合わせ、修正致します。 このシートを基に各シートを作成しております。 もし同じ名前のシートをお使いでしたらシート名の変更を致します。 m(__)m
(隠居じーさん) 2019/02/21(木) 11:19
シート 【列見出】のレイアウトです Soulmanさん。すみません。感謝、感謝です。m(_ _)m これに合わせて後日、修正いたします。 テスト段階では一行目と、六行目になにかあれば、仮になくても 表示されないだけで、シートさえあれば動作致します。
Private Sub SoulMan() Rem 結合状態を処理 Range("D6:D10").Merge Range("E6:E10").Merge Range("F6:F10").Merge Range("G6:G10").Merge Range("H6:H10").Merge Range("I6:I10").Merge Range("J7:AD7").Merge Range("J8:AD8").Merge Range("J9:J10").Merge Range("K9:K10").Merge Range("L9:L10").Merge Range("M9:N9").Merge Range("O9:P9").Merge Range("Q9:R9").Merge Range("S9:T9").Merge Range("U9:V9").Merge Range("W9:X9").Merge Range("Y9:Z9").Merge Range("AA9:AB9").Merge Range("AC9:AD9").Merge
Rem 数式セル以外をまとめて処理 Range("A1,ZW6,A10").Value = 1 Range("B1,ZV6,B10").Value = 2 Range("C1,ZU6,C10").Value = 3 Range("D1,D6,ZT6").Value = 4 Range("E1,E6,ZS6").Value = 5 Range("F1,F6,ZR6").Value = 6 Range("G1,G6,ZQ6").Value = 7 Range("H1,H6,ZP6").Value = 8 Range("I1,I6,ZO6").Value = 9 Range("J1,ZN6,J9").Value = 10 Range("K1,ZM6,K9").Value = 11 Range("L1,ZL6,L9").Value = 12 Range("M1,ZK6,M10").Value = 13 Range("N1,ZJ6,N10").Value = 14 Range("O1,ZI6,O10").Value = 15 Range("P1,ZH6,P10").Value = 16 Range("Q1,ZG6,Q10").Value = 17 Range("R1,ZF6,R10").Value = 18 Range("S1,ZE6,S10").Value = 19 Range("T1,ZD6,T10").Value = 20 Range("U1,ZC6,U10").Value = 21 Range("V1,ZB6,V10").Value = 22 Range("W1,ZA6,W10").Value = 23 Range("X1,YZ6,X10").Value = 24 Range("Y1,YY6,Y10").Value = 25 Range("Z1,YX6,Z10").Value = 26 Range("AA1,YW6,AA10").Value = 27 Range("AB1,YV6,AB10").Value = 28 Range("AC1,YU6,AC10").Value = 29 Range("AD1,YT6,AD10").Value = 30 Range("AE1,YS6,M9").Value = 31 Range("AF1,YR6,O9").Value = 32 Range("AG1,YQ6,Q9").Value = 33 Range("AH1,YP6,S9").Value = 34 Range("AI1,YO6,U9").Value = 35 Range("AJ1,YN6,W9").Value = 36 Range("AK1,YM6,Y9").Value = 37 Range("AL1,YL6,AA9").Value = 38 Range("AM1,YK6,AC9").Value = 39 Range("AN1,YJ6").Value = 40 Range("AO1,YI6").Value = 41 Range("AP1,YH6").Value = 42 Range("AQ1,YG6").Value = 43 Range("AR1,YF6").Value = 44 Range("AS1,YE6").Value = 45 Range("AT1,YD6").Value = 46 Range("AU1,YC6").Value = 47 Range("AV1,YB6").Value = 48 Range("AW1,YA6").Value = 49 Range("AX1,XZ6").Value = 50 Range("AY1,XY6").Value = 51 Range("AZ1,XX6").Value = 52 Range("BA1,XW6").Value = 53 Range("BB1,XV6").Value = 54 Range("BC1,XU6").Value = 55 Range("BD1,XT6").Value = 56 Range("BE1,XS6").Value = 57 Range("BF1,XR6").Value = 58 Range("BG1,XQ6").Value = 59 Range("BH1,XP6").Value = 60 Range("BI1,XO6").Value = 61 Range("BJ1,XN6").Value = 62 Range("BK1,XM6").Value = 63 Range("BL1,XL6").Value = 64 Range("BM1,XK6").Value = 65 Range("BN1,XJ6").Value = 66 Range("BO1,XI6").Value = 67 Range("BP1,XH6").Value = 68 Range("BQ1,XG6").Value = 69 Range("BR1,XF6").Value = 70 Range("BS1,XE6").Value = 71 Range("BT1,XD6").Value = 72 Range("BU1,XC6").Value = 73 Range("BV1,XB6").Value = 74 Range("J6").Value = "1'''" Range("AE6").Value = 669 Range("AF6").Value = 668 Range("AG6").Value = 667 Range("AH6").Value = 666 Range("AI6").Value = 665 Range("AJ6").Value = 664 Range("AK6").Value = 663 Range("AL6").Value = 662 Range("AM6").Value = 661 Range("AN6").Value = 660 Range("AO6").Value = 659 Range("AP6").Value = 658 Range("AQ6").Value = 657 Range("AR6").Value = 656 Range("AS6").Value = 655 Range("AT6").Value = 654 Range("AU6").Value = 653 Range("AV6").Value = 652 Range("AW6").Value = 651 Range("AX6").Value = 650 Range("AY6").Value = 649 Range("AZ6").Value = 648 Range("BA6").Value = 647 Range("BB6").Value = 646 Range("BC6").Value = 645 Range("BD6").Value = 644 Range("BE6").Value = 643 Range("BF6").Value = 642 Range("BG6").Value = 641 Range("BH6").Value = 640 Range("BI6").Value = 639 Range("BJ6").Value = 638 Range("BK6").Value = 637 Range("BL6").Value = 636 Range("BM6").Value = 635 Range("BN6").Value = 634 Range("BO6").Value = 633 Range("BP6").Value = 632 Range("BQ6").Value = 631 Range("BR6").Value = 630 Range("BS6").Value = 629 Range("BT6").Value = 628 Range("BU6").Value = 627 Range("BV6").Value = 626 Range("BW6").Value = 625 Range("BX6").Value = 624 Range("BY6").Value = 623 Range("BZ6").Value = 622 Range("CA6").Value = 621 Range("CB6").Value = 620 Range("CC6").Value = 619 Range("CD6").Value = 618 Range("CE6").Value = 617 Range("CF6").Value = 616 Range("CG6").Value = 615 Range("CH6").Value = 614 Range("CI6").Value = 613 Range("CJ6").Value = 612 Range("CK6").Value = 611 Range("CL6").Value = 610 Range("CM6").Value = 609 Range("CN6").Value = 608 Range("CO6").Value = 607 Range("CP6").Value = 606 Range("CQ6").Value = 605 Range("CR6").Value = 604 Range("CS6").Value = 603 Range("CT6").Value = 602 Range("CU6").Value = 601 Range("CV6").Value = 600 Range("CW6").Value = 599 Range("CX6").Value = 598 Range("CY6").Value = 597 Range("CZ6").Value = 596 Range("DA6").Value = 595 Range("DB6").Value = 594 Range("DC6").Value = 593 Range("DD6").Value = 592 Range("DE6").Value = 591 Range("DF6").Value = 590 Range("DG6").Value = 589 Range("DH6").Value = 588 Range("DI6").Value = 587 Range("DJ6").Value = 586 Range("DK6").Value = 585 Range("DL6").Value = 584 Range("DM6").Value = 583 Range("DN6").Value = 582 Range("DO6").Value = 581 Range("DP6").Value = 580 Range("DQ6").Value = 579 Range("DR6").Value = 578 Range("DS6").Value = 577 Range("DT6").Value = 576 Range("DU6").Value = 575 Range("DV6").Value = 574 Range("DW6").Value = 573 Range("DX6").Value = 572 Range("DY6").Value = 571 Range("DZ6").Value = 570 Range("EA6").Value = 569 Range("EB6").Value = 568 Range("EC6").Value = 567 Range("ED6").Value = 566 Range("EE6").Value = 565 Range("EF6").Value = 564 Range("EG6").Value = 563 Range("EH6").Value = 562 Range("EI6").Value = 561 Range("EJ6").Value = 560 Range("EK6").Value = 559 Range("EL6").Value = 558 Range("EM6").Value = 557 Range("EN6").Value = 556 Range("EO6").Value = 555 Range("EP6").Value = 554 Range("EQ6").Value = 553 Range("ER6").Value = 552 Range("ES6").Value = 551 Range("ET6").Value = 550 Range("EU6").Value = 549 Range("EV6").Value = 548 Range("EW6").Value = 547 Range("EX6").Value = 546 Range("EY6").Value = 545 Range("EZ6").Value = 544 Range("FA6").Value = 543 Range("FB6").Value = 542 Range("FC6").Value = 541 Range("FD6").Value = 540 Range("FE6").Value = 539 Range("FF6").Value = 538 Range("FG6").Value = 537 Range("FH6").Value = 536 Range("FI6").Value = 535 Range("FJ6").Value = 534 Range("FK6").Value = 533 Range("FL6").Value = 532 Range("FM6").Value = 531 Range("FN6").Value = 530 Range("FO6").Value = 529 Range("FP6").Value = 528 Range("FQ6").Value = 527 Range("FR6").Value = 526 Range("FS6").Value = 525 Range("FT6").Value = 524 Range("FU6").Value = 523 Range("FV6").Value = 522 Range("FW6").Value = 521 Range("FX6").Value = 520 Range("FY6").Value = 519 Range("FZ6").Value = 518 Range("GA6").Value = 517 Range("GB6").Value = 516 Range("GC6").Value = 515 Range("GD6").Value = 514 Range("GE6").Value = 513 Range("GF6").Value = 512 Range("GG6").Value = 511 Range("GH6").Value = 510 Range("GI6").Value = 509 Range("GJ6").Value = 508 Range("GK6").Value = 507 Range("GL6").Value = 506 Range("GM6").Value = 505 Range("GN6").Value = 504 Range("GO6").Value = 503 Range("GP6").Value = 502 Range("GQ6").Value = 501 Range("GR6").Value = 500 Range("GS6").Value = 499 Range("GT6").Value = 498 Range("GU6").Value = 497 Range("GV6").Value = 496 Range("GW6").Value = 495 Range("GX6").Value = 494 Range("GY6").Value = 493 Range("GZ6").Value = 492 Range("HA6").Value = 491 Range("HB6").Value = 490 Range("HC6").Value = 489 Range("HD6").Value = 488 Range("HE6").Value = 487 Range("HF6").Value = 486 Range("HG6").Value = 485 Range("HH6").Value = 484 Range("HI6").Value = 483 Range("HJ6").Value = 482 Range("HK6").Value = 481 Range("HL6").Value = 480 Range("HM6").Value = 479 Range("HN6").Value = 478 Range("HO6").Value = 477 Range("HP6").Value = 476 Range("HQ6").Value = 475 Range("HR6").Value = 474 Range("HS6").Value = 473 Range("HT6").Value = 472 Range("HU6").Value = 471 Range("HV6").Value = 470 Range("HW6").Value = 469 Range("HX6").Value = 468 Range("HY6").Value = 467 Range("HZ6").Value = 466 Range("IA6").Value = 465 Range("IB6").Value = 464 Range("IC6").Value = 463 Range("ID6").Value = 462 Range("IE6").Value = 461 Range("IF6").Value = 460 Range("IG6").Value = 459 Range("IH6").Value = 458 Range("II6").Value = 457 Range("IJ6").Value = 456 Range("IK6").Value = 455 Range("IL6").Value = 454 Range("IM6").Value = 453 Range("IN6").Value = 452 Range("IO6").Value = 451 Range("IP6").Value = 450 Range("IQ6").Value = 449 Range("IR6").Value = 448 Range("IS6").Value = 447 Range("IT6").Value = 446 Range("IU6").Value = 445 Range("IV6").Value = 444 Range("IW6").Value = 443 Range("IX6").Value = 442 Range("IY6").Value = 441 Range("IZ6").Value = 440 Range("JA6").Value = 439 Range("JB6").Value = 438 Range("JC6").Value = 437 Range("JD6").Value = 436 Range("JE6").Value = 435 Range("JF6").Value = 434 Range("JG6").Value = 433 Range("JH6").Value = 432 Range("JI6").Value = 431 Range("JJ6").Value = 430 Range("JK6").Value = 429 Range("JL6").Value = 428 Range("JM6").Value = 427 Range("JN6").Value = 426 Range("JO6").Value = 425 Range("JP6").Value = 424 Range("JQ6").Value = 423 Range("JR6").Value = 422 Range("JS6").Value = 421 Range("JT6").Value = 420 Range("JU6").Value = 419 Range("JV6").Value = 418 Range("JW6").Value = 417 Range("JX6").Value = 416 Range("JY6").Value = 415 Range("JZ6").Value = 414 Range("KA6").Value = 413 Range("KB6").Value = 412 Range("KC6").Value = 411 Range("KD6").Value = 410 Range("KE6").Value = 409 Range("KF6").Value = 408 Range("KG6").Value = 407 Range("KH6").Value = 406 Range("KI6").Value = 405 Range("KJ6").Value = 404 Range("KK6").Value = 403 Range("KL6").Value = 402 Range("KM6").Value = 401 Range("KN6").Value = 400 Range("KO6").Value = 399 Range("KP6").Value = 398 Range("KQ6").Value = 397 Range("KR6").Value = 396 Range("KS6").Value = 395 Range("KT6").Value = 394 Range("KU6").Value = 393 Range("KV6").Value = 392 Range("KW6").Value = 391 Range("KX6").Value = 390 Range("KY6").Value = 389 Range("KZ6").Value = 388 Range("LA6").Value = 387 Range("LB6").Value = 386 Range("LC6").Value = 385 Range("LD6").Value = 384 Range("LE6").Value = 383 Range("LF6").Value = 382 Range("LG6").Value = 381 Range("LH6").Value = 380 Range("LI6").Value = 379 Range("LJ6").Value = 378 Range("LK6").Value = 377 Range("LL6").Value = 376 Range("LM6").Value = 375 Range("LN6").Value = 374 Range("LO6").Value = 373 Range("LP6").Value = 372 Range("LQ6").Value = 371 Range("LR6").Value = 370 Range("LS6").Value = 369 Range("LT6").Value = 368 Range("LU6").Value = 367 Range("LV6").Value = 366 Range("LW6").Value = 365 Range("LX6").Value = 364 Range("LY6").Value = 363 Range("LZ6").Value = 362 Range("MA6").Value = 361 Range("MB6").Value = 360 Range("MC6").Value = 359 Range("MD6").Value = 358 Range("ME6").Value = 357 Range("MF6").Value = 356 Range("MG6").Value = 355 Range("MH6").Value = 354 Range("MI6").Value = 353 Range("MJ6").Value = 352 Range("MK6").Value = 351 Range("ML6").Value = 350 Range("MM6").Value = 349 Range("MN6").Value = 348 Range("MO6").Value = 347 Range("MP6").Value = 346 Range("MQ6").Value = 345 Range("MR6").Value = 344 Range("MS6").Value = 343 Range("MT6").Value = 342 Range("MU6").Value = 341 Range("MV6").Value = 340 Range("MW6").Value = 339 Range("MX6").Value = 338 Range("MY6").Value = 337 Range("MZ6").Value = 336 Range("NA6").Value = 335 Range("NB6").Value = 334 Range("NC6").Value = 333 Range("ND6").Value = 332 Range("NE6").Value = 331 Range("NF6").Value = 330 Range("NG6").Value = 329 Range("NH6").Value = 328 Range("NI6").Value = 327 Range("NJ6").Value = 326 Range("NK6").Value = 325 Range("NL6").Value = 324 Range("NM6").Value = 323 Range("NN6").Value = 322 Range("NO6").Value = 321 Range("NP6").Value = 320 Range("NQ6").Value = 319 Range("NR6").Value = 318 Range("NS6").Value = 317 Range("NT6").Value = 316 Range("NU6").Value = 315 Range("NV6").Value = 314 Range("NW6").Value = 313 Range("NX6").Value = 312 Range("NY6").Value = 311 Range("NZ6").Value = 310 Range("OA6").Value = 309 Range("OB6").Value = 308 Range("OC6").Value = 307 Range("OD6").Value = 306 Range("OE6").Value = 305 Range("OF6").Value = 304 Range("OG6").Value = 303 Range("OH6").Value = 302 Range("OI6").Value = 301 Range("OJ6").Value = 300 Range("OK6").Value = 299 Range("OL6").Value = 298 Range("OM6").Value = 297 Range("ON6").Value = 296 Range("OO6").Value = 295 Range("OP6").Value = 294 Range("OQ6").Value = 293 Range("OR6").Value = 292 Range("OS6").Value = 291 Range("OT6").Value = 290 Range("OU6").Value = 289 Range("OV6").Value = 288 Range("OW6").Value = 287 Range("OX6").Value = 286 Range("OY6").Value = 285 Range("OZ6").Value = 284 Range("PA6").Value = 283 Range("PB6").Value = 282 Range("PC6").Value = 281 Range("PD6").Value = 280 Range("PE6").Value = 279 Range("PF6").Value = 278 Range("PG6").Value = 277 Range("PH6").Value = 276 Range("PI6").Value = 275 Range("PJ6").Value = 274 Range("PK6").Value = 273 Range("PL6").Value = 272 Range("PM6").Value = 271 Range("PN6").Value = 270 Range("PO6").Value = 269 Range("PP6").Value = 268 Range("PQ6").Value = 267 Range("PR6").Value = 266 Range("PS6").Value = 265 Range("PT6").Value = 264 Range("PU6").Value = 263 Range("PV6").Value = 262 Range("PW6").Value = 261 Range("PX6").Value = 260 Range("PY6").Value = 259 Range("PZ6").Value = 258 Range("QA6").Value = 257 Range("QB6").Value = 256 Range("QC6").Value = 255 Range("QD6").Value = 254 Range("QE6").Value = 253 Range("QF6").Value = 252 Range("QG6").Value = 251 Range("QH6").Value = 250 Range("QI6").Value = 249 Range("QJ6").Value = 248 Range("QK6").Value = 247 Range("QL6").Value = 246 Range("QM6").Value = 245 Range("QN6").Value = 244 Range("QO6").Value = 243 Range("QP6").Value = 242 Range("QQ6").Value = 241 Range("QR6").Value = 240 Range("QS6").Value = 239 Range("QT6").Value = 238 Range("QU6").Value = 237 Range("QV6").Value = 236 Range("QW6").Value = 235 Range("QX6").Value = 234 Range("QY6").Value = 233 Range("QZ6").Value = 232 Range("RA6").Value = 231 Range("RB6").Value = 230 Range("RC6").Value = 229 Range("RD6").Value = 228 Range("RE6").Value = 227 Range("RF6").Value = 226 Range("RG6").Value = 225 Range("RH6").Value = 224 Range("RI6").Value = 223 Range("RJ6").Value = 222 Range("RK6").Value = 221 Range("RL6").Value = 220 Range("RM6").Value = 219 Range("RN6").Value = 218 Range("RO6").Value = 217 Range("RP6").Value = 216 Range("RQ6").Value = 215 Range("RR6").Value = 214 Range("RS6").Value = 213 Range("RT6").Value = 212 Range("RU6").Value = 211 Range("RV6").Value = 210 Range("RW6").Value = 209 Range("RX6").Value = 208 Range("RY6").Value = 207 Range("RZ6").Value = 206 Range("SA6").Value = 205 Range("SB6").Value = 204 Range("SC6").Value = 203 Range("SD6").Value = 202 Range("SE6").Value = 201 Range("SF6").Value = 200 Range("SG6").Value = 199 Range("SH6").Value = 198 Range("SI6").Value = 197 Range("SJ6").Value = 196 Range("SK6").Value = 195 Range("SL6").Value = 194 Range("SM6").Value = 193 Range("SN6").Value = 192 Range("SO6").Value = 191 Range("SP6").Value = 190 Range("SQ6").Value = 189 Range("SR6").Value = 188 Range("SS6").Value = 187 Range("ST6").Value = 186 Range("SU6").Value = 185 Range("SV6").Value = 184 Range("SW6").Value = 183 Range("SX6").Value = 182 Range("SY6").Value = 181 Range("SZ6").Value = 180 Range("TA6").Value = 179 Range("TB6").Value = 178 Range("TC6").Value = 177 Range("TD6").Value = 176 Range("TE6").Value = 175 Range("TF6").Value = 174 Range("TG6").Value = 173 Range("TH6").Value = 172 Range("TI6").Value = 171 Range("TJ6").Value = 170 Range("TK6").Value = 169 Range("TL6").Value = 168 Range("TM6").Value = 167 Range("TN6").Value = 166 Range("TO6").Value = 165 Range("TP6").Value = 164 Range("TQ6").Value = 163 Range("TR6").Value = 162 Range("TS6").Value = 161 Range("TT6").Value = 160 Range("TU6").Value = 159 Range("TV6").Value = 158 Range("TW6").Value = 157 Range("TX6").Value = 156 Range("TY6").Value = 155 Range("TZ6").Value = 154 Range("UA6").Value = 153 Range("UB6").Value = 152 Range("UC6").Value = 151 Range("UD6").Value = 150 Range("UE6").Value = 149 Range("UF6").Value = 148 Range("UG6").Value = 147 Range("UH6").Value = 146 Range("UI6").Value = 145 Range("UJ6").Value = 144 Range("UK6").Value = 143 Range("UL6").Value = 142 Range("UM6").Value = 141 Range("UN6").Value = 140 Range("UO6").Value = 139 Range("UP6").Value = 138 Range("UQ6").Value = 137 Range("UR6").Value = 136 Range("US6").Value = 135 Range("UT6").Value = 134 Range("UU6").Value = 133 Range("UV6").Value = 132 Range("UW6").Value = 131 Range("UX6").Value = 130 Range("UY6").Value = 129 Range("UZ6").Value = 128 Range("VA6").Value = 127 Range("VB6").Value = 126 Range("VC6").Value = 125 Range("VD6").Value = 124 Range("VE6").Value = 123 Range("VF6").Value = 122 Range("VG6").Value = 121 Range("VH6").Value = 120 Range("VI6").Value = 119 Range("VJ6").Value = 118 Range("VK6").Value = 117 Range("VL6").Value = 116 Range("VM6").Value = 115 Range("VN6").Value = 114 Range("VO6").Value = 113 Range("VP6").Value = 112 Range("VQ6").Value = 111 Range("VR6").Value = 110 Range("VS6").Value = 109 Range("VT6").Value = 108 Range("VU6").Value = 107 Range("VV6").Value = 106 Range("VW6").Value = 105 Range("VX6").Value = 104 Range("VY6").Value = 103 Range("VZ6").Value = 102 Range("WA6").Value = 101 Range("WB6").Value = 100 Range("WC6").Value = 99 Range("WD6").Value = 98 Range("WE6").Value = 97 Range("WF6").Value = 96 Range("WG6").Value = 95 Range("WH6").Value = 94 Range("WI6").Value = 93 Range("WJ6").Value = 92 Range("WK6").Value = 91 Range("WL6").Value = 90 Range("WM6").Value = 89 Range("WN6").Value = 88 Range("WO6").Value = 87 Range("WP6").Value = 86 Range("WQ6").Value = 85 Range("WR6").Value = 84 Range("WS6").Value = 83 Range("WT6").Value = 82 Range("WU6").Value = 81 Range("WV6").Value = 80 Range("WW6").Value = 79 Range("WX6").Value = 78 Range("WY6").Value = 77 Range("WZ6").Value = 76 Range("XA6").Value = 75 Range("J7").Value = "1''" Range("J8").Value = "1'" Range("C9").Value = "C4"
Rem 数式セルをまとめて処理
Rem 標準外書式セルをまとめて処理
Rem 塗りつぶしセルをまとめて処理 Range("A1:B2,D1:E1,G1:H1,J1:K1,M1:N1,P1:Q1,S1:T1,V1:W1,Y1:Z1,AB1:AC1").Interior.ColorIndex = 35 Range("AE1:AF1,AH1:AI1,AK1:AL1,AN1:AO1,AQ1:AR1,AT1:AU1,AW1:AX1,AZ1:BA1,BC1:BD1,BF1:BG1").Interior.ColorIndex = 35 Range("BI1:BJ1,BL1:BM1,BO1:BP1,BR1:BS1,BU1:BV1,BQ2:BV2,A6:C8,J8:AD8,A9:B9,A11:C11").Interior.ColorIndex = 35 Range("C1,F1,I1,L1,O1,R1,U1,X1,AA1").Interior.ColorIndex = 24 Range("AD1,AG1,AJ1,AM1,AP1,AS1,AV1,AY1,BB1").Interior.ColorIndex = 24 Range("BE1,BH1,BK1,BN1,BQ1,BT1,C2:BP2,D6:I11").Interior.ColorIndex = 24 Range("J6:AD6").Interior.ColorIndex = 56 Range("J7:AD7").Interior.ColorIndex = 48
Rem 列幅をまとめて処理 Range("A1:ZW11").ColumnWidth = 8.38
Rem 行高さをまとめて処理 Range("A1:ZW11").RowHeight = 28.5 MsgBox "お題の作成が完了しました。"
End Sub
(隠居じーさん) 2019/02/21(木) 11:42
すみませんでした。m(__)m ↑ の件修正完了です。
Option Explicit Sub 転記_Ver2() 'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。 Const BaseBookName As String = "データ転記02.xlsm" Dim fpath As String, fname As String Dim wb As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr As Range Dim Mtr As Range Dim Mkr As Range Dim snm Dim Snmstr As String Dim SsortA() Dim SsortB() Dim SsortC() Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim n As Long Dim lr As Long Dim N2 As Long Dim t, counter& Dim w_flg As Boolean t = Timer '振り分けする転記先のシート名、並び変えたい順番に左から記入 snm = Array("A", "B", "C", "D") If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then Sheet_Delete snm End If Application.ScreenUpdating = False Set BB = Workbooks(BaseBookName) fpath = BB.Path & "\転記元\" Set sh1 = BB.Worksheets("列見出") fname = Dir(fpath & "*.xls*") Do Until fname = "" DoEvents If fname <> BB.Name Then Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh4 = wb.Worksheets("情報入力シート") Set sh5 = wb.Worksheets("検査シート") Set sh6 = wb.Worksheets("マスタ(都道府県)") Set sh7 = wb.Worksheets("マスタ(管理)") Set Jr = sh4.UsedRange Set Mtr = sh6.Range("C2").CurrentRegion Set Mkr = sh7.Range("B2").CurrentRegion Snmstr = Trim(sh4.Range("B2").Value) '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) On Error Resume Next If Err.Number > 0 Then MsgBox "シート名が設定されていません" & vbNewLine & _ "確認後設定してやり直してください。" On Error GoTo 0 For j = 1 To Windows.Count If ActiveWorkbook.Name <> BaseBookName Then ActiveWorkbook.Close False End If Next Sheet_Delete snm Exit Sub End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" SsortA(n) = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete End If ReDim Preserve SsortA(n) SsortA(n) = sh2.Name n = n + 1 Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")" Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete End If ReDim Preserve SsortB(N2) SsortB(N2) = sh3.Name N2 = N2 + 1 On Error GoTo 0 Rem 情報シート書出 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr For ry = 3 To lr If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = wb.Name) * _ (.Cells(ry, 5) = sh4.Range("F2").Value) Then w_flg = True Exit For End If Next If w_flg Then y = ry w_flg = False End If Write_J y, sh2, sh4, wb 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To Mtr.Rows.Count If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), Mkr.Rows(1), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出 With sh3 y2 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 y2 = IIf(y2 < 7, 7, y2) Write_K y2, sh3, sh4, sh5, wb .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With wb.Close SaveChanges:=False End If fname = Dir() DoEvents Application.StatusBar = counter counter = counter + 1 Loop j = 0: ReDim SsortC(UBound(SsortA) + UBound(SsortB) + 2) For i = 0 To UBound(SsortA) SsortC(j) = SsortA(i) j = j + 1 Next For i = 0 To UBound(SsortB) SsortC(j) = SsortB(i) j = j + 1 Next For i = UBound(SsortC) To 0 Step -1 On Error Resume Next Worksheets(SsortC(i)).Move before:=Worksheets(1) On Error GoTo 0 Next Application.ScreenUpdating = True Application.StatusBar = "" MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Sub Sheet_Delete(ByVal snm As Variant) Dim i As Long Dim j As Long Application.DisplayAlerts = False For j = Worksheets.Count To 1 Step -1 For i = 0 To UBound(snm) If Worksheets(j).Name = "検査シート(" & snm(i) & ")" Or _ Worksheets(j).Name = "情報入力シート(" & snm(i) & ")" Then Worksheets(j).Delete End If Next Next Application.DisplayAlerts = True End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, wb As Workbook) 'sh2 = 情報入力シート,sh4 = 検査シート? With ws '.Range("A" & y).Value = sh2.Range("B2").Value 'マスタ(管理)より管理者コードを取得する必要あり ' .Range("B" & y).Value = sh2.Range("").Value 'ファイル名取得 .Range("C" & y).Value = wb.Name .Range("D" & y).Value = sh2.Range("B2").Value .Range("E" & y).Value = sh2.Range("F2").Value .Range("F" & y).Value = sh2.Range("G2").Value .Range("G" & y).Value = sh2.Range("I2").Value .Range("H" & y).Value = sh2.Range("L2").Value .Range("J" & y).Value = sh2.Range("B4").Value .Range("K" & y).Value = sh2.Range("F4").Value .Range("L" & y).Value = sh2.Range("L4").Value .Range("M" & y).Value = sh2.Range("B5").Value .Range("N" & y).Value = sh2.Range("C5").Value .Range("O" & y).Value = sh2.Range("D5").Value .Range("P" & y).Value = sh2.Range("L5").Value '緯度、経度 .Range("Q" & y).Value = sh2.Range("B6").Value .Range("R" & y).Value = sh2.Range("E6").Value .Range("S" & y).Value = sh2.Range("H6").Value .Range("T" & y).Value = sh2.Range("B8").Value .Range("U" & y).Value = sh2.Range("F8").Value .Range("V" & y).Value = sh2.Range("K8").Value .Range("W" & y).Value = sh2.Range("B9").Value .Range("X" & y).Value = sh2.Range("F9").Value .Range("Y" & y).Value = sh2.Range("K9").Value .Range("Z" & y).Value = sh2.Range("B10").Value .Range("AA" & y).Value = sh2.Range("C10").Value
.Range("AB" & y).Value = sh2.Range("F10").Value .Range("AC" & y).Value = sh2.Range("G10").Value .Range("AD" & y).Value = sh2.Range("H10").Value .Range("AE" & y).Value = sh2.Range("K10").Value .Range("AF" & y).Value = sh2.Range("L10").Value .Range("AG" & y).Value = sh2.Range("B11").Value .Range("AH" & y).Value = sh2.Range("C11").Value .Range("Ay" & y).Value = sh2.Range("F11").Value .Range("AJ" & y).Value = sh2.Range("G11").Value .Range("AK" & y).Value = sh2.Range("K11").Value .Range("AL" & y).Value = sh2.Range("L11").Value .Range("AM" & y).Value = sh2.Range("B12").Value .Range("AN" & y).Value = sh2.Range("C12").Value .Range("AO" & y).Value = sh2.Range("F12").Value .Range("AP" & y).Value = sh2.Range("G12").Value .Range("AQ" & y).Value = sh2.Range("K12").Value .Range("AR" & y).Value = sh2.Range("B14").Value .Range("AS" & y).Value = sh2.Range("E14").Value .Range("AT" & y).Value = sh2.Range("H14").Value .Range("AU" & y).Value = sh2.Range("L14").Value .Range("AV" & y).Value = sh2.Range("B15").Value .Range("AW" & y).Value = sh2.Range("E15").Value .Range("AX" & y).Value = sh2.Range("H15").Value .Range("AY" & y).Value = sh2.Range("L15").Value .Range("AZ" & y).Value = sh2.Range("B16").Value
.Range("BA" & y).Value = sh2.Range("E16").Value .Range("BB" & y).Value = sh2.Range("H16").Value .Range("BC" & y).Value = sh2.Range("L16").Value .Range("BD" & y).Value = sh2.Range("B18").Value .Range("BE" & y).Value = sh2.Range("E18").Value ' .Range("BF" & y).Value = sh2.Range("H18").Value .Range("BG" & y).Value = sh2.Range("I18").Value .Range("BH" & y).Value = sh2.Range("J18").Value .Range("BI" & y).Value = sh2.Range("L18").Value .Range("BJ" & y).Value = sh2.Range("M18").Value .Range("BK" & y).Value = sh2.Range("N18").Value .Range("BL" & y).Value = sh2.Range("B19").Value .Range("BM" & y).Value = sh2.Range("E19").Value .Range("BN" & y).Value = sh2.Range("L19").Value .Range("BO" & y).Value = sh2.Range("B21").Value .Range("BP" & y).Value = sh2.Range("H21").Value .Range("BR" & y).Value = sh2.Range("H18").Value '市町村コードを転記する必要あり ' .Range("BS" & y) = .Range("BT" & y).Value = sh2.Range("B5").Value & sh2.Range("C5").Value .Range("BU" & y).Value = sh2.Range("B6").Value .Range("BV" & y).Value = sh2.Range("E6").Value End With Rem(f) 2019/02/20(水) 11:05 End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, wb As Workbook) Rem 'sh2 = 検査シート, sh4 = 情報入力シート With ws Rem ■検査シートの転記処理部分 (ZU列ではなくZWまでありました) .Range("A" & y2).Value = sh4.Range("B2").Value 'マスタ(管理)より管理者コードを取得する必要あり ' .Range("B" & y2).Value = sh2.Range("").Value 'ファイル名取得 .Range("C" & y2).Value = wb.Name .Range("D" & y2).Value = sh4.Range("B2").Value .Range("E" & y2).Value = sh4.Range("F2").Value .Range("F" & y2).Value = sh4.Range("G2").Value .Range("G" & y2).Value = sh4.Range("I2").Value .Range("H" & y2).Value = sh4.Range("L2").Value '以下結果転記 .Range("J" & y2).Value = sh2.Range("D10").Value .Range("K" & y2).Value = sh2.Range("E10").Value .Range("L" & y2).Value = sh2.Range("F10").Value .Range("M" & y2).Value = sh2.Range("G10").Value .Range("N" & y2).Value = sh2.Range("H10").Value .Range("O" & y2).Value = sh2.Range("I10").Value .Range("P" & y2).Value = sh2.Range("J10").Value .Range("Q" & y2).Value = sh2.Range("K10").Value .Range("R" & y2).Value = sh2.Range("L10").Value .Range("S" & y2).Value = sh2.Range("M10").Value .Range("T" & y2).Value = sh2.Range("N10").Value .Range("U" & y2).Value = sh2.Range("O10").Value .Range("V" & y2).Value = sh2.Range("P10").Value .Range("W" & y2).Value = sh2.Range("Q10").Value .Range("X" & y2).Value = sh2.Range("R10").Value .Range("Y" & y2).Value = sh2.Range("S10").Value .Range("Z" & y2).Value = sh2.Range("T10").Value DoEvents .Range("AA" & y2).Value = sh2.Range("U10").Value .Range("AB" & y2).Value = sh2.Range("V10").Value .Range("AC" & y2).Value = sh2.Range("W10").Value .Range("AD" & y2).Value = sh2.Range("X10").Value .Range("AE" & y2).Value = sh2.Range("D11").Value .Range("AF" & y2).Value = sh2.Range("E11").Value .Range("AG" & y2).Value = sh2.Range("F11").Value .Range("AH" & y2).Value = sh2.Range("G11").Value .Range("AI" & y2).Value = sh2.Range("H11").Value .Range("AJ" & y2).Value = sh2.Range("I11").Value .Range("AK" & y2).Value = sh2.Range("J11").Value .Range("AL" & y2).Value = sh2.Range("K11").Value .Range("AM" & y2).Value = sh2.Range("L11").Value .Range("AN" & y2).Value = sh2.Range("M11").Value .Range("AO" & y2).Value = sh2.Range("N11").Value .Range("AP" & y2).Value = sh2.Range("O11").Value .Range("AQ" & y2).Value = sh2.Range("P11").Value .Range("AR" & y2).Value = sh2.Range("Q11").Value .Range("AS" & y2).Value = sh2.Range("R11").Value .Range("AT" & y2).Value = sh2.Range("S11").Value .Range("AU" & y2).Value = sh2.Range("T11").Value .Range("AV" & y2).Value = sh2.Range("U11").Value .Range("AW" & y2).Value = sh2.Range("V11").Value .Range("AX" & y2).Value = sh2.Range("W11").Value .Range("AY" & y2).Value = sh2.Range("X11").Value .Range("AZ" & y2).Value = sh2.Range("D12").Value .Range("BA" & y2).Value = sh2.Range("E12").Value .Range("BB" & y2).Value = sh2.Range("F12").Value .Range("BC" & y2).Value = sh2.Range("G12").Value .Range("BD" & y2).Value = sh2.Range("H12").Value .Range("BE" & y2).Value = sh2.Range("I12").Value .Range("BF" & y2).Value = sh2.Range("J12").Value .Range("BG" & y2).Value = sh2.Range("K12").Value .Range("BH" & y2).Value = sh2.Range("L12").Value .Range("BI" & y2).Value = sh2.Range("M12").Value .Range("BJ" & y2).Value = sh2.Range("N12").Value .Range("BK" & y2).Value = sh2.Range("O12").Value .Range("BL" & y2).Value = sh2.Range("P12").Value .Range("BM" & y2).Value = sh2.Range("Q12").Value .Range("BN" & y2).Value = sh2.Range("R12").Value .Range("BO" & y2).Value = sh2.Range("S12").Value .Range("BP" & y2).Value = sh2.Range("T12").Value .Range("BQ" & y2).Value = sh2.Range("U12").Value .Range("BR" & y2).Value = sh2.Range("V12").Value .Range("BS" & y2).Value = sh2.Range("W12").Value .Range("BT" & y2).Value = sh2.Range("X12").Value .Range("BU" & y2).Value = sh2.Range("D13").Value .Range("BV" & y2).Value = sh2.Range("E13").Value .Range("BW" & y2).Value = sh2.Range("F13").Value .Range("BX" & y2).Value = sh2.Range("G13").Value .Range("BY" & y2).Value = sh2.Range("H13").Value .Range("BZ" & y2).Value = sh2.Range("I13").Value .Range("CA" & y2).Value = sh2.Range("J13").Value .Range("CB" & y2).Value = sh2.Range("K13").Value .Range("CC" & y2).Value = sh2.Range("L13").Value .Range("CD" & y2).Value = sh2.Range("M13").Value .Range("CE" & y2).Value = sh2.Range("N13").Value .Range("CF" & y2).Value = sh2.Range("O13").Value .Range("CG" & y2).Value = sh2.Range("P13").Value .Range("CH" & y2).Value = sh2.Range("Q13").Value .Range("CI" & y2).Value = sh2.Range("R13").Value .Range("CJ" & y2).Value = sh2.Range("S13").Value .Range("CK" & y2).Value = sh2.Range("T13").Value .Range("CL" & y2).Value = sh2.Range("U13").Value .Range("CM" & y2).Value = sh2.Range("V13").Value .Range("CN" & y2).Value = sh2.Range("W13").Value .Range("CO" & y2).Value = sh2.Range("X13").Value .Range("CP" & y2).Value = sh2.Range("D14").Value .Range("CQ" & y2).Value = sh2.Range("E14").Value .Range("CR" & y2).Value = sh2.Range("F14").Value .Range("CS" & y2).Value = sh2.Range("G14").Value .Range("CT" & y2).Value = sh2.Range("H14").Value .Range("CU" & y2).Value = sh2.Range("I14").Value .Range("CV" & y2).Value = sh2.Range("J14").Value .Range("CW" & y2).Value = sh2.Range("K14").Value .Range("CX" & y2).Value = sh2.Range("L14").Value .Range("CY" & y2).Value = sh2.Range("M14").Value .Range("CZ" & y2).Value = sh2.Range("N14").Value .Range("DA" & y2).Value = sh2.Range("O14").Value .Range("DB" & y2).Value = sh2.Range("P14").Value .Range("DC" & y2).Value = sh2.Range("Q14").Value .Range("DD" & y2).Value = sh2.Range("R14").Value .Range("DE" & y2).Value = sh2.Range("S14").Value .Range("DF" & y2).Value = sh2.Range("T14").Value .Range("DG" & y2).Value = sh2.Range("U14").Value .Range("DH" & y2).Value = sh2.Range("V14").Value .Range("DI" & y2).Value = sh2.Range("W14").Value .Range("DJ" & y2).Value = sh2.Range("X14").Value .Range("DK" & y2).Value = sh2.Range("D15").Value .Range("DL" & y2).Value = sh2.Range("E15").Value .Range("DM" & y2).Value = sh2.Range("F15").Value .Range("DN" & y2).Value = sh2.Range("G15").Value .Range("DO" & y2).Value = sh2.Range("H15").Value .Range("DP" & y2).Value = sh2.Range("I15").Value .Range("DQ" & y2).Value = sh2.Range("J15").Value .Range("DR" & y2).Value = sh2.Range("K15").Value .Range("DS" & y2).Value = sh2.Range("L15").Value .Range("DT" & y2).Value = sh2.Range("M15").Value .Range("DU" & y2).Value = sh2.Range("N15").Value .Range("DV" & y2).Value = sh2.Range("O15").Value .Range("DW" & y2).Value = sh2.Range("P15").Value .Range("DX" & y2).Value = sh2.Range("Q15").Value .Range("DY" & y2).Value = sh2.Range("R15").Value .Range("DZ" & y2).Value = sh2.Range("S15").Value .Range("EA" & y2).Value = sh2.Range("T15").Value .Range("EB" & y2).Value = sh2.Range("U15").Value .Range("EC" & y2).Value = sh2.Range("V15").Value .Range("ED" & y2).Value = sh2.Range("W15").Value .Range("EE" & y2).Value = sh2.Range("X15").Value .Range("EF" & y2).Value = sh2.Range("D16").Value .Range("EG" & y2).Value = sh2.Range("E16").Value .Range("EH" & y2).Value = sh2.Range("F16").Value .Range("EI" & y2).Value = sh2.Range("G16").Value .Range("EJ" & y2).Value = sh2.Range("H16").Value .Range("EK" & y2).Value = sh2.Range("I16").Value .Range("EL" & y2).Value = sh2.Range("J16").Value .Range("EM" & y2).Value = sh2.Range("K16").Value .Range("EN" & y2).Value = sh2.Range("L16").Value .Range("EO" & y2).Value = sh2.Range("M16").Value .Range("EP" & y2).Value = sh2.Range("N16").Value .Range("EQ" & y2).Value = sh2.Range("O16").Value .Range("ER" & y2).Value = sh2.Range("P16").Value .Range("ES" & y2).Value = sh2.Range("Q16").Value .Range("ET" & y2).Value = sh2.Range("R16").Value .Range("EU" & y2).Value = sh2.Range("S16").Value .Range("EV" & y2).Value = sh2.Range("T16").Value .Range("EW" & y2).Value = sh2.Range("U16").Value .Range("EX" & y2).Value = sh2.Range("V16").Value .Range("EY" & y2).Value = sh2.Range("W16").Value .Range("EZ" & y2).Value = sh2.Range("X16").Value .Range("FA" & y2).Value = sh2.Range("D17").Value .Range("FB" & y2).Value = sh2.Range("E17").Value .Range("FC" & y2).Value = sh2.Range("F17").Value .Range("FD" & y2).Value = sh2.Range("G17").Value .Range("FE" & y2).Value = sh2.Range("H17").Value .Range("FF" & y2).Value = sh2.Range("I17").Value .Range("FG" & y2).Value = sh2.Range("J17").Value .Range("FH" & y2).Value = sh2.Range("K17").Value .Range("FI" & y2).Value = sh2.Range("L17").Value .Range("FJ" & y2).Value = sh2.Range("M17").Value .Range("FK" & y2).Value = sh2.Range("N17").Value .Range("FL" & y2).Value = sh2.Range("O17").Value .Range("FM" & y2).Value = sh2.Range("P17").Value .Range("FN" & y2).Value = sh2.Range("Q17").Value .Range("FO" & y2).Value = sh2.Range("R17").Value .Range("FP" & y2).Value = sh2.Range("S17").Value .Range("FQ" & y2).Value = sh2.Range("T17").Value .Range("FR" & y2).Value = sh2.Range("U17").Value .Range("FS" & y2).Value = sh2.Range("V17").Value .Range("FT" & y2).Value = sh2.Range("W17").Value .Range("FU" & y2).Value = sh2.Range("X17").Value .Range("FV" & y2).Value = sh2.Range("D18").Value .Range("FW" & y2).Value = sh2.Range("E18").Value .Range("FX" & y2).Value = sh2.Range("F18").Value .Range("FY" & y2).Value = sh2.Range("G18").Value .Range("FZ" & y2).Value = sh2.Range("H18").Value .Range("GA" & y2).Value = sh2.Range("I18").Value .Range("GB" & y2).Value = sh2.Range("J18").Value .Range("GC" & y2).Value = sh2.Range("K18").Value .Range("GD" & y2).Value = sh2.Range("L18").Value .Range("GE" & y2).Value = sh2.Range("M18").Value .Range("GF" & y2).Value = sh2.Range("N18").Value .Range("GG" & y2).Value = sh2.Range("O18").Value .Range("GH" & y2).Value = sh2.Range("P18").Value .Range("GI" & y2).Value = sh2.Range("Q18").Value .Range("GJ" & y2).Value = sh2.Range("R18").Value .Range("GK" & y2).Value = sh2.Range("S18").Value .Range("GL" & y2).Value = sh2.Range("T18").Value .Range("GM" & y2).Value = sh2.Range("U18").Value .Range("GN" & y2).Value = sh2.Range("V18").Value .Range("GO" & y2).Value = sh2.Range("W18").Value .Range("GP" & y2).Value = sh2.Range("X18").Value .Range("GQ" & y2).Value = sh2.Range("D19").Value .Range("GR" & y2).Value = sh2.Range("E19").Value .Range("GS" & y2).Value = sh2.Range("F19").Value .Range("GT" & y2).Value = sh2.Range("G19").Value .Range("GU" & y2).Value = sh2.Range("H19").Value .Range("GV" & y2).Value = sh2.Range("I19").Value .Range("GW" & y2).Value = sh2.Range("J19").Value .Range("GX" & y2).Value = sh2.Range("K19").Value .Range("GY" & y2).Value = sh2.Range("L19").Value .Range("GZ" & y2).Value = sh2.Range("M19").Value .Range("HA" & y2).Value = sh2.Range("N19").Value .Range("HB" & y2).Value = sh2.Range("O19").Value .Range("HC" & y2).Value = sh2.Range("P19").Value .Range("HD" & y2).Value = sh2.Range("Q19").Value .Range("HE" & y2).Value = sh2.Range("R19").Value .Range("HF" & y2).Value = sh2.Range("S19").Value .Range("HG" & y2).Value = sh2.Range("T19").Value .Range("HH" & y2).Value = sh2.Range("U19").Value .Range("HI" & y2).Value = sh2.Range("V19").Value .Range("HJ" & y2).Value = sh2.Range("W19").Value .Range("HK" & y2).Value = sh2.Range("X19").Value .Range("HL" & y2).Value = sh2.Range("D20").Value .Range("HM" & y2).Value = sh2.Range("E20").Value .Range("HN" & y2).Value = sh2.Range("F20").Value .Range("HO" & y2).Value = sh2.Range("G20").Value .Range("HP" & y2).Value = sh2.Range("H20").Value .Range("HQ" & y2).Value = sh2.Range("I20").Value .Range("HR" & y2).Value = sh2.Range("J20").Value .Range("HS" & y2).Value = sh2.Range("K20").Value .Range("HT" & y2).Value = sh2.Range("L20").Value .Range("HU" & y2).Value = sh2.Range("M20").Value .Range("HV" & y2).Value = sh2.Range("N20").Value .Range("HW" & y2).Value = sh2.Range("O20").Value .Range("HX" & y2).Value = sh2.Range("P20").Value .Range("HY" & y2).Value = sh2.Range("Q20").Value .Range("HZ" & y2).Value = sh2.Range("R20").Value .Range("IA" & y2).Value = sh2.Range("S20").Value .Range("IB" & y2).Value = sh2.Range("T20").Value .Range("IC" & y2).Value = sh2.Range("U20").Value .Range("ID" & y2).Value = sh2.Range("V20").Value .Range("IE" & y2).Value = sh2.Range("W20").Value .Range("IF" & y2).Value = sh2.Range("X20").Value .Range("IG" & y2).Value = sh2.Range("D21").Value .Range("IH" & y2).Value = sh2.Range("E21").Value .Range("II" & y2).Value = sh2.Range("F21").Value .Range("IJ" & y2).Value = sh2.Range("G21").Value .Range("IK" & y2).Value = sh2.Range("H21").Value .Range("IL" & y2).Value = sh2.Range("I21").Value .Range("IM" & y2).Value = sh2.Range("J21").Value .Range("IN" & y2).Value = sh2.Range("K21").Value .Range("IO" & y2).Value = sh2.Range("L21").Value .Range("IP" & y2).Value = sh2.Range("M21").Value .Range("IQ" & y2).Value = sh2.Range("N21").Value .Range("IR" & y2).Value = sh2.Range("O21").Value .Range("IS" & y2).Value = sh2.Range("P21").Value .Range("IT" & y2).Value = sh2.Range("Q21").Value .Range("IU" & y2).Value = sh2.Range("R21").Value .Range("IV" & y2).Value = sh2.Range("S21").Value .Range("IW" & y2).Value = sh2.Range("T21").Value .Range("IX" & y2).Value = sh2.Range("U21").Value .Range("IY" & y2).Value = sh2.Range("V21").Value .Range("IZ" & y2).Value = sh2.Range("W21").Value .Range("JA" & y2).Value = sh2.Range("X21").Value .Range("JB" & y2).Value = sh2.Range("Y10").Value .Range("JC" & y2).Value = sh2.Range("Z10").Value .Range("JD" & y2).Value = sh2.Range("D22").Value .Range("JE" & y2).Value = sh2.Range("E22").Value .Range("JF" & y2).Value = sh2.Range("F22").Value .Range("JG" & y2).Value = sh2.Range("G22").Value .Range("JH" & y2).Value = sh2.Range("H22").Value .Range("JI" & y2).Value = sh2.Range("I22").Value .Range("JJ" & y2).Value = sh2.Range("J22").Value .Range("JK" & y2).Value = sh2.Range("K22").Value .Range("JL" & y2).Value = sh2.Range("L22").Value .Range("JM" & y2).Value = sh2.Range("M22").Value .Range("JN" & y2).Value = sh2.Range("N22").Value .Range("JO" & y2).Value = sh2.Range("O22").Value .Range("JP" & y2).Value = sh2.Range("P22").Value .Range("JQ" & y2).Value = sh2.Range("Q22").Value .Range("JR" & y2).Value = sh2.Range("R22").Value .Range("JS" & y2).Value = sh2.Range("S22").Value .Range("JT" & y2).Value = sh2.Range("T22").Value .Range("JU" & y2).Value = sh2.Range("U22").Value .Range("JV" & y2).Value = sh2.Range("V22").Value .Range("JW" & y2).Value = sh2.Range("W22").Value .Range("JX" & y2).Value = sh2.Range("X22").Value .Range("JY" & y2).Value = sh2.Range("D23").Value .Range("JZ" & y2).Value = sh2.Range("E23").Value .Range("KA" & y2).Value = sh2.Range("F23").Value .Range("KB" & y2).Value = sh2.Range("G23").Value .Range("KC" & y2).Value = sh2.Range("H23").Value .Range("KD" & y2).Value = sh2.Range("I23").Value .Range("KE" & y2).Value = sh2.Range("J23").Value .Range("KF" & y2).Value = sh2.Range("K23").Value .Range("KG" & y2).Value = sh2.Range("L23").Value .Range("KH" & y2).Value = sh2.Range("M23").Value .Range("KI" & y2).Value = sh2.Range("N23").Value .Range("KJ" & y2).Value = sh2.Range("O23").Value .Range("KK" & y2).Value = sh2.Range("P23").Value .Range("KL" & y2).Value = sh2.Range("Q23").Value .Range("KM" & y2).Value = sh2.Range("R23").Value .Range("KN" & y2).Value = sh2.Range("S23").Value .Range("KO" & y2).Value = sh2.Range("T23").Value .Range("KP" & y2).Value = sh2.Range("U23").Value .Range("KQ" & y2).Value = sh2.Range("V23").Value .Range("KR" & y2).Value = sh2.Range("W23").Value .Range("KS" & y2).Value = sh2.Range("X23").Value .Range("KT" & y2).Value = sh2.Range("D24").Value .Range("KU" & y2).Value = sh2.Range("E24").Value .Range("KV" & y2).Value = sh2.Range("F24").Value .Range("KW" & y2).Value = sh2.Range("G24").Value .Range("KX" & y2).Value = sh2.Range("H24").Value .Range("KY" & y2).Value = sh2.Range("I24").Value .Range("KZ" & y2).Value = sh2.Range("J24").Value .Range("LA" & y2).Value = sh2.Range("K24").Value .Range("LB" & y2).Value = sh2.Range("L24").Value .Range("LC" & y2).Value = sh2.Range("M24").Value .Range("LD" & y2).Value = sh2.Range("N24").Value .Range("LE" & y2).Value = sh2.Range("O24").Value .Range("LF" & y2).Value = sh2.Range("P24").Value .Range("LG" & y2).Value = sh2.Range("Q24").Value .Range("LH" & y2).Value = sh2.Range("R24").Value .Range("LI" & y2).Value = sh2.Range("S24").Value .Range("LJ" & y2).Value = sh2.Range("T24").Value .Range("LK" & y2).Value = sh2.Range("U24").Value .Range("LL" & y2).Value = sh2.Range("V24").Value .Range("LM" & y2).Value = sh2.Range("W24").Value .Range("LN" & y2).Value = sh2.Range("X24").Value .Range("LO" & y2).Value = sh2.Range("D25").Value .Range("LP" & y2).Value = sh2.Range("E25").Value .Range("LQ" & y2).Value = sh2.Range("F25").Value .Range("LR" & y2).Value = sh2.Range("G25").Value .Range("LS" & y2).Value = sh2.Range("H25").Value .Range("LT" & y2).Value = sh2.Range("I25").Value .Range("LU" & y2).Value = sh2.Range("J25").Value .Range("LV" & y2).Value = sh2.Range("K25").Value .Range("LW" & y2).Value = sh2.Range("L25").Value .Range("LX" & y2).Value = sh2.Range("M25").Value .Range("LY" & y2).Value = sh2.Range("N25").Value .Range("LZ" & y2).Value = sh2.Range("O25").Value .Range("MA" & y2).Value = sh2.Range("P25").Value .Range("MB" & y2).Value = sh2.Range("Q25").Value .Range("MC" & y2).Value = sh2.Range("R25").Value .Range("MD" & y2).Value = sh2.Range("S25").Value .Range("ME" & y2).Value = sh2.Range("T25").Value .Range("MF" & y2).Value = sh2.Range("U25").Value .Range("MG" & y2).Value = sh2.Range("V25").Value .Range("MH" & y2).Value = sh2.Range("W25").Value .Range("MI" & y2).Value = sh2.Range("X25").Value .Range("MJ" & y2).Value = sh2.Range("D26").Value .Range("MK" & y2).Value = sh2.Range("E26").Value .Range("ML" & y2).Value = sh2.Range("F26").Value .Range("MM" & y2).Value = sh2.Range("G26").Value .Range("MN" & y2).Value = sh2.Range("H26").Value .Range("MO" & y2).Value = sh2.Range("I26").Value .Range("MP" & y2).Value = sh2.Range("J26").Value .Range("MQ" & y2).Value = sh2.Range("K26").Value .Range("MR" & y2).Value = sh2.Range("L26").Value .Range("MS" & y2).Value = sh2.Range("M26").Value .Range("MT" & y2).Value = sh2.Range("N26").Value .Range("MU" & y2).Value = sh2.Range("O26").Value .Range("MV" & y2).Value = sh2.Range("P26").Value .Range("MW" & y2).Value = sh2.Range("Q26").Value .Range("MX" & y2).Value = sh2.Range("R26").Value .Range("MY" & y2).Value = sh2.Range("S26").Value .Range("MZ" & y2).Value = sh2.Range("T26").Value .Range("NA" & y2).Value = sh2.Range("U26").Value .Range("NB" & y2).Value = sh2.Range("V26").Value .Range("NC" & y2).Value = sh2.Range("W26").Value .Range("ND" & y2).Value = sh2.Range("X26").Value .Range("NE" & y2).Value = sh2.Range("D27").Value .Range("NF" & y2).Value = sh2.Range("E27").Value .Range("NG" & y2).Value = sh2.Range("F27").Value .Range("NH" & y2).Value = sh2.Range("G27").Value .Range("NI" & y2).Value = sh2.Range("H27").Value .Range("NJ" & y2).Value = sh2.Range("I27").Value .Range("NK" & y2).Value = sh2.Range("J27").Value .Range("NL" & y2).Value = sh2.Range("K27").Value .Range("NM" & y2).Value = sh2.Range("L27").Value .Range("NN" & y2).Value = sh2.Range("M27").Value .Range("NO" & y2).Value = sh2.Range("N27").Value .Range("NP" & y2).Value = sh2.Range("O27").Value .Range("NQ" & y2).Value = sh2.Range("P27").Value .Range("NR" & y2).Value = sh2.Range("Q27").Value .Range("NS" & y2).Value = sh2.Range("R27").Value .Range("NT" & y2).Value = sh2.Range("S27").Value .Range("NU" & y2).Value = sh2.Range("T27").Value .Range("NV" & y2).Value = sh2.Range("U27").Value .Range("NW" & y2).Value = sh2.Range("V27").Value .Range("NX" & y2).Value = sh2.Range("W27").Value .Range("NY" & y2).Value = sh2.Range("X27").Value .Range("NZ" & y2).Value = sh2.Range("Y22").Value .Range("OA" & y2).Value = sh2.Range("Z22").Value .Range("OB" & y2).Value = sh2.Range("D28").Value .Range("OC" & y2).Value = sh2.Range("E28").Value .Range("OD" & y2).Value = sh2.Range("F28").Value .Range("OE" & y2).Value = sh2.Range("G28").Value .Range("OF" & y2).Value = sh2.Range("H28").Value .Range("OG" & y2).Value = sh2.Range("I28").Value .Range("OH" & y2).Value = sh2.Range("J28").Value .Range("OI" & y2).Value = sh2.Range("K28").Value .Range("OJ" & y2).Value = sh2.Range("L28").Value .Range("OK" & y2).Value = sh2.Range("M28").Value .Range("OL" & y2).Value = sh2.Range("N28").Value .Range("OM" & y2).Value = sh2.Range("O28").Value .Range("ON" & y2).Value = sh2.Range("P28").Value .Range("OO" & y2).Value = sh2.Range("Q28").Value .Range("OP" & y2).Value = sh2.Range("R28").Value .Range("OQ" & y2).Value = sh2.Range("S28").Value .Range("OR" & y2).Value = sh2.Range("T28").Value .Range("OS" & y2).Value = sh2.Range("U28").Value .Range("OT" & y2).Value = sh2.Range("V28").Value .Range("OU" & y2).Value = sh2.Range("W28").Value .Range("OV" & y2).Value = sh2.Range("X28").Value .Range("OW" & y2).Value = sh2.Range("D29").Value .Range("OX" & y2).Value = sh2.Range("E29").Value .Range("OY" & y2).Value = sh2.Range("F29").Value .Range("OZ" & y2).Value = sh2.Range("G29").Value .Range("PA" & y2).Value = sh2.Range("H29").Value .Range("PB" & y2).Value = sh2.Range("I29").Value .Range("PC" & y2).Value = sh2.Range("J29").Value .Range("PD" & y2).Value = sh2.Range("K29").Value .Range("PE" & y2).Value = sh2.Range("L29").Value .Range("PF" & y2).Value = sh2.Range("M29").Value .Range("PG" & y2).Value = sh2.Range("N29").Value .Range("PH" & y2).Value = sh2.Range("O29").Value .Range("PI" & y2).Value = sh2.Range("P29").Value .Range("PJ" & y2).Value = sh2.Range("Q29").Value .Range("PK" & y2).Value = sh2.Range("R29").Value .Range("PL" & y2).Value = sh2.Range("S29").Value .Range("PM" & y2).Value = sh2.Range("T29").Value .Range("PN" & y2).Value = sh2.Range("U29").Value .Range("PO" & y2).Value = sh2.Range("V29").Value .Range("PP" & y2).Value = sh2.Range("W29").Value .Range("PQ" & y2).Value = sh2.Range("X29").Value .Range("PR" & y2).Value = sh2.Range("D30").Value .Range("PS" & y2).Value = sh2.Range("E30").Value .Range("PT" & y2).Value = sh2.Range("F30").Value .Range("PU" & y2).Value = sh2.Range("G30").Value .Range("PV" & y2).Value = sh2.Range("H30").Value .Range("PW" & y2).Value = sh2.Range("I30").Value .Range("PX" & y2).Value = sh2.Range("J30").Value .Range("PY" & y2).Value = sh2.Range("K30").Value .Range("PZ" & y2).Value = sh2.Range("L30").Value .Range("QA" & y2).Value = sh2.Range("M30").Value .Range("QB" & y2).Value = sh2.Range("N30").Value .Range("QC" & y2).Value = sh2.Range("O30").Value .Range("QD" & y2).Value = sh2.Range("P30").Value .Range("QE" & y2).Value = sh2.Range("Q30").Value .Range("QF" & y2).Value = sh2.Range("R30").Value .Range("QG" & y2).Value = sh2.Range("S30").Value .Range("QH" & y2).Value = sh2.Range("T30").Value .Range("QI" & y2).Value = sh2.Range("U30").Value .Range("QJ" & y2).Value = sh2.Range("V30").Value .Range("QK" & y2).Value = sh2.Range("W30").Value .Range("QL" & y2).Value = sh2.Range("X30").Value .Range("QM" & y2).Value = sh2.Range("D31").Value .Range("QN" & y2).Value = sh2.Range("E31").Value .Range("QO" & y2).Value = sh2.Range("F31").Value .Range("QP" & y2).Value = sh2.Range("G31").Value .Range("QQ" & y2).Value = sh2.Range("H31").Value .Range("QR" & y2).Value = sh2.Range("I31").Value .Range("QS" & y2).Value = sh2.Range("J31").Value .Range("QT" & y2).Value = sh2.Range("K31").Value .Range("QU" & y2).Value = sh2.Range("L31").Value .Range("QV" & y2).Value = sh2.Range("M31").Value .Range("QW" & y2).Value = sh2.Range("N31").Value .Range("QX" & y2).Value = sh2.Range("O31").Value .Range("QY" & y2).Value = sh2.Range("P31").Value .Range("QZ" & y2).Value = sh2.Range("Q31").Value .Range("RA" & y2).Value = sh2.Range("R31").Value .Range("RB" & y2).Value = sh2.Range("S31").Value .Range("RC" & y2).Value = sh2.Range("T31").Value .Range("RD" & y2).Value = sh2.Range("U31").Value .Range("RE" & y2).Value = sh2.Range("V31").Value .Range("RF" & y2).Value = sh2.Range("W31").Value .Range("RG" & y2).Value = sh2.Range("X31").Value .Range("RH" & y2).Value = sh2.Range("D32").Value .Range("RI" & y2).Value = sh2.Range("E32").Value .Range("RJ" & y2).Value = sh2.Range("F32").Value .Range("RK" & y2).Value = sh2.Range("G32").Value .Range("RL" & y2).Value = sh2.Range("H32").Value .Range("RM" & y2).Value = sh2.Range("I32").Value .Range("RN" & y2).Value = sh2.Range("J32").Value .Range("RO" & y2).Value = sh2.Range("K32").Value .Range("RP" & y2).Value = sh2.Range("L32").Value .Range("RQ" & y2).Value = sh2.Range("M32").Value .Range("RR" & y2).Value = sh2.Range("N32").Value .Range("RS" & y2).Value = sh2.Range("O32").Value .Range("RT" & y2).Value = sh2.Range("P32").Value .Range("RU" & y2).Value = sh2.Range("Q32").Value .Range("RV" & y2).Value = sh2.Range("R32").Value .Range("RW" & y2).Value = sh2.Range("S32").Value .Range("RX" & y2).Value = sh2.Range("T32").Value .Range("RY" & y2).Value = sh2.Range("U32").Value .Range("RZ" & y2).Value = sh2.Range("V32").Value .Range("SA" & y2).Value = sh2.Range("W32").Value .Range("SB" & y2).Value = sh2.Range("X32").Value .Range("SC" & y2).Value = sh2.Range("D33").Value .Range("SD" & y2).Value = sh2.Range("E33").Value .Range("SE" & y2).Value = sh2.Range("F33").Value .Range("SF" & y2).Value = sh2.Range("G33").Value .Range("SG" & y2).Value = sh2.Range("H33").Value .Range("SH" & y2).Value = sh2.Range("I33").Value .Range("SI" & y2).Value = sh2.Range("J33").Value .Range("SJ" & y2).Value = sh2.Range("K33").Value .Range("SK" & y2).Value = sh2.Range("L33").Value .Range("SL" & y2).Value = sh2.Range("M33").Value .Range("SM" & y2).Value = sh2.Range("N33").Value .Range("SN" & y2).Value = sh2.Range("O33").Value .Range("SO" & y2).Value = sh2.Range("P33").Value .Range("SP" & y2).Value = sh2.Range("Q33").Value .Range("SQ" & y2).Value = sh2.Range("R33").Value .Range("SR" & y2).Value = sh2.Range("S33").Value .Range("SS" & y2).Value = sh2.Range("T33").Value .Range("ST" & y2).Value = sh2.Range("U33").Value .Range("SU" & y2).Value = sh2.Range("V33").Value .Range("SV" & y2).Value = sh2.Range("W33").Value .Range("SW" & y2).Value = sh2.Range("X33").Value .Range("SX" & y2).Value = sh2.Range("Y28").Value .Range("SY" & y2).Value = sh2.Range("Z28").Value .Range("SZ" & y2).Value = sh2.Range("D34").Value .Range("TA" & y2).Value = sh2.Range("E34").Value .Range("TB" & y2).Value = sh2.Range("F34").Value .Range("TC" & y2).Value = sh2.Range("G34").Value .Range("TD" & y2).Value = sh2.Range("H34").Value .Range("TE" & y2).Value = sh2.Range("I34").Value .Range("TF" & y2).Value = sh2.Range("J34").Value .Range("TG" & y2).Value = sh2.Range("K34").Value .Range("TH" & y2).Value = sh2.Range("L34").Value .Range("TI" & y2).Value = sh2.Range("M34").Value .Range("TJ" & y2).Value = sh2.Range("N34").Value .Range("TK" & y2).Value = sh2.Range("O34").Value .Range("TL" & y2).Value = sh2.Range("P34").Value .Range("TM" & y2).Value = sh2.Range("Q34").Value .Range("TN" & y2).Value = sh2.Range("R34").Value .Range("TO" & y2).Value = sh2.Range("S34").Value .Range("TP" & y2).Value = sh2.Range("T34").Value .Range("TQ" & y2).Value = sh2.Range("U34").Value .Range("TR" & y2).Value = sh2.Range("V34").Value .Range("TS" & y2).Value = sh2.Range("W34").Value .Range("TT" & y2).Value = sh2.Range("X34").Value .Range("TU" & y2).Value = sh2.Range("D35").Value .Range("TV" & y2).Value = sh2.Range("E35").Value .Range("TW" & y2).Value = sh2.Range("F35").Value .Range("TX" & y2).Value = sh2.Range("G35").Value .Range("TY" & y2).Value = sh2.Range("H35").Value .Range("TZ" & y2).Value = sh2.Range("I35").Value .Range("UA" & y2).Value = sh2.Range("J35").Value .Range("UB" & y2).Value = sh2.Range("K35").Value .Range("UC" & y2).Value = sh2.Range("L35").Value .Range("UD" & y2).Value = sh2.Range("M35").Value .Range("UE" & y2).Value = sh2.Range("N35").Value .Range("UF" & y2).Value = sh2.Range("O35").Value .Range("UG" & y2).Value = sh2.Range("P35").Value .Range("UH" & y2).Value = sh2.Range("Q35").Value .Range("UI" & y2).Value = sh2.Range("R35").Value .Range("UJ" & y2).Value = sh2.Range("S35").Value .Range("UK" & y2).Value = sh2.Range("T35").Value .Range("UL" & y2).Value = sh2.Range("U35").Value .Range("UM" & y2).Value = sh2.Range("V35").Value .Range("UN" & y2).Value = sh2.Range("W35").Value .Range("UO" & y2).Value = sh2.Range("X35").Value .Range("UP" & y2).Value = sh2.Range("Y34").Value .Range("UQ" & y2).Value = sh2.Range("Z34").Value .Range("UR" & y2).Value = sh2.Range("D36").Value .Range("US" & y2).Value = sh2.Range("E36").Value .Range("UT" & y2).Value = sh2.Range("F36").Value .Range("UU" & y2).Value = sh2.Range("G36").Value .Range("UV" & y2).Value = sh2.Range("H36").Value .Range("UW" & y2).Value = sh2.Range("I36").Value .Range("UX" & y2).Value = sh2.Range("J36").Value .Range("UY" & y2).Value = sh2.Range("K36").Value .Range("UZ" & y2).Value = sh2.Range("L36").Value .Range("VA" & y2).Value = sh2.Range("M36").Value .Range("VB" & y2).Value = sh2.Range("N36").Value .Range("VC" & y2).Value = sh2.Range("O36").Value .Range("VD" & y2).Value = sh2.Range("P36").Value .Range("VE" & y2).Value = sh2.Range("Q36").Value .Range("VF" & y2).Value = sh2.Range("R36").Value .Range("VG" & y2).Value = sh2.Range("S36").Value .Range("VH" & y2).Value = sh2.Range("T36").Value .Range("VI" & y2).Value = sh2.Range("U36").Value .Range("VJ" & y2).Value = sh2.Range("V36").Value .Range("VK" & y2).Value = sh2.Range("W36").Value .Range("VL" & y2).Value = sh2.Range("X36").Value .Range("VM" & y2).Value = sh2.Range("D37").Value .Range("VN" & y2).Value = sh2.Range("E37").Value .Range("VO" & y2).Value = sh2.Range("F37").Value .Range("VP" & y2).Value = sh2.Range("G37").Value .Range("VQ" & y2).Value = sh2.Range("H37").Value .Range("VR" & y2).Value = sh2.Range("I37").Value .Range("VS" & y2).Value = sh2.Range("J37").Value .Range("VT" & y2).Value = sh2.Range("K37").Value .Range("VU" & y2).Value = sh2.Range("L37").Value .Range("VV" & y2).Value = sh2.Range("M37").Value .Range("VW" & y2).Value = sh2.Range("N37").Value .Range("VX" & y2).Value = sh2.Range("O37").Value .Range("VY" & y2).Value = sh2.Range("P37").Value .Range("VZ" & y2).Value = sh2.Range("Q37").Value .Range("WA" & y2).Value = sh2.Range("R37").Value .Range("WB" & y2).Value = sh2.Range("S37").Value .Range("WC" & y2).Value = sh2.Range("T37").Value .Range("WD" & y2).Value = sh2.Range("U37").Value .Range("WE" & y2).Value = sh2.Range("V37").Value .Range("WF" & y2).Value = sh2.Range("W37").Value .Range("WG" & y2).Value = sh2.Range("X37").Value .Range("WH" & y2).Value = sh2.Range("Y36").Value .Range("WI" & y2).Value = sh2.Range("Z36").Value .Range("WJ" & y2).Value = sh2.Range("D38").Value .Range("WK" & y2).Value = sh2.Range("E38").Value .Range("WL" & y2).Value = sh2.Range("F38").Value .Range("WM" & y2).Value = sh2.Range("G38").Value .Range("WN" & y2).Value = sh2.Range("H38").Value .Range("WO" & y2).Value = sh2.Range("I38").Value .Range("WP" & y2).Value = sh2.Range("J38").Value .Range("WQ" & y2).Value = sh2.Range("K38").Value .Range("WR" & y2).Value = sh2.Range("L38").Value .Range("WS" & y2).Value = sh2.Range("M38").Value .Range("WT" & y2).Value = sh2.Range("N38").Value .Range("WU" & y2).Value = sh2.Range("O38").Value .Range("WV" & y2).Value = sh2.Range("P38").Value .Range("WW" & y2).Value = sh2.Range("Q38").Value .Range("WX" & y2).Value = sh2.Range("R38").Value .Range("WY" & y2).Value = sh2.Range("S38").Value .Range("WZ" & y2).Value = sh2.Range("T38").Value .Range("XA" & y2).Value = sh2.Range("U38").Value .Range("XB" & y2).Value = sh2.Range("V38").Value .Range("XC" & y2).Value = sh2.Range("W38").Value .Range("XD" & y2).Value = sh2.Range("X38").Value .Range("XE" & y2).Value = sh2.Range("D39").Value .Range("XF" & y2).Value = sh2.Range("E39").Value .Range("XG" & y2).Value = sh2.Range("F39").Value .Range("XH" & y2).Value = sh2.Range("G39").Value .Range("XI" & y2).Value = sh2.Range("H39").Value .Range("XJ" & y2).Value = sh2.Range("I39").Value .Range("XK" & y2).Value = sh2.Range("J39").Value .Range("XL" & y2).Value = sh2.Range("K39").Value .Range("XM" & y2).Value = sh2.Range("L39").Value .Range("XN" & y2).Value = sh2.Range("M39").Value .Range("XO" & y2).Value = sh2.Range("N39").Value .Range("XP" & y2).Value = sh2.Range("O39").Value .Range("XQ" & y2).Value = sh2.Range("P39").Value .Range("XR" & y2).Value = sh2.Range("Q39").Value .Range("XS" & y2).Value = sh2.Range("R39").Value .Range("XT" & y2).Value = sh2.Range("S39").Value .Range("XU" & y2).Value = sh2.Range("T39").Value .Range("XV" & y2).Value = sh2.Range("U39").Value .Range("XW" & y2).Value = sh2.Range("V39").Value .Range("XX" & y2).Value = sh2.Range("W39").Value .Range("XY" & y2).Value = sh2.Range("X39").Value .Range("XZ" & y2).Value = sh2.Range("D40").Value .Range("YA" & y2).Value = sh2.Range("E40").Value .Range("YB" & y2).Value = sh2.Range("F40").Value .Range("YC" & y2).Value = sh2.Range("G40").Value .Range("YD" & y2).Value = sh2.Range("H40").Value .Range("YE" & y2).Value = sh2.Range("I40").Value .Range("YF" & y2).Value = sh2.Range("J40").Value .Range("YG" & y2).Value = sh2.Range("K40").Value .Range("YH" & y2).Value = sh2.Range("L40").Value .Range("YI" & y2).Value = sh2.Range("M40").Value .Range("YJ" & y2).Value = sh2.Range("N40").Value .Range("YK" & y2).Value = sh2.Range("O40").Value .Range("YL" & y2).Value = sh2.Range("P40").Value .Range("YM" & y2).Value = sh2.Range("Q40").Value .Range("YN" & y2).Value = sh2.Range("R40").Value .Range("YO" & y2).Value = sh2.Range("S40").Value .Range("YP" & y2).Value = sh2.Range("T40").Value .Range("YQ" & y2).Value = sh2.Range("U40").Value .Range("YR" & y2).Value = sh2.Range("V40").Value .Range("YS" & y2).Value = sh2.Range("W40").Value .Range("YT" & y2).Value = sh2.Range("X40").Value .Range("YU" & y2).Value = sh2.Range("D41").Value .Range("YV" & y2).Value = sh2.Range("E41").Value .Range("YW" & y2).Value = sh2.Range("F41").Value .Range("YX" & y2).Value = sh2.Range("G41").Value .Range("YY" & y2).Value = sh2.Range("H41").Value .Range("YZ" & y2).Value = sh2.Range("I41").Value .Range("ZA" & y2).Value = sh2.Range("J41").Value .Range("ZB" & y2).Value = sh2.Range("K41").Value .Range("ZC" & y2).Value = sh2.Range("L41").Value .Range("ZD" & y2).Value = sh2.Range("M41").Value .Range("ZE" & y2).Value = sh2.Range("N41").Value .Range("ZF" & y2).Value = sh2.Range("O41").Value .Range("ZG" & y2).Value = sh2.Range("P41").Value .Range("ZH" & y2).Value = sh2.Range("Q41").Value .Range("ZI" & y2).Value = sh2.Range("R41").Value .Range("ZJ" & y2).Value = sh2.Range("S41").Value .Range("ZK" & y2).Value = sh2.Range("T41").Value .Range("ZL" & y2).Value = sh2.Range("U41").Value .Range("ZM" & y2).Value = sh2.Range("V41").Value .Range("ZN" & y2).Value = sh2.Range("W41").Value .Range("ZO" & y2).Value = sh2.Range("X41").Value .Range("ZP" & y2).Value = sh2.Range("Y38").Value .Range("ZQ" & y2).Value = sh2.Range("Z38").Value .Range("ZR" & y2).Value = sh2.Range("Y42").Value .Range("ZS" & y2).Value = sh2.Range("A45").Value .Range("ZT" & y2).Value = sh2.Range("C48").Value .Range("ZU" & y2).Value = sh2.Range("C49").Value .Range("ZV" & y2).Value = sh2.Range("L48").Value .Range("ZW" & y2).Value = sh2.Range("L49").Value DoEvents '(f) 2019/02/20(水) 11:07 End With
End Sub (隠居じーさん) 2019/02/21(木) 12:14
お世話になっております。ご対応ありがとうございます。
マクロを実行すると、
オブジェクト変数または with ブロック変数が設定されていません
のエラーが出て、デバックでは以下が示されました。
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
ちなみに、転記先シート名はB2に値がA,B,C,Dのどれかだとして、
情報入力(A)、情報入力(B)、情報入力(C)、情報入力(D)、
検査結果(A)、検査結果(B)、検査結果(C)、検査結果(D)
上記を
'振り分けする転記先のシート名、並び変えたい順番に左から記入 snm = Array(上記8つのシート名)にしているのですが、 そここは問題ないですよね?
列見出はツールより復元しております。
いろいろと試したいと思います。
(f) 2019/02/21(木) 13:40
(隠居じーさん) 2019/02/21(木) 14:01
(隠居じーさん) 2019/02/21(木) 14:08
"情報入力シート"
"検査シート"
"マスタ(都道府県)"
"マスタ(管理)"
なにかわかりましたらまたアップします。
m(__)m
(隠居じーさん) 2019/02/21(木) 14:30
勘違いしておりました。
承知いたしました。
シート名の精査行います。
ありがとうございます。
(f) 2019/02/21(木) 15:55
次は
With sh2
lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
の部分にデバックが示されました。
エラーは同じく
オブジェクト変数または with ブロック変数が設定されていません
です。
引き続き、シート名の精査を行いたいと思います。
(f) 2019/02/21(木) 16:32
(隠居じーさん) 2019/02/21(木) 17:05
(隠居じーさん) 2019/02/21(木) 17:10
\\\\\\\\\\\\\\\\\\\
Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" SsortA(n) = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") sh2.Rows(6).Delete End If ReDim Preserve SsortA(n) SsortA(n) = sh2.Name n = n + 1 Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")" Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") sh3.Range(sh3.Rows(1), sh3.Rows(2)).Clear End If ReDim Preserve SsortB(N2) SsortB(N2) = sh3.Name N2 = N2 + 1 On Error GoTo 0 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
上記部分の
BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" SsortA(n) = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")")
らへんは、転記元シートのことですよね??
転記元シートのシート名は情報入力シート、検査シートで固定なので、
(" & Snmstr & ")はいらない気がしますが、間違いでしょうか?(もし、上の方で説明ミスがあったらごめんなさい)。
それを直したら動きましたが
また、お伝えできていなかったのですが、
転記先のファイルには下記の8つのシート以外に、
"出力メニュー"というシートが一番左にあり、そのシートに注意事項とボタンを配置してこのマクロを実行させようとしておりました。
現在、そのシートにすべて転記されてします。
という状況なので、どこかいじらなければいけないですよね(振り分けができてない状況です)。
転記先シート
―---------------------------------―ーーーーーー
転記先シート名はB2に値がA,B,C,Dのどれかだとして、
情報入力(A)、情報入力(B)、情報入力(C)、情報入力(D)、
検査結果(A)、検査結果(B)、検査結果(C)、検査結果(D)
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
上記+出力メニューシートという状況です。
以上、よろしくお願いいたします。
(f) 2019/02/21(木) 17:27
上記についてお忘れください(説明間違いです。出力シートは本当に存在しています。)
少し、いろいろいじってみたいと思います。
(f) 2019/02/21(木) 17:32
上記についてお忘れください(説明間違いです。出力シートは本当に存在しています。)
少し、いろいろいじってみたいと思います。
(f) 2019/02/21(木) 17:32
(f) 2019/02/21(木) 17:27で
お尋ねの件は逆です。
そこで書込みシートを自動で作成しています。
あればそのまま使い無ければ作成します。
初期状態は列見出シートのみ存在すればOKです
更新をせんたくしても、キャンセルでも
他のシートが有ってもいけるはずなのですが。
更新の場合
削除対象は
検査シート(A〜E)
情報入力シート(A〜E)
です
それ以外は削除致しません。
変更されたコードをさしつかえなければ
アップいただくと何か判明するかもです。
最下層の書込み2プロシジャーは省いて
いただいて。長くなって見づらいとおも
いますので。
多分全てのトラブル要因はシート名かと。。。
あくまで予想ですが。。。
こちらでは結構快適にうごいてくれているのですが。
なにかテスト環境に相違点があるのでしょうね。
でわ
(隠居じーさん) 2019/02/21(木) 18:07
(隠居じーさん) 2019/02/21(木) 19:04
すこし、あわてて、作りましたので、途中、ロジックの変更もあり 無駄な部分やシート作成部分、並び替え部分に不備が有るかもしれません。 再チェックしてますので。暫くお待ちくださいね。 m(_ _)m
(隠居じーさん) 2019/02/21(木) 20:13
いつもありがとうございます。
またいと思い、こちらの回答が遅れ申し訳ございません。
とりあえず、列見出し以外のシートを削除して、
Set BB = Workbooks(BaseBookName)
のところでエラーがでてしましました。
私の設定等がもしかしたら悪いのかもしれません。
お忙しい中ご対応ありがとうございます。
(f) 2019/02/21(木) 20:22
コードの一番最初
>>'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。
>> Const BaseBookName As String = "データ転記.xlsm"
↑ ここ、実際にマクロ貼り付けているBOOK名に変えていただいていますでしょうか。 (隠居じーさん) 2019/02/21(木) 20:27
検証Man参上!!!いや、SoulMan?参上!!!(おっさん、、その振りはもうええから、、はよ!本題にいかんかえ!はい!わかりました。m(__)m ぼけないとしゃべれないという関西人特有の(笑)))
冗談は、さておき↓こんなものが出てきましたです。はい!!
私には、全然、、わかりませんが、、素晴らしい限りでございます。参りました。感服致しました。
情報入力シート(データ1) データ1 81 データ転記.xlsm データ1 管理者名 データ3 データ4 データ5 データ6 データ7 データ8 和歌山県 岩出市 番地 データ9 データ10 データ11 データ12 データ13 データ14 データ15 データ16 データ17 データ18 データ19 データ20 データ21 データ22 データ23 データ24 データ25 データ25 データ26 データ28 データ29 データ30 データ31 データ32 データ33 データ34 データ35 データ36 データ37 データ38 データ39 データ40 データ41 データ42 データ43 データ44 データ45 データ46 データ47 データ48 データ49 データ50 データ51 データ52 データ53 データ54 データ54 データ56 データ57 データ59 データ50 001428 和歌山県岩出市 データ10 データ11
検査シート(データ1) データ1 81 データ転記.xlsm データ1 管理者名 データ3 データ4 データ5
以上、、ご報告まで!!! (SoulMan) 2019/02/21(木) 20:37
SoulManさま 。。。 いつもすみません。(*^^*) ご検証、ありがとうございます。 お時間をおさき戴き、感謝いたします。 お師匠様のツール無しでは、できませんでしたですよ。いいな〜 わたしもいま似たようなのを自作しようかなと。。。お師匠様のコードと 半平太先生のコードにらんでいるのですが。前途多難です。 でわ、また m(_ _)m
(隠居じーさん) 2019/02/21(木) 21:00
隠居じーさん さん 様 は、よしましょうよ(笑)
>お時間をおさき戴き、感謝いたします。
時間なんかとってませんよ。。ほんの1、2分です。
F8を押して黄色くなったら、、なんでだろう??→修正→
2、3回繰り返しただけです。。。まぁ、、これくらいはしないと、、、猫踏んじゃった!!!です。
どうもお疲れさまでした。m(__)m
また、週末にあばれましょうぞ!!!!
では、では、、 (SoulMan) 2019/02/21(木) 21:10
隠居じーさん様
すみません。昨日投稿したつもりが出来てませんでした。
ブック名は実際にマクロ貼り付けているBOOK名に変えている状況です。
今まで私の回答、テストが遅れている状況できたが、土日は時間が取れるのでじっくり調べていこうと思います。
(f) 2019/02/22(金) 11:08
fさん おはようございます。 ^^ 了解いたしました。 昨日、すこし整理してみました。 1.新規BOOKにソースコードをコピペ、コードの先頭部分を保存したファイル名に変更 2.列見出、シートを作成 は変わりません。
変更詳細 1.振分コード部分にA 〜 E 以外が入力されていれば結果的にエラー処理(やり直し)する。 2.作成シート名は8個に固定 3.シートの並び替えを修正 4.シートの削除を修正 5.情報入力、検査、双方の書込み時、振分コード、ファイル名、管理者、をキーとして 重複は上書き、その他は追加書込みを追加 6.両、書込みプロシジャーをコンパクトに整理 以上です。書込み位置に関する部分を修正(変更はしていませんが)の為 再度、情報の確認が必要です。100ファイル位でしたら、そんなに時間は かからないと思います。 本日はこれから出かけますので、夕方までは閉局となります。 でわ とりあえずデーター書込み優先で作成したもので、 説明不足でご迷惑をおかけしたかもしれませんね。 すみませんでした。 m(_ _)m でわ
Option Explicit Sub 転記_Ver3() 'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。 Const BaseBookName As String = "データ転記03.xlsm" Dim fpath As String, fname As String Dim WB As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr As Range Dim Mtr As Range Dim Mkr As Range Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t Dim cnt As Long Dim tmpary() Dim w_flg As Boolean t = Timer '振り分けする転記先のシート名、並び変えたい順番に左から記入 snm2 = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", _ "検査シート(A)", "検査シート(B)", _ "検査シート(C)", "検査シート(D)") If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then Sheet_Delete snm2 End If Set BB = Workbooks(BaseBookName) fpath = BB.Path & "\転記元\" Set sh1 = BB.Worksheets("列見出") fname = Dir(fpath & "*.xls*"): cnt = 1 Application.ScreenUpdating = False Do Until fname = "" DoEvents i = 0 If fname <> BB.Name Then Set WB = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh4 = WB.Worksheets("情報入力シート") Set sh5 = WB.Worksheets("検査シート") Set sh6 = WB.Worksheets("マスタ(都道府県)") Set sh7 = WB.Worksheets("マスタ(管理)") Set Jr = sh4.UsedRange Set Mtr = sh6.Range("C2").CurrentRegion Set Mkr = sh7.Range("B2").CurrentRegion Snmstr = Trim(sh4.Range("B2").Value) '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then MsgBox "シート名が設定されていません" & vbNewLine & _ "確認後設定してやり直してください。" & vbNewLine & _ WB.Name For j = 1 To Windows.Count If ActiveWorkbook.Name <> BaseBookName Then ActiveWorkbook.Close False End If Next Sheet_Delete snm2 Exit Sub End If On Error Resume Next Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete End If Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")" Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete End If On Error GoTo 0 Rem 情報シート書出 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr For ry = 3 To lr If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = WB.Name) * _ (.Cells(ry, 5) = sh4.Range("F2").Value) Then w_flg = True Exit For End If Next If w_flg Then y = ry w_flg = False End If Write_J y, sh2, sh4, WB 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To Mtr.Rows.Count If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), Mkr.Rows(1), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 For ry2 = 7 To lr2 If (.Cells(ry2, 1) = Snmstr) * (.Cells(ry2, 3) = WB.Name) * _ (.Cells(ry2, 5) = sh4.Range("F2").Value) Then w_flg = True Exit For End If Next If w_flg Then y2 = ry2 w_flg = False End If Write_K y2, sh3, sh4, sh5, WB .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With WB.Close SaveChanges:=False End If fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(cnt, "0,0") cnt = cnt + 1 Loop ReDim tmpary(Worksheets.Count) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next For i = 0 To UBound(tmpary) If tmpary(i) <> "" Then Worksheets(tmpary(i)).Move after:=Worksheets(Worksheets.Count) End If Next Application.ScreenUpdating = True Application.StatusBar = "" MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Sub Sheet_Delete(ByVal snm2 As Variant) Dim i As Long Dim j As Long Dim tmpary() Application.DisplayAlerts = False ReDim tmpary(Worksheets.Count) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next For i = 0 To UBound(tmpary) If tmpary(i) <> "" Then Worksheets(tmpary(i)).Delete End If Next Application.DisplayAlerts = True End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) 'sh2 = 情報入力シート,sh4 = 検査シート? Dim myad1 Dim myad2 Dim i& myad1 = Array("A", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _ "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", _ "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", _ "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", _ "BO", "BP", "BR", "BT", "BU", "BV") myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws .Range("C" & y) = WB.Name For i = 0 To UBound(myad1) .Range(myad1(i) & y) = sh2.Range(myad2(i)).Value DoEvents Next End With Rem(f) 2019/02/20(水) 11:05 End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook) Dim myad1 Dim myad2 Dim buf Dim buf2 Dim i& Rem 'sh2 = 検査シート, sh4 = 情報入力シート '************************************************* myad1 = Array("A", "D", "E", "F", "G", "H") myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") '************************************************* buf = Array("J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", "CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CI", "CJ", "CK", "CL", "CM", "CN", "CO", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ", "DA", "DB", "DC", "DD", "DE", "DF", "DG", "DH", "DI", "DJ", "DK", "DL", "DM", "DN", "DO", "DP", "DQ", "DR", "DS", "DT", "DU", "DV", "DW", "DX", "DY", "DZ", _ "EA", "EB", "EC", "ED", "EE", "EF", "EG", "EH", "EI", "EJ", "EK", "EL", "EM", "EN", "EO", "EP", "EQ", "ER", "ES", "ET", "EU", "EV", "EW", "EX", "EY", "EZ", "FA", "FB", "FC", "FD", "FE", "FF", "FG", "FH", "FI", "FJ", "FK", "FL", "FM", "FN", "FO", "FP", "FQ", "FR", "FS", "FT", "FU", "FV", "FW", "FX", "FY", "FZ", "GA", "GB", "GC", "GD", "GE", "GF", "GG", "GH", "GI", "GJ", "GK", "GL", "GM", "GN", "GO", "GP", "GQ", "GR", "GS", "GT", "GU", "GV", "GW", "GX", "GY", "GZ", "HA", "HB", "HC", "HD", "HE", "HF", "HG", "HH", "HI", "HJ", "HK", "HL", "HM", "HN", "HO", "HP", "HQ", "HR", "HS", "HT", "HU", "HV", "HW", "HX", "HY", "HZ", _ "IA", "IB", "IC", "ID", "IE", "IF", "IG", "IH", "II", "IJ", "IK", "IL", "IM", "IN", "IO", "IP", "IQ", "IR", "IS", "IT", "IU", "IV", "IW", "IX", "IY", "IZ", "JA", "JB", "JC", "JD", "JE", "JF", "JG", "JH", "JI", "JJ", "JK", "JL", "JM", "JN", "JO", "JP", "JQ", "JR", "JS", "JT", "JU", "JV", "JW", "JX", "JY", "JZ", "KA", "KB", "KC", "KD", "KE", "KF", "KG", "KH", "KI", "KJ", "KK", "KL", "KM", "KN", "KO", "KP", "KQ", "KR", "KS", "KT", "KU", "KV", "KW", "KX", "KY", "KZ", "LA", "LB", "LC", "LD", "LE", "LF", "LG", "LH", "LI", "LJ", "LK", "LL", "LM", "LN", "LO", "LP", "LQ", "LR", "LS", "LT", "LU", "LV", "LW", "LX", "LY", "LZ", "MA", "MB", "MC", "MD", "ME", "MF", "MG", "MH", "MI", "MJ", "MK", "ML", "MM", "MN", "MO", "MP", "MQ", "MR", "MS", "MT", "MU", "MV", "MW", "MX", "MY", "MZ", _ "NA", "NB", "NC", "ND", "NE", "NF", "NG", "NH", "NI", "NJ", "NK", "NL", "NM", "NN", "NO", "NP", "NQ", "NR", "NS", "NT", "NU", "NV", "NW", "NX", "NY", "NZ", "OA", "OB", "OC", "OD", "OE", "OF", "OG", "OH", "OI", "OJ", "OK", "OL", "OM", "ON", "OO", "OP", "OQ", "OR", "OS", "OT", "OU", "OV", "OW", "OX", "OY", "OZ", "PA", "PB", "PC", "PD", "PE", "PF", "PG", "PH", "PI", "PJ", "PK", "PL", "PM", "PN", "PO", "PP", "PQ", "PR", "PS", "PT", "PU", "PV", "PW", "PX", "PY", "PZ", "QA", "QB", "QC", "QD", "QE", "QF", "QG", "QH", "QI", "QJ", "QK", "QL", "QM", "QN", "QO", "QP", "QQ", "QR", "QS", "QT", "QU", "QV", "QW", "QX", "QY", "QZ", _ "RA", "RB", "RC", "RD", "RE", "RF", "RG", "RH", "RI", "RJ", "RK", "RL", "RM", "RN", "RO", "RP", "RQ", "RR", "RS", "RT", "RU", "RV", "RW", "RX", "RY", "RZ", "SA", "SB", "SC", "SD", "SE", "SF", "SG", "SH", "SI", "SJ", "SK", "SL", "SM", "SN", "SO", "SP", "SQ", "SR", "SS", "ST", "SU", "SV", "SW", "SX", "SY", "SZ", "TA", "TB", "TC", "TD", "TE", "TF", "TG", "TH", "TI", "TJ", "TK", "TL", "TM", "TN", "TO", "TP", "TQ", "TR", "TS", "TT", "TU", "TV", "TW", "TX", "TY", "TZ", "UA", "UB", "UC", "UD", "UE", "UF", "UG", "UH", "UI", "UJ", "UK", "UL", "UM", "UN", "UO", "UP", "UQ", "UR", "US", "UT", "UU", "UV", "UW", "UX", "UY", "UZ", _ "VA", "VB", "VC", "VD", "VE", "VF", "VG", "VH", "VI", "VJ", "VK", "VL", "VM", "VN", "VO", "VP", "VQ", "VR", "VS", "VT", "VU", "VV", "VW", "VX", "VY", "VZ", "WA", "WB", "WC", "WD", "WE", "WF", "WG", "WH", "WI", "WJ", "WK", "WL", "WM", "WN", "WO", "WP", "WQ", "WR", "WS", "WT", "WU", "WV", "WW", "WX", "WY", "WZ", "XA", "XB", "XC", "XD", "XE", "XF", "XG", "XH", "XI", "XJ", "XK", "XL", "XM", "XN", "XO", "XP", "XQ", "XR", "XS", "XT", "XU", "XV", "XW", "XX", "XY", "XZ", "YA", "YB", "YC", "YD", "YE", "YF", "YG", "YH", "YI", "YJ", "YK", "YL", "YM", "YN", "YO", "YP", "YQ", "YR", "YS", "YT", "YU", "YV", "YW", "YX", "YY", "YZ", "ZA", "ZB", "ZC", "ZD", "ZE", "ZF", "ZG", "ZH", "ZI", "ZJ", "ZK", "ZL", "ZM", "ZN", "ZO", "ZP", "ZQ", "ZR", "ZS", "ZT", "ZU", "ZV", "ZW") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") '************************************************** With ws .Range("C" & y2).Value = WB.Name For i = 0 To UBound(myad1) .Range(myad1(i) & y2) = sh4.Range(myad2(i)).Value DoEvents Next For i = 0 To UBound(buf) .Range(buf(i) & y2) = sh2.Range(buf2(i)).Value DoEvents Next '*********************************************************************************************** End With End Sub (隠居じーさん) 2019/02/22(金) 11:21
処理速度の件っす (*^^*)、
けっして
情報確認に掛かる所要時間のことではありません
( ̄▽ ̄)
でわ
(隠居じーさん) 2019/02/22(金) 11:26
ご対応ありがとうございます。
平日はなかなか時間が取れず申し訳ございません。
作成コードに関して、できるだけ早いうちに確認し、報告させていただきます。
以上、よろしくお願いいたします。
(f) 2019/02/22(金) 11:34
どうも↓ここを +1 するか ReDim tmpary(Worksheets.Count + 1)
こっちを -1 するかしないとExcelが怒る様な気がします。。。。 tmpary(j - 1) = Worksheets(i).Name
間違っていましたらすみません。m(__)m (SoulMan) 2019/02/22(金) 13:58
こんにちは ^^ ありがとうございますぅ〜〜〜〜 m(_ _)m 早速、確認、確認。。。。( ..)φメモメモ いま 歯医者さん。いっていました。歯石のおそうじ。。。 wwwいたかったぁぁあああ。 ← どうでもいい!。 はい。すんまそ(笑) ただちに デバッグ開始! ( ̄▽ ̄) またお願いいたします。 m(_ _)m (隠居じーさん) 2019/02/22(金) 16:02
こんにちは ^^ いまながめているのですが。。。。確かに、不安要素が、 シートの数がsnm2の最大要素数より少ないとき。 最大要素数のシート名が何らかの理由で存在すれば エクセル様にどやされそぉですね。。。。(/_;) Soulmanさん。すみません。 解決策ですが 専用要素カウンター別でもうけて Redim Preserve で必要数だけ確保するか もしくはsnm2の最大要素数確保 もしくは 余分に気前よく50くらい ^^; ←これは冗談としても。^^ありかも ということでしょうか
(隠居じーさん) 2019/02/22(金) 16:49
すみません。
全体をつかめていませんので、、なんともなんですが、、、
取り敢えず、、検証Manとしましては、、、必要最小限のBook(一つ)で試しましたら
怒られましたので、、、ご報告しました次第です。(^^;
下限が、、0 から始まるのと 1 から始めるとの違いかと思いましたが、、、
入れ物は、、余分目でもいいかもしれませんね?邪魔にならないのであれば、、、 (SoulMan) 2019/02/22(金) 16:59
SoulManさん。。。ありがとうございます。両方で間違えてるかもですね。 ありがとうございました、テストして修正版、アップ致します。 。。。ほんと、助かりますわぁ〜 (*^^*)v m(_ _)m
(隠居じーさん) 2019/02/22(金) 17:12
ありがとうございます。
皆様の高度なコードになかなkついていけません。。。笑
やってもらってばかりで本当に申し訳ないので、質問している間に進めていた、シートの振り分け部分について私なりにですが書いてみました。単純ですが、振り分け部分はこれでも行ける気がしました。
ちなみに現在、 fpath = ThisWorkbook.Path & "\転記元\"のファイルを対象にしているのですが、このフォルダをユーザに選択させることはできますでしょうか?(ウインドみたいなやつを表示させて、デスクトップのフォルダを選択など)
また、xlsxだけではなくxlsも対象にしたい場合、以下で問題ないでしょうか
fname = Dir(fpath & "*.xls", vbNormal)
Sub 取り込み()
If MsgBox("取り込みを行います。" & vbCrLf & "よろしいですか? ", vbOKCancel, "取り込み") = vbOK Then
Application.ScreenUpdating = False
fpath = ThisWorkbook.Path & "\転記元\"
fname = Dir(fpath & "*.xls", vbNormal)
Do Until fname = "" Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0)
With sh2 'B2 によって、処理を分ける Select Case .Range("B2").Value
Case "A" Call 取り込みマクロ情報入力A
Case "D", "E" Call 取り込みマクロ情報入力DE Case "B" ' Call 取り込みマクロ情報入力B Case "C" ' Call 取り込みマクロ情報入力C End Select
End With fname = Dir()
Loop
Application.ScreenUpdating = True
End If
End Sub
以下、情報入力A〜D,検査A〜D
(f) 2019/02/22(金) 17:16
ちょっと話が前後しますが、、すみません。
私がよくやるには IF で分岐して 最大値なら 最大値 とかでしょうか???
見当違いでしたらすみません。m(__)m (SoulMan) 2019/02/22(金) 17:19
むかぁ〜〜し!こんな↓コードかいてますねぇ(^^;
ぐぐれば他にも沢山ありますよ? [[20070314165615]] (SoulMan) 2019/02/22(金) 17:36
SoulManさんありがとうございます。 参考にさせていただきます。 いや〜、書き出し部分にしても、セルの端、左右上下、 情報の読込みに関しても、読み残しや、読み込みすぎ など、境い目といいますか角といいますかイレギュラーな事になる 確率が高いですね。 処理にはきを付けないと。。。とは 思っているのですが、ついつい、おろそかに なってしまいます。急がば回れとでもいいますか。 大変勉強になります。 m(_ _)m fさん、 ファイルダイアログ、といううのが有ったように思いますよ。 検索して調べてみて下さい。 上記の部分に関しては、後で書き換えて、その時、お知らせしますね。 では、頑張ってください。
(隠居じーさん) 2019/02/22(金) 17:55
こんばんわ ^^ シートの並び替え、シートの削除 の各コード部分を下記の様に書き換えて下さい 8個、固定のシート名を調べて配列に格納する部分です
ReDim tmpary(UBound(snm2) + 1) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next シートのカウンターと 配列snm2の要素カウンターとは分けてあり 配列snm2とtmparyがどうきされますので、 これでよろしいかと。。。。思います。です。(*_*; ← ほんとかな? という事で宜しくお願い致します。私の作成コードで何かありましたら またご一報頂ければ、出来る範囲で ← 重要 ^^; 対応させていただきます。でわ m(_ _)m (隠居じーさん) 2019/02/22(金) 18:26
ばっちり!!!でございます。 (SoulMan) 2019/02/22(金) 18:31
はは〜〜〜m(_ _)m ありがとうございました。
[[20070314165615]]
試して見ました。 すごいですね こんなことも出来るのですね。(*^^*)v
(隠居じーさん) 2019/02/22(金) 18:46
お世話になっております。ご対応ありがとうございます。
ファイルダイアログについて調べたら、こちらの方がユーザにとっては使いやすいのかなと思いました。
組み込んでみたいと思います。
(f) 2019/02/25(月) 10:53
(ACA) 2019/02/25(月) 16:49
こんばんは ^^ >>作成コードに関して、できるだけ早いうちに確認し、報告させていただきます。 の方はどうでしたでせうか。。。お待ちしているあいだに。。。何かどんどん。 完成後のお話の方に。。。 何の参考にも、ならなかったかもしれませんが。ご自作のコードで完成された 様にもお見受けいたしますので。もしそうであれば、大変良い事だと存じますので これで、私は失礼致します。 動いたのかどうか。(データーの内容が違うのは、一番お詳しいfさんに お願いしなければしょうがないとしましても)だけでも 教えていただけますでしょうか。 ↑ 動いてなければ、ガ〜ン w(◎o×)w!。。。すみませんでした。m(__)m でわ
(隠居じーさん) 2019/02/25(月) 18:28
>プロシージャが大きすぎますと出てしまいますね。。
これは、部分的にコメントして、、細々走らせました。(^^;
>動いてなければ、ガ〜ン w(◎o×)w!。。。すみませんでした。m(__)m でわ
検証Manとして、、ばっちりです!!! (SoulMan) 2019/02/25(月) 20:33
SoulManさん こんばんは。。。(^^)/ たびたびの、ご検証、有難う御座います。。。 いや〜もう、ほんとうに、申し訳ございません。 感謝、感謝です。 でわ、また m(__)m
(隠居じーさん) 2019/02/25(月) 20:54
以上、よろしくお願いいたします。
(ACA) 2019/02/25(月) 21:11
こんばんは ^^ ACAさん、とfさんって。。。同じ方ですか? (・。・)? 当初のご予定と幾分、相違点があるようですが。 ま、いろいろ、ご事情もあるのでしょうね。 >>プロシージャが大きすぎますと出てしまいますね。。 単純に考えればですが ^^; に関しましては。そのプロシジャ〜を分割してしまえば、すむお話ではないでしょうか。 三個くらいに分けて、順番に呼び出す? いづれにしましても、変更されたコードを拝見しなければ何とも申し上げられません。 最初にも申し上げましたが、かなりVBAはお詳しいようですので 今後の処理につきましてはお困りの箇所を随時、簡単なエクセル の表、型式とコードも可能な限りご提示の上で(サンプルでもOK) アップいただくと、私だけでなく様々な方から適切なアドバイスが 多数あると思います。 勿論私も、できる限り参加致します。 わたしが作成したコードを分けろ、という事でしたらお知らせください 分解致します。^^; でわ (隠居じーさん) 2019/02/25(月) 23:07
おはようございます ^^ ==================================== 分解せずに済む方法。 1.アプリケーションカーラ(コーラー?。。。叱られてるみたい^^;)を使う 2.1.とほぼ同じですが、本体を変更して一つのプロシジャーで処理! でしょうか。勘違いでしたらすみません。 とりあえず、私ならこうしたかも。。。というのをアップ致します。 何か参考にでも。 ==================================== 1.Private Sub 転記_Ver6BTN(ByVal X As String) の、Const BaseBookName As String = "データ転記06BTN.xlsm"、は このマクロが有る転記先のBOOK名です。実物の名前に変えて下さい。
2.シート、列見出 、を作成してください。 3.シート、menu 、(空)を作成してください 4.Private Sub Workbook_Open()から kaisi を呼ぶと便利です。 5.処理高速化の為、情報の書込みルーチンも修正していますので 情報の再チェックは必須です。^^;。。。m(__)m 6.menu シートに他のシェープを追加すれば誤作動する可能性が あります。(何もしなければ関係はありません) 7.ボタンの表示はPrivate Sub btn_maker()の .Characters.Text = "BTN" の "BTN" を変えて下さい。
==================================== Option Explicit Sub kaisi() With Worksheets("menu") If .Shapes.Count = 0 Then btn_maker End If .Activate End With End Sub Private Sub btn_maker() Dim br As Range Set br = Worksheets("menu").Range("F3:G4") With Worksheets("menu").Buttons.Add(br.Left, br.Top, br.Width, br.Height) .OnAction = "Choice_Sh" .Characters.Text = "BTN" End With End Sub Private Sub Choice_Sh() Dim ss As String ss = Application.InputBox("", "", , , , , , 2) If ss = "False" Or ss = "" Then Exit Sub If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then Exit Sub End If 転記_Ver6BTN ss End Sub Private Sub 転記_Ver6BTN(ByVal X As String) 'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。 Const BaseBookName As String = "データ転記06BTN.xlsm" Dim fpath As String, fname As String Dim WB As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr Dim Mtr Dim Mkr Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t Dim cnt As Long Dim tmpary() Dim w_flg As Boolean With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With t = Timer '振り分けする転記先のシート名、並び変えたい順番に左から記入 snm2 = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", _ "検査シート(A)", "検査シート(B)", _ "検査シート(C)", "検査シート(D)") If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then Sheet_Delete snm2 End If Set BB = Workbooks(BaseBookName) fpath = BB.Path & "\転記元\" Set sh1 = BB.Worksheets("列見出") fname = Dir(fpath & "*.xls*"): cnt = 1 Do Until fname = "" DoEvents If fname <> BB.Name Then Set WB = Workbooks.Open(fpath & fname, UpdateLinks:=0) 'ActiveWindow.Visible = False Set sh4 = WB.Worksheets("情報入力シート") Set sh5 = WB.Worksheets("検査シート") Set sh6 = WB.Worksheets("マスタ(都道府県)") Set sh7 = WB.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), sh7.Range("B2").CurrentRegion.Rows(1)) Snmstr = Trim(sh4.Range("B2").Value) Select Case X Case "A", "B", "C" If Snmstr <> X Then WB.Close False GoTo step1 End If Case "D", "E" If Snmstr <> "D" And Snmstr <> "E" Then WB.Close False GoTo step1 End If End Select '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then MsgBox "シート名が設定されていません" & vbNewLine & _ "確認後設定してやり直してください。" & vbNewLine & _ WB.Name For j = 1 To Windows.Count If ActiveWorkbook.Name <> BaseBookName Then ActiveWorkbook.Close False End If Next Sheet_Delete snm2 For_End_Proc Exit Sub End If On Error Resume Next Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete End If Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")" Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete End If On Error GoTo 0 Rem 情報シート書出 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr For ry = 3 To lr If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = WB.Name) * _ (.Cells(ry, 5) = sh4.Range("F2").Value) Then w_flg = True Exit For End If Next If w_flg Then y = ry w_flg = False End If Write_J y, sh2, sh4, WB 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To UBound(Mtr, 1) If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), Mkr, 0) .Cells(y, "B") = Mkr(1, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 For ry2 = 7 To lr2 If (.Cells(ry2, 1) = Snmstr) * (.Cells(ry2, 3) = WB.Name) * _ (.Cells(ry2, 5) = sh4.Range("F2").Value) Then w_flg = True Exit For End If Next If w_flg Then y2 = ry2 w_flg = False End If Write_K y2, sh3, sh4, sh5, WB .Cells(y2, "B") = Mkr(1, i) .UsedRange.EntireColumn.AutoFit End With WB.Close SaveChanges:=False End If step1: fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(cnt, "0,0") cnt = cnt + 1 Loop ReDim tmpary(UBound(snm2) + 1) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next For i = 0 To UBound(tmpary) If tmpary(i) <> "" Then Worksheets(tmpary(i)).Move after:=Worksheets(Worksheets.Count) End If Next For_End_Proc MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Sub Sheet_Delete(ByVal snm2 As Variant) Dim i As Long Dim j As Long Dim tmpary() Application.DisplayAlerts = False ReDim tmpary(UBound(snm2) + 1) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next For i = 0 To UBound(tmpary) If tmpary(i) <> "" Then Worksheets(tmpary(i)).Delete End If Next Application.DisplayAlerts = True End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) 'sh2 = 情報入力シート,sh4 = 検査シート? Dim buffer(1 To 74) Dim rbuf Dim tr As Range Dim myad2 Dim i As Long Dim j As Long myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws For i = 1 To UBound(buffer) If i = 2 Or i = 3 Or i = 9 Or i = 68 Then GoTo step1 buffer(i) = sh2.Range(myad2(j)).Value j = j + 1 step1: Next buffer(3) = WB.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook) Dim myad2 Dim buf Dim buf2 Dim i&, j&, K&, l& Dim buffer(1 To 699) Rem 'sh2 = 検査シート, sh4 = 情報入力シート myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") With ws For i = 1 To UBound(buffer) If i <= 9 Then Select Case i Case 1, 4 To 8 buffer(i) = sh4.Range(myad2(j)).Value j = j + 1 End Select ElseIf i > 9 Then buffer(i) = sh2.Range(buf2(K)).Value K = K + 1 End If DoEvents Next buffer(3) = WB.Name .Cells(y2, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub For_End_Proc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .StatusBar = "" End With End Sub (隠居じーさん) 2019/02/26(火) 07:29
失礼いたしました。Private Sub Choice_Sh() の
ss = Application.InputBox("", "", , , , , , 2)
↑ここ
A〜E (半角、大文字)を入力して下さい
に してください。エラー処理まではまだしてません。。。m(__)m でわ (隠居じーさん) 2019/02/26(火) 08:06
おはようございます。^^ お話の続きですが。ここらへんで一度整理をしていただいて。 あとは、処理対象フォルダの選択機能の追加くらいでしょうか (隠居じーさん) 2019/02/26(火) 09:53
プロシージャは分けてそこはクリアすることはできました。
課題としてはファイル名の重複チェックでしょうか。
(ACA) 2019/02/26(火) 10:35
>>課題としてはファイル名の重複チェックでしょうか。 はい。 あ。。。うまく書込みできていませんでしたか? 確認致しますね。 (隠居じーさん) 2019/02/26(火) 11:27
違うフォルダに同一ファイル名があるとか、同じフォルダでも一回目と二回目と 中身入れ替えた時とか、想定されますが 新規の場合は、同一フォルダ内に同じファイルは存在出来ないと思いますので。 更新するかどうか聞くポップが出ると思うのですがキャンンセルを選んでいただくと。 ファイル名、管理者、パターン(A〜E)をキーとして追加、上書きが出来るとおもいま す。このキーを増減調整すればいろいろ可能かとOKを選択すれば過去の情報を削除後、 新規作成としています。確認したところ正常に動作しているようです。他に何か機能を 追加するのでしょうか。重複ファイルは一斉、認めないということでしたら。最新版で恐 怖の禁断のgoto文を使用してしまいました。これ、使えば簡単に、同じく読み飛ばしは 可能かと一か所くらいなら大丈夫かとおもいます。。。。。^^; でわ (隠居じーさん) 2019/02/26(火) 13:04
検証Manとしましては、、、見出し列以降を実行しますと、、
問題なく、、Msgboxがでてきましたが、、、何も変化がない様にも思いますけど、、
何かを見落としているんでしょうね(^^;
現在の状況を完全に見失っています(*´ω`*)
ひょっとして現在は、待て の状態でしょうか???
To 隠居じーさん さんへ
土筆ですよぉ、、、あれから一年ですね。早いですね。。
これからもよろしくお願いします。。。m(__)m (SoulMan) 2019/02/26(火) 19:47
Soulman さん こんばんは ^^ 何時も何時も本当に済みません。感謝してもしきれません。 (*^^*) menuシートにボタン、一つこさえただけっす。 ^^; あと、書き出し部分を配列にしましたけど。いっそ全件配列に貯めこんで。 カメハメハ〜〜〜。。。ぁ みたく。はきだしたかったのですがwwww 元気がわいてきませんでしたぁ〜〜〜〜。で 内容的にはご指摘の通り、何も変わっておりませんです。 >>ひょっとして現在は、待て の状態でしょうか??? ほぼ、終了待ちかと。。。。( ̄▽ ̄;)。。。わかりませんが。。。。m(__)m ==================================== おおおおぉ、そぉおおおをですね。もう春がそこまで。。。土筆ですかぁ なつかしいですね。 こちらこそ、今後とも宜しくお願いいたします。 << _ _ >> (隠居じーさん) 2019/02/26(火) 20:08
いつもお世話になっております。Fです。
また返信が遅れました。。申し訳ございません。
ここに来て、少しオーダーが変わりした。。
もしよろしければで良いので見ていただけないでしょうか。
頼ってばかりですみません。
1.以下の部分で、ファイル名を指定しているのですが、それをなくすことはできますでしょうか?
このマクロを使う人は複数で、その人がファイル名を変えてしまう可能性が高いからです(その人にマクロを直す知識はないです。。。)
1.Private Sub 転記_Ver6BTN(ByVal X As String) の、Const BaseBookName As String = "データ転記06BTN.xlsm
2.現在、マクロを実行する際、情報シートなら3行目から転記され、検査シートなら7行目から転記されると思います。その後再度、マクロを実行すると、情報は3行目、7行目から再度上書きになってしまうと思います。そこを、上書きではなく、データ転記されている最終行の次の行に追加していくことはかのうでしょうか?蓄積していくイメージです。この仕様でファイル名チェックもあればかなり使いがってのいいものになると思うのですが。。。
以上、よろしくお願い致します。
(ねぎ) 2019/02/27(水) 20:09
こんばんは ^^ 拝見いたしました。 出来ると思いますので、暫時お待ちください。 m(__)m (隠居じーさん) 2019/02/27(水) 20:20
すみません。。。
あと、自分が作っていたコードでは、フォルダ選択(下部にコード貼ります)ができたのですが、
(隠居じーさん) 2019/02/26(火) 07:29のコードにはそのまま貼れば良いのでしょうか?
今、テストできない環境でして、もしわかれば教えていただけないでしょうか。
Public Function SelectFolder(ByVal strDefault As String, ByRef strSelect As String) As Boolean
SelectFolder = False strSelect = ""
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = strDefault
.Title = "フォルダ選択"
.ButtonName = "選択確定"
.AllowMultiSelect = False
If .Show = True Then strSelect = .SelectedItems(1) SelectFolder = True Else .Execute End If End With End Function (F) 2019/02/27(水) 20:43
'フォルダ選択ダイアログの表示 fpath = ThisWorkbook.Path & "\転記元\" If SelectFolder(fpath, strPath) Then fpath = strPath & "\"
Call 取り込み End If End Sub (F) 2019/02/27(水) 20:47
ーーーーーーーコメントブロックした部分ーーーーーーーーーーーーーーーー
Sub kaisi()
With Worksheets("menu") If .Shapes.Count = 0 Then btn_maker End If .Activate End With End Sub Private Sub btn_maker() Dim br As Range Set br = Worksheets("menu").Range("F3:G4") With Worksheets("menu").Buttons.Add(br.Left, br.Top, br.Width, br.Height) .OnAction = "Choice_Sh" .Characters.Text = "BTN" End With End Sub Private Sub Choice_Sh() Dim ss As String ss = Application.InputBox("", "", , , , , , 2) If ss = "False" Or ss = "" Then Exit Sub If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then Exit Sub End If ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー (F) 2019/02/27(水) 21:15
ss = Application.InputBox("", "", , , , , , 2) ↑ここ A〜E (半角、大文字)を入力して下さい
とのことですが、以下であってますでしょうか??
ss = Application.InputBox("A, "B", "C", "D", "E", 2)
(F) 2019/02/27(水) 21:27
こんばんは ^^ ご希望の変更点ですが、以下でよろしいでしょうか。 1.BOOK名の固定をはずす 2.上書きは中止、追加書込みのみとする 3.重複ファイルがあれば通知する 4.対象フォルダを指定出来るようにする。 すこし、改修工事(見直し、テスト等)になりますので。 暫く御猶予ください。出来るだけがんばります。 ss = Application.InputBox("", "", , , , , , 2) も了解いたしました。直しておきます。 ボタンを設置する、件ですが 今、menuシートにボタンが自動で設置される仕様なのですが。 そこに取扱説明&注意事項をコピペではいけませんか?シートの位置は 何処でも構わないはずです。 もしよければ、ボタンの貼り付け位置はどこでも、変更可能です 以上、ご連絡をお待ちいたします。 (隠居じーさん) 2019/02/27(水) 21:48
追伸 すみません。ボタンの件ですが、 ご希望のシートのご希望の位置に設置することも、可能です。 ただ、他にも図形、等、があり消えてしまうとか、他にも、 何らかの理由でボタンはご自作されるとの事でしたら。そのように 変更いたします。 ご連絡をお待ちして。改修にとりかかります。^^; でわ (隠居じーさん) 2019/02/27(水) 21:56
おはようございます ^^ 読込ファイル名に何か他の関係無いファイルと識別できる様な特徴はありますか 必ずこれは付けるとか、あれば教えて下さい。 例 AXyyyymmdd_A 検査*.xls* 情報*.xls* ご提示のサンプル情報にはファイル名を取得されていますが これは、実際には無い(ダミー)のでしょうか、それとも 同じセルアドレスに存在して、使用可能ですか。 以上2点、お願いいたします。 m(__)m
(隠居じーさん) 2019/02/28(木) 07:07
1.BOOK名の固定をはずす
■ファイル名に依存しない、このマクロファイルさえあれば誰でも取り込みができる仕様だと最高です。
2.上書きは中止、追加書込みのみとする
■おっしゃる通りです。どんどん蓄積されるイメージです。
3.重複ファイルがあれば通知する
■おっしゃる通りです。重複ファイルシート的なものに取り込み日時とファイル名を出せたら最高です。
4.対象フォルダを指定出来るようにする。
■おっしゃる通りです。もし、空のフォルダ(転記対象データがないフォルダ)を選択した場合、アラートをだすことは可能でしょうか(取り込み対象データがありません。など
★ボタンについて
大変申し訳ございませんが、諸事情でシート1(説明シート)にあるボタンにマクロを登録。ユーザはそれを押すとフォルダ選択→処理開始という流れにしたいのです。。。ご厚意でいろいろしてくれたのに本当にごめんなさい。申し訳ないです。。。。
(F) 2019/02/28(木) 11:17
検査*.xls* 情報*.xls*
■これについては、("情報入力シート")("検査シート")が必ず存在するということでしょうか。マスタシートもです。
運用上でも関係がないデータをフォルダには分けておくようには注意はするのですが、マクロで弾けたら安全ですね。
?Aご提示のサンプル情報にはファイル名を取得されていますが
これは、実際には無い(ダミー)のでしょうか、それとも
同じセルアドレスに存在して、使用可能ですか。」
■上記については、すみませんどういう意味か理解できませんでいした。すみません。ファイル名はB列に取得する必要があり、それで重複チェックできたらと思ってましたが。。。
(F) 2019/02/28(木) 11:26
こんにちは ^^ ご返信確認致しました。ご希望に沿えるように処理致します。 もうすこし待ってくださいね。 m(__)m でわ
(隠居じーさん) 2019/02/28(木) 12:13
こんにちは ^^ あ、はい。B列のファイル名かき集めて確認する様に調整してます。。。 >>重複ファイルシート的なものに取り込み日時とファイル名を出せたら最高です。 ご希望シート名、ありましたら。(なければてきと〜になってしまいます。) 取込日時はマクロ動かした当日でいいですね。 では 今夜はむりかも。。。出来次第アップしておきますね。( ̄▽ ̄)。。。 では。m(_ _)m
(隠居じーさん) 2019/02/28(木) 16:47
以上、よろしくお願いします。
(f) 2019/02/28(木) 22:19
こんばんは ^^ そぉでしたね ( ̄▽ ̄;)。。。了解致しましたです。 。。。。。→ 工事中。。。→ おい!いつまでやっとんねん! ← はいすみません。間もなく^^;
いや〜あわてると、ろくなものが。。。←言い訳。 すみません、間もなくです。 では m(__)m (隠居じーさん) 2019/02/28(木) 23:45
おはようございます ^^ 緊急速報。。。決して忘れて、遊びになど、行っておりませんです。はい (笑) ご注文が多かったので。。。悪戦苦闘中です。。。^^;;; エクセルでも。暫く反応がなければ。。。w大丈夫かな。。。って思いますので。←私は もうほぼ出来かかっていますが気になる点も2,3残していますので。処理中です でわ m(_ _)m
(隠居じーさん) 2019/03/01(金) 09:11
お待たせいたしました ^^
追加作成事項がたてこんだのと、モジュールレベル変数は使用していない 関係で 少し。つぎはぎ感が残りもう少し整理はした方が良いとは思います が、動作は致しますのでアップ致します。事前に
従来通りのシート 列見出 新規の空シート 重複ファイルシート
を作成して下さい 標準モジュールにコードをコピペの後、既存のシート上にFさんが作成 され た ボタンに Sub 出力() を登録してください。入念にテストをしていただいて。何かあればまた ご連絡いただければ対応いたします。 でわ
Option Explicit Sub 出力() Dim Fs Dim Fcnt As Long Dim strSelect As String strSelect = SelectFolder Set Fs = CreateObject("Scripting.FileSystemObject") If Fs.GetFolder(strSelect).Files.Count = 0 Then MsgBox "選択されたフォルダにはファイルが有りません" Exit Sub End If If strSelect <> "" Then 取り込み strSelect & "\" Else MsgBox "フォルダが取得できません" Exit Sub End If End Sub Private Function SelectFolder() As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\転記元\" .Title = "フォルダ選択" .ButtonName = "選択確定" If .Show Then SelectFolder = .SelectedItems(1) End If End With End Function Private Sub 取り込み(ByVal fp As String) Dim ss As String ss = Application.InputBox("パターン、A〜E(半角、大文字)を入力して下さい", "Excel_VBA", , , , , , 2) If ss = "False" Or ss = "" Then Exit Sub If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then Exit Sub End If For_Start_Proc 転記_Ver6BTN ss, fp End Sub Private Sub 転記_Ver6BTN(ByVal X As String, fp As String) Dim fpath As String, fname As String Dim wb As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr Dim Mtr Dim Mkr Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t Dim cnt As Long Dim cntf As Long Dim tmpary() Dim w_flg As Boolean Dim f_flg As Boolean Dim Fm Dim Myd() ThisWorkbook.Worksheets("重複ファイルシート").Cells(1, 2).Resize(, 3) = _ Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時") t = Timer '振り分けする転記先のシート名、並び変えたい順番に左から記入 snm2 = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", _ "検査シート(A)", "検査シート(B)", _ "検査シート(C)", "検査シート(D)") If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel) Then Sheet_Delete snm2 End If Set BB = Workbooks(ThisWorkbook.Name) fpath = fp Set sh1 = BB.Worksheets("列見出") fname = Dir(fpath & "*.xls*"): cnt = 1 '読込済ファイルマスター作成 Fm = File_Master_Chk Do Until fname = "" DoEvents If fname <> BB.Name Then Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh4 = wb.Worksheets("情報入力シート") Set sh5 = wb.Worksheets("検査シート") Set sh6 = wb.Worksheets("マスタ(都道府県)") Set sh7 = wb.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), sh7.Range("B2").CurrentRegion.Rows(1)) Snmstr = Trim(sh4.Range("B2").Value) '******************************************************* '重複ファイル読飛、追加書込、判定 f_flg = File_Dup_Chk(fname, Fm, Snmstr, X, Myd, cntf) If f_flg Then wb.Close GoTo step1 End If '****************************************************** Select Case X Case "A", "B", "C" If Snmstr <> X Then wb.Close False GoTo step1 End If Case "D", "E" If Snmstr <> "D" And Snmstr <> "E" Then wb.Close False GoTo step1 End If End Select '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then MsgBox "シート名が設定されていません" & vbNewLine & _ "確認後設定してやり直してください。" & vbNewLine & _ wb.Name wb.Close False GoTo step1 End If On Error Resume Next Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "情報入力シート(" & Snmstr & ")" Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") sh2.Range(sh2.Rows(3), sh2.Rows(15)).Delete End If Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") If Err.Number > 0 Then sh1.Copy before:=BB.Worksheets(1) BB.ActiveSheet.Name = "検査シート(" & Snmstr & ")" Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") sh3.Range(sh3.Rows(1), sh3.Rows(5)).Delete End If On Error GoTo 0 Rem 情報シート書出, 201902、追加のみに修正 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr For ry = 3 To lr If (.Cells(ry, 1) = Snmstr) * (.Cells(ry, 3) = wb.Name) * _ (.Cells(ry, 5) = sh4.Range("F2").Value) Then w_flg = False Exit For End If Next If w_flg Then y = ry w_flg = False End If Write_J y, sh2, sh4, wb 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To UBound(Mtr, 1) If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), Mkr, 0) .Cells(y, "B") = Mkr(1, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出, 201902、追加のみに修正 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 For ry2 = 7 To lr2 If (.Cells(ry2, 1) = Snmstr) * (.Cells(ry2, 3) = wb.Name) * _ (.Cells(ry2, 5) = sh4.Range("F2").Value) Then w_flg = False Exit For End If Next If w_flg Then y2 = ry2 w_flg = False End If Write_K y2, sh3, sh4, sh5, wb .Cells(y2, "B") = Mkr(1, i) .UsedRange.EntireColumn.AutoFit End With wb.Close SaveChanges:=False End If step1: fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(cnt, "0,0") cnt = cnt + 1 Loop ReDim tmpary(UBound(snm2) + 1) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next For i = 0 To UBound(tmpary) If tmpary(i) <> "" Then Worksheets(tmpary(i)).Move after:=Worksheets(Worksheets.Count) End If Next If cntf > 0 Then Last_Write Myd For_End_Proc Erase Myd MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Function File_Master_Chk() As Variant Dim buf Dim buf2() Dim i As Long Dim j As Long Dim k As Long Dim mya Dim D Set D = CreateObject("Scripting.Dictionary") buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", "情報入力シート(D)") For i = 1 To ThisWorkbook.Worksheets.Count For j = 0 To UBound(buf) If ThisWorkbook.Worksheets(i).Name = buf(j) Then ReDim Preserve buf2(k) buf2(k) = ThisWorkbook.Worksheets(i).Name k = k + 1 Exit For End If Next Next '配列が空なら(一件でも発生していれば1加算されている) If k = 0 Then File_Master_Chk = False Exit Function End If For i = 0 To UBound(buf2) With ThisWorkbook.Worksheets(buf2(i)) mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2))) If TypeName(mya) <> Empty Then If TypeName(mya) = "String" Then If Not D.exists(mya) Then D.Add mya, mya End If Else For k = 1 To UBound(mya, 1) If mya(k, 1) <> "" Then If Not D.exists(mya(k, 1)) Then D.Add mya(k, 1), mya(k, 1) End If End If Next End If If TypeName(mya) <> "String" Then Erase mya Else mya = Empty End If End If End With Next If D.Count = 0 Then File_Master_Chk = False Else With ThisWorkbook.Worksheets("重複ファイルシート") .Range("B:B").SpecialCells(2).Clear .Cells(1, 2) = "従前書込済ファイル名" k = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 .Cells(k, 2).Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys) End With File_Master_Chk = D.keys End If End Function Private Function File_Dup_Chk(ByVal BName As String, _ ByVal BMaster As Variant, _ ByVal X As String, _ ByVal Fptn As String, _ ByRef Myd As Variant, _ ByRef cnt As Long) As Boolean Dim i As Long If TypeName(BMaster) = "Boolean" Then Exit Function End If For i = LBound(BMaster) To UBound(BMaster) If BName = BMaster(i) And Fptn = X Then If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & _ "OK ボタンで書き込みません" & vbNewLine & BName, vbOKCancel) Then File_Dup_Chk = True Exit Function Else 'ログ情報作成 ReDim Preserve Myd(cnt) Myd(cnt) = Array(BName, Format(Now(), "yyyy/mm/dd - hh:mm:ss")) cnt = cnt + 1 End If End If Next End Function Private Sub Sheet_Delete(ByVal snm2 As Variant) Dim i As Long Dim j As Long Dim tmpary() ThisWorkbook.Worksheets("重複ファイルシート").Cells.Clear ThisWorkbook.Worksheets("重複ファイルシート").Cells(1, 2).Resize(, 3) = _ Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時") Application.DisplayAlerts = False ReDim tmpary(UBound(snm2) + 1) For i = 1 To Worksheets.Count For j = 0 To UBound(snm2) If Worksheets(i).Name = snm2(j) Then tmpary(j) = Worksheets(i).Name End If Next Next For i = 0 To UBound(tmpary) If tmpary(i) <> "" Then Worksheets(tmpary(i)).Delete End If Next Application.DisplayAlerts = True End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, wb As Workbook) Dim buffer(1 To 74) Dim myad2 Dim i As Long Dim j As Long myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws For i = 1 To UBound(buffer) If i = 2 Or i = 3 Or i = 9 Or i = 68 Then GoTo step1 buffer(i) = sh2.Range(myad2(j)).Value j = j + 1 step1: Next buffer(3) = wb.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, wb As Workbook) Dim myad2 Dim buf2 Dim i As Long Dim j As Long Dim k As Long Dim buffer(1 To 699) Rem 'sh2 = 検査シート, sh4 = 情報入力シート myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") With ws For i = 1 To UBound(buffer) If i <= 9 Then Select Case i Case 1, 4 To 8 buffer(i) = sh4.Range(myad2(j)).Value j = j + 1 End Select ElseIf i > 9 Then buffer(i) = sh2.Range(buf2(k)).Value k = k + 1 End If DoEvents Next buffer(3) = wb.Name .Cells(y2, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub For_Start_Proc() With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With End Sub Private Sub For_End_Proc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .StatusBar = "" End With With ThisWorkbook.Worksheets("重複ファイルシート") .Range("A:E").EntireColumn.AutoFit .Activate End With End Sub Private Sub Last_Write(ByVal arg1 As Variant) Dim lr As Long With ThisWorkbook.Worksheets("重複ファイルシート") lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3).Resize(UBound(arg1, 1) + 1, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arg1)) End With End Sub (隠居じーさん) 2019/03/01(金) 12:02
こんにちは ^^ すみませんでした。 Sub 出力()だけ、丸ごと下記に変えて下さい。 ★フォルダ選択ダイアログ、キャンセル時にエラーを、修正
Sub 出力() Dim Fs Dim Fcnt As Long Dim strSelect As String Set Fs = CreateObject("Scripting.FileSystemObject") strSelect = SelectFolder If strSelect <> "" Then If Fs.GetFolder(strSelect).Files.Count = 0 Then MsgBox "選択されたフォルダにはファイルが有りません" Exit Sub End If 取り込み strSelect & "\" Else MsgBox "フォルダが取得できません" Exit Sub End If End Sub (隠居じーさん) 2019/03/01(金) 12:35
(隠居じーさん) 2019/03/01(金) 12:39
ありがとうございます。
何度も申し訳ございません。以下の処理について教えていただけますでしょうか。
■確認事項
1.インプットボックスにはA〜Eの内取り込みたい者を入力する仕様でしょうか。
できればインプットボックスは表示させず、フォルダ内全てのファイルを取り込みたいです。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 取り込み(ByVal fp As String)
Dim ss As String
ss = Application.InputBox("パターン、A〜E(半角、大文字)を入力して下さい", "Excel_VBA", , , , , , 2)
If ss = "False" Or ss = "" Then Exit Sub
If ss <> "A" And ss <> "B" And ss <> "C" And ss <> "D" And ss <> "E" Then
Exit Sub End If For_Start_Proc 転記_Ver6BTN ss, fp End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
2.情報入力シートと検査シートの取り込みデータが検査結果(A~E)にまとめられてないでしょうか???
インプットボックスにAを入力し、マクロを実行すると、検査シート(A)しか残りません。
3.フォルダ内の全てのエクセルが取り込まれてますでしょうか?私がAを入力したファイルを2つフォルダに保存し、
実行したところ一つしか転記されませんでした。
4.マクロを実行したとこボタンを配置したシート(説明用)も削除される仕様でしょうか
もし、私の適応方法が間違っていればすみません。
とのことで、以下のようには改変は難しいでしょうか?
・シートの削除、書き込み用シートの作成はせず、私が最初に投降したような単純に指定のシート名に振り分ける(既存のシートに放り込む)のは難しいでしょうか?
情報入力シート(A〜D)と検査シート(A〜D)は必ず存在しますので。。
・インプットボックスは表示させず、
シート1のボタンを押す→取り込みしますか?しません?のメッセージボックス→フォルダ選択→取り込み、重複確認処理。
もし私の適用方法が間違っていたらすみません。
ちなみにシートの削除、書き込み用シート仕様をやめたいのは、私もですが知識がない方がマクロを実行しシートが消えたとなると、混乱を招くからです。。
既存のシート計8つにデータを放り込む仕様だと嬉しいです(ご厚意でやっていいただいたとは思いますが、すみません。。。)。
以上、よろしくお願いします。
(F) 2019/03/01(金) 14:28
お邪魔します。
検証Manとしましては、問題なく動きましたことをご報告致します。
でも、今回の場合は動いただけではダメなようですね(^^;
To 隠居じーさん さんへ
もう少しみたいですから頑張て下さいね。。。。
お力になれず申し訳ないです。
では、、では、、、 (SoulMan) 2019/03/01(金) 14:47
お世話になっております。
・シートの振り分け(A〜E)は貴環境では正しく動作されてますでしょうか。
・フォルダにあるファイルすべてが取り込まれてますでしょうか。
・すでにデータがある状態で実行された場合、データを上書きせず、最終行次行以降に蓄積されてますでしょうか。
私の適用方法が悪い可能性がある(高い)ので、もしわかれば教えていただけないでしょうか。
「 でも、今回の場合は動いただけではダメなようですね(^^;
To 隠居じーさん さんへ もう少しみたいですから頑張て下さいね。。。。」 要求ばかりですみません。ユーザがPCへの知識が低く、できるだけユーザ負担にならないようなものができればという考えがありまして。。
以上、よろしくお願いします。
(F) 2019/03/01(金) 15:00
>・シートの振り分け(A〜E)は貴環境では正しく動作されてますでしょうか。 >・フォルダにあるファイルすべてが取り込まれてますでしょうか。 >・すでにデータがある状態で実行された場合、データを上書きせず、最終行次行以降に蓄積されてますでしょうか。
あっ、、すみません。。この辺はよく分かってないです。。m(__)m
混乱させちゃいましたね。。。すみません。
でも、隠居じーさん さんがきっと解決してくださると思いますので、、今しばらくお待ちください。m(__)m (SoulMan) 2019/03/01(金) 15:06
隠居じーさん様
頼ってばかりで申し訳ございません。本当にいいものをつくっていただいて感謝しかないです。。。
(F) 2019/03/01(金) 15:10
SoulMan さん すみません〜〜〜〜。ありがとうございましたあ〜m(__)m いや〜ダメでしたか。。。( ̄▽ ̄;)。。。。。只今元気を充電中。。。。ピコピコ? お師匠様に似てきましたね(笑) Fさん 今の私のコードの修正希望点を箇条書きで、もう一度アップしておいてください。 がんばるぞぉおぉを〜〜〜〜 でも すこしお時間下さいね。^^; でわ (隠居じーさん) 2019/03/01(金) 15:31
F さんへ 現状の確認ですが ご質問 1.インプットボックスにはA〜Eの内取り込みたい者を入力する仕様でしょうか。 2.情報入力シートと検査シートの取り込みデータが検査結果(A~E)にまとめられてないでしょうか??? インプットボックスにAを入力し、マクロを実行すると、検査シート(A)しか残りません。 3.フォルダ内の全てのエクセルが取り込まれてますでしょうか?私がAを入力したファイルを2つフォルダに保存し、 実行したところ一つしか転記されませんでした。 4.マクロを実行したとこボタンを配置したシート(説明用)も削除される仕様でしょうか
1.はその通りです。変更可能です。 2.すこし意味が解らないのですが。情報シート(A)と検査シート(A)が残るはずです。 3.2.とも関連すると思いますが当方のテスト環境では存在するファイル全て取り込んでいます ただ情報入力シート(読込みファイル)B2の値が指定した値と違えばとりこみません。 再度ご確認お願いいたします。 4.指定の8個のシート以外は削除いたしません。、左の角に隠れていませんでしょうか。
(隠居じーさん) 2019/03/01(金) 16:04
インプットボックスにAを入力し、マクロを実行すると、検査シート(A)しか残りません。 3.フォルダ内の全てのエクセルが取り込まれてますでしょうか?私がAを入力したファイルを2つフォルダに保存し、 実行したところ一つしか転記されませんでした。 4.マクロを実行したとこボタンを配置したシート(説明用)も削除される仕様でしょうか 【ご回答】 1.はその通りです。変更可能です。 ■インプットボックスは表示させず、フォルダにあるすべてのファイルを取り込みたいです。 2.すこし意味が解らないのですが。情報シート(A)と検査シート(A)が残るはずです。 ■検査シート(A)という名前のシートが残り、列見出しシートのレイアウトになっております。 これは私がどこかミスしてますね。。。 3.2.とも関連すると思いますが当方のテスト環境では存在するファイル全て取り込んでいます ただ情報入力シート(読込みファイル)B2の値が指定した値と違えばとりこみません。 再度ご確認お願いいたします。 ■値間違いはないですね。 4.指定の8個のシート以外は削除いたしません。、左の角に隠れていませんでしょうか。 ■2の状況ですので、隠れてはないですね。。 削除せず8個とも残す、もしくは書き出しシートではなく、あるシートに値を転記は難しいでしょうか?
やはり私の適用方法が間違ってそうですね。精査します。
(F) 2019/03/01(金) 16:40
はい。わかりました。再現ソフトのお力をお借りして整えた時点では相違無しの状態でも その後それを基にダミー情報作成過程でミスってる事もあるかもしれませんね。^^;
読込ファイルシート名
情報入力シート 検査シート マスタ(都道府県) マスタ(管理)
書込みファイルシート名
情報入力シート(A) 情報入力シート(B) 情報入力シート(C) 情報入力シート(D) 検査シート(A) 検査シート(B) 検査シート(C) 検査シート(D)
以上です。
>>やはり私の適用方法が間違ってそうですね。精査します。 一概には言えませんのでこちらでも原因を探して見ます。 他の操作方法は如何様にでも比較的簡単に変更できますが。 情報の突合せはそうもいきません。かつ一番重要部分かと。 あと1ファイル、1レコードの情報の書き出し位置、内容は 問題御座いませんか。 (隠居じーさん) 2019/03/01(金) 17:12
書込みファイルシート名 には列見出しもありますかね? ■列見出し 2、3行目、BV列まで:情報入力シートの見出し
6〜11行目、ZW列まで:検査シートの見出し
というレイアウトですが同じですかね?
一度こちらから、シート名、B2の値を上記内容にし、テストしてみます。
(F) 2019/03/01(金) 17:36
こんばんは。^^ はいあります 列見出 です。 >>一度こちらから、シート名、B2の値を上記内容にし、テストしてみます お願い致します、あわせて下記も。お願いいたします。
現状のコードを使い 本体 転記_Ver6BTN(ByVal X As String, fp As String) の
Do Until fname = "" DoEvents If fname <> BB.Name Then Set wb = Workbooks.Open(fpath & fname, UpdateLinks:=0) Set sh4 = wb.Worksheets("情報入力シート") Set sh5 = wb.Worksheets("検査シート") Set sh6 = wb.Worksheets("マスタ(都道府県)") Set sh7 = wb.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), sh7.Range("B2").CurrentRegion.Rows(1)) Snmstr = Trim(sh4.Range("B2").Value)
Stop
↑ これを挿入して
'******************************************************* '重複ファイル読飛、追加書込、判定 f_flg = File_Dup_Chk(fname, Fm, Snmstr, X, Myd, cntf) If f_flg Then wb.Close GoTo step1 End If '******************************************************
下記のコードの '.StatusBar = "" をコメントにして。
Private Sub For_End_Proc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic '.StatusBar = "" End With With ThisWorkbook.Worksheets("重複ファイルシート") .Range("A:E").EntireColumn.AutoFit .Activate End With End Sub
プログラムが停止しますので F5キーで再開 一ファイルづつ視認していただいて 読込まれているか A〜Eとの対応に整合性があるか 実際に書き込まれているか(終了後しかわかりませんが) 下の左端のステータスバーに読込みファイル件数が残っていると思います ので確認してみて下さい。(何件読み込んだか解ります) (隠居じーさん) 2019/03/01(金) 17:49
■確認事項
・マスタ(管理)からB列に転記する部分が管理者コード(3行目)ではなく、管理者名(2行目)からとっている???
・追加ではなく、上書き状態?(マクロを実行の度、情報入力シートなら3行目、検査シートなら7行目からデータが転記される。
・重複チェックが機能していない?すでにデータを取り込んで、再度同じフォルダを指定すると、私の想定では取り込みを続けるか否かの選択と重複ファイルシートへの出力があったのですが、現段階ではチェックはされていないのでしょうか??
■要望(えらそうにごめんなさい)
・インプットボックスを表示させず、A〜Eどの値でも取り込む
・現状、インプットボックスにBを入力すると情報入力シート(B)と検査シート(B)のみ残るが、A、C,Dも保持したいです。
→理由は上記で上書きではなく追加(蓄積)にしていただきたいと述べた通り、どんどんとこのファイルに書き溜めていきたいのです。
以上、よろしくお願いします。
私もいろいろ調べてみます。
(F) 2019/03/01(金) 18:51
転記元フォルダーの情報入力シートのB2に A と入力されていて
インプットBoxで A と入力すると
情報入力シート(A) 検査シート(A)
が表れて、、確かに転記されています。
でも、これだと、、転記元のB2と違う Keyを入れると全部消えちゃいます???
当然、、蓄積はされませんよね??? 間違っていましたらすみませんm(__)m
以上、、検証Man途中経過でした。。。 (SoulMan) 2019/03/01(金) 19:18
あっ、、そういう仕様であればあっていると言えば、、あってますね???
沢山あるファイルから指定した Key だけを転記するんですね???
でも、どうもトピ主さんの話だと、、、
>・重複チェックが機能していない? >すでにデータを取り込んで、再度同じフォルダを指定すると、 >私の想定では取り込みを続けるか否かの選択と重複ファイルシートへの出力があったのですが、 >現段階ではチェックはされていないのでしょうか??
重複ファイルシート には、、何も転記されていませんので、1回目から何か転記されていないと次が判断できません???
どうも違うようですね????
なかなかハードルの高いご要望ですね(^^;
検証Man、、第二途中経過でした。。。。m(__)m (SoulMan) 2019/03/01(金) 19:44
SoulManさんこんばんは ^^。。。(^^♪ すみません、ありがとうございます。 << _ _ >>
そのとおりです。エラーチェック機能のつもりが厳しすぎたようです。 ご注文に無い機能でした。 二回目以降OKではなく全てキャンセル処理すれば 追加書込みで、重複チェック機能が働きますです。 ただし初回は取込情報が無い訳ですから新規です。 重複機能は二回目以降になります ボタンの名前もメッセージも悪かったですね。 取扱説明もなしでした。混乱を招いて済みません。
Fさん二回目もOKの更新ボタンを押していませんでしょうか。
★・マスタ(管理)からB列に転記する部分が管理者コード(3行目) ではなく、管理者名(2行目)から とっている そうなっていますね。管理者コードに変えればいいですか。 この関係の情報違いについては他にも間違いが有りましたら 対比表のような感じでお願いいたします。 例 ??シートの B3 → xxシートのC5 に変える でわ (隠居じーさん) 2019/03/01(金) 19:51
重複チェックですけど、、そのファイルの最終更新日を調べて、、
それと同じだったら、、警告?違ったら、、取り込み???
でしょうか???
ヘルプか何かのまんまですけど、、、↓こんなコードが私のPCの中にありました。。
Function LastSaveTime() Application.Volatile LastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value End Function (SoulMan) 2019/03/01(金) 19:57
おぉぉぉぉぉ、、、失礼しましたm(__)m
転記されましたです。(^^;
ばっちり!!!!です。(^_-)-☆ (SoulMan) 2019/03/01(金) 20:09
SoulManさん 、ありがとうございます。^^ お〜〜ぉ、こんな、プロパティ!あったのですね。知りませんでした。使わ せて戴きます。私のはこのようなハイレベルの物では御座いませんで情報シ ートに記録されたファイル名を連想配列で一意にし、読込みファイルと突合 せする、単にファイル名のみで参照です。処理日は当日の日付、エクセルの NOW()様です(笑)
(隠居じーさん) 2019/03/01(金) 19:51 の補足です^^; >>二回目以降OKではなく全てキャンセル処理すれば ' 回数に関係無くでした。早い話が更新は処理対象シート ' 消しているだけです。あと無ければコードで追加処理しています。 ' でも他のシートも消えるっていううのは不思議ですね〜 (? 。? : ' こちらでは8個のシート以外消えたりしませんが。 (隠居じーさん) 2019/03/01(金) 20:13
ちなみに、、↓こんな感じになりました。
従前書込済ファイル名 追加した重複ファイル名 重複追加処理日時 データ転記.xlsm データ転記.xlsm 2019/03/01 - 20:07:31
以上、、検証Manでした。 (SoulMan) 2019/03/01(金) 20:15
こんばんは ^^ 今宵、なにかと御用ご繁多の砌、 重ね重ねのご検証、ご高配を賜り、 恐悦至極に存じ上げ奉りまする。 はは〜〜〜 << _ _ >> ← おまえはどこかの家老か。。。いえ、隠居じーさん すみません m(__)m。。。でもほんとうに、ありがとうございます。 (隠居じーさん) 2019/03/01(金) 20:32
いえいえい、、御やすい御用でございます。。
ところで、、
一番簡単なのは、
If vbOK = MsgBox("転記先シートを更新しますか", vbOKCancel + vbDefaultButton2) Then Sheet_Delete snm2 End If
として、ユーザーが意図しないと消えない様にすることでしょうか?(^^; (SoulMan) 2019/03/01(金) 20:39
Fさん二回目もOKの更新ボタンを押していませんでしょうか。
■その通りでした。1回目も2回目以降も転記シート更新しますか?→OKなら追加、キャンセルなら処理中止
とかは可能ですかね?大幅にいじることになりますでしょうか??
★・マスタ(管理)からB列に転記する部分が管理者コード(3行目) ではなく、管理者名(2行目)から とっている そうなっていますね。管理者コードに変えればいいですか。 この関係の情報違いについては他にも間違いが有りましたら 対比表のような感じでお願いいたします。 例 ??シートの B3 → xxシートのC5 に変える でわ
■承知いたしました。それはほかにはなさそうです。
すごいですねこれ。。
いろいろ試してみます!!
(F) 2019/03/01(金) 20:53
それと私がよくやるのが、、この
重複ファイルシート は非表示 (xlSheetVeryHidden)にしておいて、一般ユーザーには触らせない ことですね。
すると、ユーザーは「なんで??わかるの??」とびっくりします。(笑)
こどもだましなんですけどね(^^;
Bookを開くときに、、ディクショナリーでさらっとなめておいて、、、
Book名と最終保存日でユニークなKeyですから、、あったら 警告です。
それでも、、やりますぅ??? みたいな(笑) (SoulMan) 2019/03/01(金) 21:05
はい。そうだとおもいます。^^ そもそも、自分で使うならこう、しておけば何かと便利! (シートが一杯になり、見づらい重い)とか、月単位で 保存とか、多分有ると推測し、現状だとそのままファイル名 変えて保存しとけば退避用ですし、後、ボタン一つで更新 出来、いいかな〜と、思ったのですが。A〜E、振分に についても、何か振分ルーチンのご質問みたいなのが有った ように、思い選択制にしたのですが、これは、私のはやとちり だったみたいですね ^^;エンドユーザー様は。。。 (*_*)何か慌てると、途端に、そこらへんのボタン押しまくる 人もいるかもですね。。。( ̄▽ ̄;)今度は機能を外すだけ みたいなので。なんとかなるみたいですね。 シートの削除も無しになりますので、もう消えたりしないですね (*^^*)///
(隠居じーさん) 2019/03/01(金) 21:19
>>重複ファイルシート は非表示 (xlSheetVeryHidden)にしておいて 妙案ですね(*^^*)v Fさんへ そんなに難しくありませんです。改善案 取り纏めて下さいね。 (隠居じーさん) 2019/03/01(金) 21:22
To 隠居じーさん さんへ
3月中旬から新しいプロジェクト(そんな大したもんじゃないんですけど)が始まって(もう既に始まってますけど)
4月からは本格的に稼働しますから、、登校回数が激減すると思います。多分??多分??です。
今でもそんなに多くは登校してませんけど(笑)
でも、慣れれば、、、普段通りかなぁ???2、3ヶ月はかかるかなぁ??なれるまでに、、、
まぁ、、年もとしなんで、、、つらいですけど、、、よろしくお願いします。m(__)m
fさん、、トピをお借りしてどうもすみませんでした。。
いいものが出来るといいですね。
では、、では、、 (SoulMan) 2019/03/01(金) 21:37
SoulManさんへ たいへんそぉですね。頑張ってくださいませ。。。 こちらこそ、今後とも、宜しくお願い致します。 m(_ _)m (隠居じーさん) 2019/03/01(金) 21:48
それと、今、私のマイブームは、↓これです。
seiya さん のパクリですけど、、、実に素晴らしいです。
If Not Evaluate("=ISREF(重複ファイルシート!A1)") Then Sheets.Add.Name = "重複ファイルシート"
以前は、、Loop して Flg で、、、追加でしょう???
今日も会社のコードを書き直しておきましたよ。(笑) (SoulMan) 2019/03/01(金) 21:49
おお、貴重なコードを、ありがとうございます。 試して見ますね。今回の改修工事に使わせてもらいます。 (*^^*)v ( ..)φメモメモ。。。記録済!
(隠居じーさん) 2019/03/01(金) 22:04
おはようございます。
では、現存上からの改善点を以下に記載致します(偉そうにすみません)。
・1回目も2回目以降も転記シート更新しますか?→OKなら追加、キャンセルなら処理中止
・インプットボックスで値を入力させるのではなく、B2の値が何であれ選択フォルダ内エクセル全てを取り込みする
・シートの削除はしない(処理後も説明シート(ボタン配置シート)、8つの振り分けシート、列見出、重複ファイルシートが残るイメ―ジです。
(F) 2019/03/02(土) 11:14
(F)さんへ おはようございます。^^ はい。 承りました。今回ははやとちりで失敗しない様にしないと。。。。。只、少し他の予定 も有り、お時間を少し賜りたいと思います。後、確認、チェック等、も有るとは思いますが 悪しからずご了承くださいね。出来るだけ早く致します。では、とりかかります。 その都度確認事項が発生すると思いますので。こちらでお聞きしますね。 以下教えて下さい。 >>ファイル数の確認。 ゼロの場合とゼロ以上の場合 1.MSGBOXをだす 2.出さない >>・インプットボックスで値を入力させるのではなく、B2の値が何であれ選択フォルダ内エクセル全てを取り込みする もし入力間違い等でA〜E以外があればどうされますか。 1.読み飛ばし(何もしない) 2.情報入力シート(その他)、検査シート(その他)、の シート作ってそこに格納 3.その他のご希望処理があれば教えて下さい。
★シートの削除は致しません。 ★確認事項 最初のみ、必要シートはあればそのまま、無ければ作成といたします。
(隠居じーさん) 2019/03/02(土) 11:59
Fさんへ シート名変更のお願い
当該の固定の8個ある書き出し用シート名ですか()を外させていただいてもよろしいですか。 良くエクセルで使用されるもので何かとトラブルの原因にもなりかねませんので 例無ければ動くが有ればエラーみたいな。。。。ま、たまにでしょうけど。。。 ○○××に近寄らず、みたいな理由ですが m(__)m
情報入力シート(C) → 情報入力シートC
(隠居じーさん) 2019/03/02(土) 12:25
(隠居じーさん) 2019/03/02(土) 12:25 のお願いは保留にしておいてください。w 最後がアルファベットでもダメなようです。 他の方法を考えます。 再度お願いするかもしれませんがとりあえず保留でお願いいたします
(隠居じーさん) 2019/03/02(土) 12:31
■承知いたしました。むしろいつも本当すみません。。ただ、細かい制御ののところは無視してでかまいませんので、
指定フォルダのエクセルファイルを取り込む→B2で振り分け→各シートに追加(蓄積)のところのみ、
どうしても先に見せたい(こうなって効率化されるよを見せたい)のですが、可能でしょうか。。。。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
「以下教えて下さい。
>>ファイル数の確認。
ゼロの場合とゼロ以上の場合
1.MSGBOXをだす
2.出さない
■1でお願いします。取り込み対象ファイルが存在しませんでした。→マクロ終了
>>・インプットボックスで値を入力させるのではなく、B2の値が何であれ選択フォルダ内エクセル全てを取り込みする
もし入力間違い等でA〜E以外があればどうされますか。
1.読み飛ばし(何もしない)
2.情報入力シート(その他)、検査シート(その他)、の
シート作ってそこに格納 3.その他のご希望処理があれば教えて下さい。 ■2の案すばらしいですね。2が可能ならお願いしたいです。。。。 一応B2には入力規則でA〜Eしか入力できないようにはしてます。
★シートの削除は致しません。 ■すみません。ありがとうございます。
★確認事項 最初のみ、必要シートはあればそのまま、無ければ作成といたします」 ■それでお願いします。ただ、このマクロファイルを配布し、保護をかける予定なので、シートが欠けていることはないと思っています。
以上、よろしくお願いします。
(F) 2019/03/02(土) 13:19
>>■それでお願いします。ただ、このマクロファイルを配布し、保護をかける予定なので、シートが欠けていることはないと思っています。 上記以外は確認、了解致しました。 上記の件ですが、ご案内の通りだと、無駄も省け完成時間も短縮(。。。ちょっとだけ^^;) されますので予め11シート作成、存在するものと、させて戴きます。 以下に詳細を提示致します 予め作成していただくシート(既存の、列見出、シートは不要になります。)
情報入力シート(A) 情報入力シート(B) 情報入力シート(C) 情報入力シート(D) 情報入力シート(その他) 検査シート(A) 検査シート(B) 検査シート(C) 検査シート(D) 検査シート(その他) 重複ファイルシート
以上です。()は使用していただいて(今まで通り)結構です。 上記の件で、不都合が御座いましたらおしらせください。 m(__)m (隠居じーさん) 2019/03/02(土) 14:02
シート構成についても以下で承知いたしました。()仕様についても了解しました。ありがとうございます。
情報入力シート(A) 情報入力シート(B) 情報入力シート(C) 情報入力シート(D) 情報入力シート(その他) 検査シート(A) 検査シート(B) 検査シート(C) 検査シート(D) 検査シート(その他) 重複ファイルシート
以上、よろしくお願いします。
(F) 2019/03/02(土) 14:20
>>指定フォルダのエクセルファイルを取り込む→B2で振り分け→各シートに追加(蓄積)のところのみ、 >>どうしても先に見せたい(こうなって効率化されるよを見せたい)のですが、可能でしょうか。。。。 につきましては一番最初、アップさせていただいたものはたしか。そのような仕様だった記憶があるのですが。。。 調べてみますね。。。サンプルみたいなの。
Sub 転記_Ver3() 'このマクロが有る転記先のBOOK名です。実物の名前に変えて下さいね。 Const BaseBookName As String = "データ転記03.xlsm"
で情報はフォルダ、転記元、に固定 存在するA〜Eを自動で振り分けてシート作成 をアアップしたように思います。無いパターンの シートは作成されませんが、読み込ますサンプルに 全パターンあれば全シート作成したはずです。間に合わせに は良いかもですね。。。。いや、アップしなかったかもですね。 みてみますぅ〜( ̄▽ ̄)
(隠居じーさん) 2019/03/02(土) 15:33
Fさんへ 2019/02/22(金) 18:26 に修正した分ですが、動きませんでしたですか。
(隠居じーさん) 2019/03/02(土) 16:22
2019/02/22(金) 11:21のを 2019/02/22(金) 18:26に修正したマクロということですよね? 動きましたよ!!ただ、これはフォルダ選択対象タイプではないですよね?たしか。試してきます。 (F) 2019/03/02(土) 18:16
はい、ただこんな感じになるよぉ〜くらいはお解り戴けるかと ^^; それに、フォルダ選択機能と重複確認機能をつけたものがご要望の物に、よく似てますです。 でわ m(__)m (隠居じーさん) 2019/03/02(土) 19:31
F さん、おはようございます ^^ お待たせいたしました。出来ましたのでアップしておきます。 ○ B列管理者名 → コード 修正致しました。すみませんでした。 ○ Sub 出力() 、を既存のコマンドボタンに登録してください。
新機能 ★最初に必要シートが揃っているかチェックします。(自動) 他のシートが有っても構いません。コード内の、シート名と 実際のシート名を合わせて下さい。作り替える時も間違いが ないか確認できますので推奨いたします。 ★パターンは自動振分、全て処理は追加書込みです。 ★削除機能は撤去致しました。 ★フォルダ選択、対応 ★空フォルダ対策、対応 取説 ☆フォルダ選択後、空でなければ、自動で追加取込が始まります。 ☆重複確認時の動作が前回とは逆にしています。OKで追加します キャンセルで抜かして次のファイルを処理します。 本日は今から外出予定ですので、その後の対応は夜、以降になります。 何かありましたら。アップしておいてください。^^; でわでわ m(_ _)m
Option Explicit Sub 出力() Dim Fdnm As String Dim Fm SheetChk Fdnm = FolderSelect FileCount Fdnm ForStartProc Fm = FileMasterChk 転記Ver7 Fdnm, Fm ForEndProc End Sub Private Sub SheetChk() Dim ws Dim Wsflg() As Boolean Dim i As Long Dim s Dim buf As String ws = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _ "検査シート(A)", "検査シート(B)", "検査シート(C)", _ "検査シート(D)", "検査シート(その他)", "重複ファイルシート") ReDim Wsflg(UBound(ws)) For Each s In ThisWorkbook.Worksheets For i = 0 To UBound(ws) If s.Name = ws(i) Then Wsflg(i) = True End If Next Next For i = 0 To UBound(Wsflg) If Not Wsflg(i) Then buf = buf & ws(i) & vbNewLine End If Next If buf <> "" Then MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf End End If End Sub Private Function FolderSelect() As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\転記元\" .Title = "フォルダ選択" .ButtonName = "選択確定" If .Show Then FolderSelect = .SelectedItems(1) & "\" Else MsgBox "フォルダが取得できません" FolderSelect = "" End End If End With End Function Private Sub FileCount(ByVal fp As String) Dim Fnm As String Dim Cnt As Long Fnm = Dir(fp & "*.xls*") Do Until Fnm = "" DoEvents Cnt = Cnt + 1 Fnm = Dir() Loop If Cnt = 0 Then MsgBox "取り込み対象ファイルが存在しませんでした" End End If End Sub Private Sub ForStartProc() With ThisWorkbook.Worksheets("重複ファイルシート") .Cells(1, 2).Resize(, 3) = _ Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時") End With With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With End Sub Private Function FileMasterChk() As Variant Dim buf Dim buf2() Dim i As Long Dim j As Long Dim k As Long Dim mya Dim D Set D = CreateObject("Scripting.Dictionary") buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _ "情報入力シート(D)", "情報入力シート(その他)") For i = 1 To ThisWorkbook.Worksheets.Count For j = 0 To UBound(buf) If ThisWorkbook.Worksheets(i).Name = buf(j) Then ReDim Preserve buf2(k) buf2(k) = ThisWorkbook.Worksheets(i).Name k = k + 1 Exit For End If Next Next '配列が空なら(一件でも発生していれば1加算されている) If k = 0 Then FileMasterChk = False Exit Function End If For i = 0 To UBound(buf2) With ThisWorkbook.Worksheets(buf2(i)) mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2))) If TypeName(mya) <> "Empty" Then If TypeName(mya) = "String" Then If Not D.exists(mya) Then D.Add mya, mya End If Else For k = 1 To UBound(mya, 1) If mya(k, 1) <> "" Then If Not D.exists(mya(k, 1)) Then D.Add mya(k, 1), mya(k, 1) End If End If Next End If If TypeName(mya) <> "String" Then Erase mya Else mya = Empty End If End If End With Next If D.Count = 0 Then FileMasterChk = False Else With ThisWorkbook.Worksheets("重複ファイルシート") .Range("B:B").SpecialCells(2).Clear .Cells(1, 2) = "従前書込済ファイル名" k = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 .Cells(k, 2).Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys) End With FileMasterChk = D.keys End If End Function Private Sub 転記Ver7(ByVal fp As String, Fm As Variant) Dim Fname As String Dim WB As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr Dim Mtr Dim Mkr Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t As Date Dim Cnt As Long Dim cntf As Long Dim tmpary() Dim f_flg As Boolean Dim Myd() t = Timer Set BB = Workbooks(ThisWorkbook.Name) Fname = Dir(fp & "*.xls*") Cnt = 1 Do Until Fname = "" DoEvents If Fname <> BB.Name Then Set WB = Workbooks.Open(fp & Fname, UpdateLinks:=0) Set sh4 = WB.Worksheets("情報入力シート") Set sh5 = WB.Worksheets("検査シート") Set sh6 = WB.Worksheets("マスタ(都道府県)") Set sh7 = WB.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), _ sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2))) Snmstr = Trim(sh4.Range("B2").Value) '******************************************************* '重複ファイル読飛、追加書込、判定 f_flg = File_Dup_Chk(Fname, Fm, Myd, cntf) If f_flg Then WB.Close GoTo step1 End If '****************************************************** '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then Snmstr = "その他" End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") Rem 情報シート書出, 201902、追加のみに修正 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr Write_J y, sh2, sh4, WB 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To UBound(Mtr, 1) If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出, 201902、追加のみに修正 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 Write_K y2, sh3, sh4, sh5, WB .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With WB.Close SaveChanges:=False End If step1: Fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0") Cnt = Cnt + 1 Loop If cntf > 0 Then Last_Write Myd Erase Myd MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Function File_Dup_Chk(ByVal BName As String, _ ByVal BMaster As Variant, _ ByRef Myd As Variant, _ ByRef Cnt As Long) As Boolean Dim i As Long If TypeName(BMaster) = "Boolean" Then Exit Function End If For i = LBound(BMaster) To UBound(BMaster) If BName = BMaster(i) Then If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _ "追加処理開始=OK" & "追加せず次のファイルを処理=キャンセル" & _ vbNewLine & Chr(10) & BName, vbOKCancel) Then ReDim Preserve Myd(Cnt) Myd(Cnt) = Array(BName, Format(Now(), "yyyy/mm/dd - hh:mm:ss")) Cnt = Cnt + 1 Exit Function Else File_Dup_Chk = True End If End If Next End Function Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) Dim buffer(1 To 74) Dim myad2 Dim i As Long Dim j As Long myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws For i = 1 To UBound(buffer) If i = 2 Or i = 3 Or i = 9 Or i = 68 Then GoTo step1 buffer(i) = sh2.Range(myad2(j)).Value j = j + 1 step1: Next buffer(3) = WB.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook) Dim myad2 Dim buf2 Dim i As Long Dim j As Long Dim k As Long Dim buffer(1 To 699) Rem 'sh2 = 検査シート, sh4 = 情報入力シート myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") With ws For i = 1 To UBound(buffer) If i <= 9 Then Select Case i Case 1, 4 To 8 buffer(i) = sh4.Range(myad2(j)).Value j = j + 1 End Select ElseIf i > 9 Then buffer(i) = sh2.Range(buf2(k)).Value k = k + 1 End If DoEvents Next buffer(3) = WB.Name .Cells(y2, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Last_Write(ByVal arg1 As Variant) Dim lr As Long With ThisWorkbook.Worksheets("重複ファイルシート") lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3).Resize(UBound(arg1, 1) + 1, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arg1)) End With End Sub Private Sub ForEndProc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .StatusBar = "" End With With ThisWorkbook.Worksheets("重複ファイルシート") .Range("A:E").EntireColumn.AutoFit .Activate End With End Sub (隠居じーさん) 2019/03/03(日) 09:35
おはようございます。
検証Man参上!!!
ばっちりでございます。(^^; (SoulMan) 2019/03/03(日) 10:08
ありがとうございま〜ぁ〜す。m(__)mm(__)mm(__)m (*^^*)v (隠居じーさん) 2019/03/03(日) 10:10
こんばんは。^^ かえってきました。。。w 慌てていたとは言え、つい。昔の悪い癖が。。。さすがにこのコード (↑の) のGOTO文はいけませんね。おはずかしい。あとで修正、アップしておきます。A^_^; 全て、条件文で代替出来ますね。w( ̄▽ ̄)w。。。でわでわ ま、動くと言えば動きますけどね。。。下から上向けてジャンプよりかはましかもですね。 m(_ _)m (隠居じーさん) 2019/03/03(日) 16:52
こんばんは。 ^^ ツッコミどころ満載ですが。。。 すこぉ〜し、ましになりました。 m(_ _)m
Option Explicit Sub 出力() Dim Fdnm As String Dim Fm SheetChk Fdnm = FolderSelect FileCount Fdnm ForStartProc Fm = FileMasterChk 転記Ver7 Fdnm, Fm ForEndProc End Sub Private Sub SheetChk() Dim ws Dim Wsflg() As Boolean Dim i As Long Dim s Dim buf As String ws = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _ "検査シート(A)", "検査シート(B)", "検査シート(C)", _ "検査シート(D)", "検査シート(その他)", "重複ファイルシート") ReDim Wsflg(UBound(ws)) For Each s In ThisWorkbook.Worksheets For i = 0 To UBound(ws) If s.Name = ws(i) Then Wsflg(i) = True End If Next Next For i = 0 To UBound(Wsflg) If Not Wsflg(i) Then buf = buf & ws(i) & vbNewLine End If Next If buf <> "" Then MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf End End If End Sub Private Function FolderSelect() As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\転記元\" .Title = "フォルダ選択" .ButtonName = "選択確定" If .Show Then FolderSelect = .SelectedItems(1) & "\" Else MsgBox "フォルダが取得できません" FolderSelect = "" End End If End With End Function Private Sub FileCount(ByVal fp As String) Dim Fnm As String Dim Cnt As Long Fnm = Dir(fp & "*.xls*") Do Until Fnm = "" DoEvents Cnt = Cnt + 1 Fnm = Dir() Loop If Cnt = 0 Then MsgBox "取り込み対象ファイルが存在しませんでした" End End If End Sub Private Sub ForStartProc() With ThisWorkbook.Worksheets("重複ファイルシート") .Cells(1, 2).Resize(, 3) = _ Array("従前書込済ファイル名", "追加した重複ファイル名", "重複追加処理日時") End With With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With End Sub Private Function FileMasterChk() As Variant Dim buf Dim buf2() Dim i As Long Dim j As Long Dim k As Long Dim mya Dim D Set D = CreateObject("Scripting.Dictionary") buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _ "情報入力シート(D)", "情報入力シート(その他)") For i = 1 To ThisWorkbook.Worksheets.Count For j = 0 To UBound(buf) If ThisWorkbook.Worksheets(i).Name = buf(j) Then ReDim Preserve buf2(k) buf2(k) = ThisWorkbook.Worksheets(i).Name k = k + 1 Exit For End If Next Next '配列が空なら(一件でも発生していれば1加算されている) If k = 0 Then FileMasterChk = False Exit Function End If For i = 0 To UBound(buf2) With ThisWorkbook.Worksheets(buf2(i)) mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2))) If TypeName(mya) <> "Empty" Then If TypeName(mya) = "String" Then If Not D.exists(mya) Then D.Add mya, mya End If Else For k = 1 To UBound(mya, 1) If mya(k, 1) <> "" Then If Not D.exists(mya(k, 1)) Then D.Add mya(k, 1), mya(k, 1) End If End If Next End If If TypeName(mya) <> "String" Then Erase mya Else mya = Empty End If End If End With Next If D.Count = 0 Then FileMasterChk = False Else With ThisWorkbook.Worksheets("重複ファイルシート") .Range("B:B").SpecialCells(2).Clear .Cells(1, 2) = "従前書込済ファイル名" k = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 .Cells(k, 2).Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys) End With FileMasterChk = D.keys End If End Function Private Sub 転記Ver7(ByVal fp As String, Fm As Variant) Dim fname As String Dim WB As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr Dim Mtr Dim Mkr Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t As Date Dim Cnt As Long Dim cntf As Long Dim tmpary() Dim f_flg As Boolean Dim Myd() t = Timer Set BB = Workbooks(ThisWorkbook.Name) fname = Dir(fp & "*.xls*") Cnt = 1 Do Until fname = "" DoEvents If fname <> BB.Name Then Set WB = Workbooks.Open(fp & fname, UpdateLinks:=0) Set sh4 = WB.Worksheets("情報入力シート") Set sh5 = WB.Worksheets("検査シート") Set sh6 = WB.Worksheets("マスタ(都道府県)") Set sh7 = WB.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), _ sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2))) Snmstr = Trim(sh4.Range("B2").Value) f_flg = File_Dup_Chk(fname, Fm, Myd, cntf) '重複ファイル読飛、追加書込、判定,trueで読み飛ばしfalseで実行 If Not f_flg Then '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then Snmstr = "その他" End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") Rem 情報シート書出, 201902、追加のみに修正 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr Write_J y, sh2, sh4, WB 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To UBound(Mtr, 1) If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出, 201902、追加のみに修正 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 Write_K y2, sh3, sh4, sh5, WB .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With End If End If WB.Close SaveChanges:=False fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0") Cnt = Cnt + 1 Loop If cntf > 0 Then Last_Write Myd Erase Myd MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Function File_Dup_Chk(ByVal BName As String, _ ByVal BMaster As Variant, _ ByRef Myd As Variant, _ ByRef Cnt As Long) As Boolean Dim i As Long If TypeName(BMaster) = "Boolean" Then Exit Function End If For i = LBound(BMaster) To UBound(BMaster) If BName = BMaster(i) Then If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _ "追加処理開始=OK" & "追加せず次のファイルを処理=キャンセル" & _ vbNewLine & Chr(10) & BName, vbOKCancel) Then ReDim Preserve Myd(Cnt) Myd(Cnt) = Array(BName, Format(Now(), "yyyy/mm/dd - hh:mm:ss")) Cnt = Cnt + 1 Exit Function Else File_Dup_Chk = True End If End If Next End Function Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) Dim buffer(1 To 74) Dim myad2 Dim i As Long Dim j As Long myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws For i = 1 To UBound(buffer) If (i <> 2) * (i <> 3) * (i <> 9) * (i <> 68) Then buffer(i) = sh2.Range(myad2(j)).Value j = j + 1 End If Next buffer(3) = WB.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook) Dim myad2 Dim buf2 Dim i As Long Dim j As Long Dim k As Long Dim buffer(1 To 699) Rem 'sh2 = 検査シート, sh4 = 情報入力シート myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") With ws For i = 1 To UBound(buffer) If i <= 9 Then Select Case i Case 1, 4 To 8 buffer(i) = sh4.Range(myad2(j)).Value j = j + 1 End Select ElseIf i > 9 Then buffer(i) = sh2.Range(buf2(k)).Value k = k + 1 End If DoEvents Next buffer(3) = WB.Name .Cells(y2, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Last_Write(ByVal arg1 As Variant) Dim lr As Long With ThisWorkbook.Worksheets("重複ファイルシート") lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3).Resize(UBound(arg1, 1) + 1, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arg1)) End With End Sub Private Sub ForEndProc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .StatusBar = "" End With With ThisWorkbook.Worksheets("重複ファイルシート") .Range("A:E").EntireColumn.AutoFit .Activate End With End Sub (隠居じーさん) 2019/03/03(日) 18:10
なんか本格的になってきましたね
快適に動いておりますですよ。
私は、Motivationが全然あがりませんので見物です。
でも、これはこれで、、中々、、面白い(笑) (SoulMan) 2019/03/03(日) 19:25
こんばんは。^^ Soulmanさんのご助力がなければ。出来ていませんでしたよ。↑の条件文もお師匠様の パクリですよ。毎度お世話になっております。有難うございました。m(__)m でわ
(隠居じーさん) 2019/03/03(日) 19:59
お世話になっております。
(隠居じーさん) 2019/03/03(日) 18:10のコードを試させていただきました。
これはすごいですね。処理も早いです。。。
シーと名等こちらの環境に変えて試してみます。。。
すごいです。ありがとうございます。
(F) 2019/03/04(月) 10:19
上記でインデックスが有効な範囲内にないと言われますね。。。。
シート名、B2の値は間違いなく変えたのですが。。
ただ、テスト環境で完璧に動いているので、完全にどこか間違えてますね。精査します。
(F) 2019/03/04(月) 11:32
Snmstr = "その他" End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") Rem 情報シート書出, 201902、追加のみに修正
上記のA〜Eを変更してますが、日本語だからダメというわけではないですよね?
また、 Rem 情報シート書出, 201902、追加のみに修正はそのままでも良いですかね(実際のシート名に変更)
(F) 2019/03/04(月) 11:40
■重複しーとにつて
重複ファイル名のチェックは部分一致なのでしょうか?何かファイル名以外で重複チェックされてますでしょうか。
テスト実行結果
既存ファイル名 追加した重複ファイル名 重複追加処理日時
京都 - コピー.xlsx a - コピー.xlsx 2019/03/04 - 11:49:52
京都.xlsx a.xlsx 2019/03/04 - 11:49:53
d.xlsx 大阪.xlsx 2019/03/04 - 11:50:03
(F) 2019/03/04(月) 11:54
こんにちは ^^ Private Function FileMasterChk() As Variant の buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _ "情報入力シート(D)", "情報入力シート(その他)") のシートのB列に記載のファイル名を取得して 完全一致で処理です(イコールです) ので上記配列bufのシート名も実際の物に変更する必要があります。 (隠居じーさん) 2019/03/04(月) 12:30
追伸、 コードのエディター内(コード内の先頭で)Ctrl + F で シート 、で検索かけて ヒットしたもので、シートー名の物は実際のシート名に変更が必要です。 (隠居じーさん) 2019/03/04(月) 12:36
>>重複ファイル名のチェックは部分一致なのでしょうか?何かファイル名以外で重複チェックされてますでしょうか。 エラーでは無くなにか内容に、不都合が有ったのでしょうか。
(隠居じーさん) 2019/03/04(月) 12:46
上記で少し思ったのが、「既存ファイル名」と「追加した重複ファイル名」は同じものになるはずではないでしょうか?(勘違いですかね??)
たとえは、京都 - コピー.xls横の「追加した重複ファイル名」には京都 - コピー.xlsが来るのではないでしょうか(現状、a - コピー.xlsx)
勘違いしていたらすみません。
(F) 2019/03/04(月) 13:05
こんにちは ^^ あ!はい。そおいう事でしたか。確かに現状ではおっしゃる通りです。 今回追加分を含む含まないは別といたしましても。既存ファイルは現在対象シートに 取り込んだファイルで、追加したファイルは追加分だけですので。おのずと中身は 同じにはなり得ないと思います。 現状は、取込開始前の各シートのファイルを取込、重複した名前は削除して、比較 に使うマスターの中身として表示しています。必ずしも数は一致しません。 変更しますか。(お聞きすれば良かったですね。済みません) もし変更するなら、詳細を教えて下さい。 (隠居じーさん) 2019/03/04(月) 13:40
上記はかなりの改修になりますでしょうか?
(F) 2019/03/04(月) 13:50
上記はかなりの改修になりますでしょうか?
(F) 2019/03/04(月) 13:50
いえ、そんなに難しくは有りませんが。1,2か所変更すれば。。。とはいきません 、それと一寸私の勘違いだったかも。。。。 京都 - コピー.xlsxを再度読み込んで重複処理すれば京都 - コピー.xlsxが表示されるはずですが。 確認してみます。 いずれにしても、既存ファイルは要らない、とのご希望でしたら、修正致しますが。 どうすれば良いですか。 1.そのままにして既存ファイル列をご希望の表示にする。 2.やっぱり取り消して、重複、キャンセル明細にする。 m(__)m (隠居じーさん) 2019/03/04(月) 14:08
いえ、そんなに難しくは有りませんが。1,2か所変更すれば。。。とはいきません ■やはりそうですよね。すみません。 2.やっぱり取り消して、重複、キャンセル明細にする。 ■できたらこちらでお願いします。既存ファイルは取り込みシートをみるということで。。。 (F) 2019/03/04(月) 14:15
d = Left(t, 2)
m = Mid(t, 3, 2)
m = m / 60
s = Right(t, Len(t) - 4)
s = s / 60 / 60
Conv = d + m + s
End Function
呼び出し方
.Range("BU" & i).Value= Conv(sh4.Range("B6").Value)
.Range("BV" & i).Value = Conv(sh4.Range("E6").Value)
(F) 2019/03/04(月) 14:28
確認致しました。 既存ファイル列はユニークになっている為とキャンセル時は追加ファイルには記載が有りませんので 数は個なりますが既存ファイルにないファイルは重複処理されません。従って、重複ファイル名は 必ず既存ファイル列に含まれているはずです。後学の為(F)さん 2019/03/04(月) 13:05の実験内容 を教えて下さい。宜しくお願い致します。(私が間違っていますと修正しないと意味がありませんので) 10進数は見てみますね。。。m(__)m でわでわ (隠居じーさん) 2019/03/04(月) 14:46
sh4.Range("B6").Value sh4.Range("E6").Value の具体的な値を教えて下さい データ10、データ11 ではわかりませんです。
(隠居じーさん) 2019/03/04(月) 14:58
(隠居じーさん) 2019/03/04(月) 15:10
2.上記フォルダを取り込みます。
3.再度そのフォルダを取り込み、重複シートを確認しました(OK、キャンセルはランダムで選択)
4.(F) 2019/03/04(月) 13:05のように既存ファイルと追加したファイル名が異なっていたのでおやっと思いました。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
大変失礼いたしました。
B6に入るのは緯度
E6に入っているのは経度データです。
60進数
緯度 :354052.45
経度:139461.65
↓
10進数
緯度:35.681236
経度: 139.767125
小数点以下の桁数はデータによって違う可能性ありです。
(F) 2019/03/04(月) 15:15
こんにちは。 実験内容、有難うございました。再度、同じようにしてみます。 コードを再点検してみますね。 10進数変換については 提示いただいたコードをそのまま使用して 結果も何も触らず。そのまま、コードに 組み込めばいいですかね。
35.68123611
14.58379167
という結果になりますが。。。おかしいですよね。
(変換した内容をそのまま所定の位置へ書込み。) 情報入力シートだけですね。 そんなに難しくはないと思いますので早速取り掛かります。 では
m(__)m
(隠居じーさん) 2019/03/04(月) 15:43
重複ファイル列の件はやりようによってはFさんの様な内容も起こりえない事は無いと言う事で。ただ追加、キャンセルは正確に把握できていることは 確認できましたので。変更いたしますね、緯度経度はあまりわかりませんで 済みません。ご提示のコードで計算結果が正しいのであればそのまま組み込 みます。 でわ
(隠居じーさん) 2019/03/04(月) 16:13
■緯度経度について
おかしいですね。。。
すみません。精査します。
緯度の度は2桁で経度は3桁なので、その辺がおかしいでしょうか。
以上、よろしくお願いします。
(F) 2019/03/04(月) 17:04
>>緯度の度は2桁で経度は3桁なので、その辺がおかしいでしょうか。 そうかもしれませんね。 ご提示のコードは取り込んだ文字列を先頭から2文字3文字目から2文字、後残り全てに 三分割して、2,3番目を各、60で割り算して、3項目を足算したものです。 多分時間計算用?。。。?? 計算式がお解りでしたら教えていただくとコード化は出来ますけど。
(隠居じーさん) 2019/03/04(月) 17:29
>>重複ファイル名をA列に、キャンセルしたファイル名をB列、重複追加処理日時をC列に表示するでお願いします 出来ましたけど、一回、作動させる毎に、初期化しますか、累積しますか。 累積すればするほど見にくくなるかもですね。
A B C 1 追加した重複ファイル名 キャンセルした重複ファイル名 重複追加処理日時 2 D.xlsm 京都 - コピー.xlsm 2019/03/04 - 17:35:29 3 京都.xlsm 2019/03/04 - 17:35:32
(隠居じーさん) 2019/03/04(月) 17:46
(隠居じーさん) 2019/03/04(月) 17:56
354052.45 139461.65 ではなく、
354052.45 1394601.65 ではないでしょうか?(東京駅ですかね)
でもって、60進数→10進数変換は、先週話題になったので([[20190226155306]])、その時の私のコードを関数化すると、以下になります。
Function dd(dw As Double) As Double Dim cw As String cw = Format(dw, "0000000.0000") dd = Mid(cw, 1, 3) * 1 + Mid(cw, 4, 2) / 60 + Mid(cw, 6) / 3600 End Function
これで変換すると、10進数では以下。
35.68123611 139.767125 (???) 2019/03/04(月) 18:01
^^;計算式解りました。組み替えます。暫時お待ちを。。。。。でわ (隠居じーさん) 2019/03/04(月) 18:01
???さんありがとうございます。。。m(__)m助かります。 編集かぶっていまして。お礼が後先になり済みませんでした (隠居じーさん) 2019/03/04(月) 18:02
???さんの関数そのままパクらさせて頂きます。^^; 感謝、感謝です m(__)m (隠居じーさん) 2019/03/04(月) 18:06
いろいろありがとうございます。
隠居じーさん様
>>重複ファイル名をA列に、キャンセルしたファイル名をB列、重複追加処理日時をC列に表示するでお願いします
出来ましたけど、一回、作動させる毎に、初期化しますか、累積しますか。
累積すればするほど見にくくなるかもですね。
■そうですね。ただ、累積でお願いします。
A B C 1 追加した重複ファイル名 キャンセルした重複ファイル名 重複追加処理日時 2 D.xlsm 京都 - コピー.xlsm 2019/03/04 - 17:35:29 3 京都.xlsm (F) 2019/03/04(月) 18:07
(隠居じーさん) 2019/03/04(月) 18:19
Fさんすみませんご案内の計算コードも 二つ目は60で 三つ目は3600でわっていましたね。 (隠居じーさん) 2019/03/04(月) 18:32
おはようございます ^^ とりあえず コード書きなおしましたけど。。。まだ デバッグの残骸が残っています。昼すぎくらいに整理は出来ると思うのですが テストはしていません。そちらでやってみていただけます。。。? 午後3時以降くらいになりましたら。エラー対応可能です ^^; (隠居じーさん) 2019/03/05(火) 10:43
こんにちは。。。 ^^ お待たせ致しました。。。え〜と、帰ってくるの4時頃になりそぉなので。。。すみません でわ
Option Explicit Sub 出力() Dim Fdnm As String SheetChk Fdnm = FolderSelect FileCount Fdnm ForStartProc 転記Ver8 Fdnm ForEndProc End Sub Private Sub SheetChk() Dim ws Dim Wsflg() As Boolean Dim i As Long Dim s Dim buf As String ws = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _ "検査シート(A)", "検査シート(B)", "検査シート(C)", _ "検査シート(D)", "検査シート(その他)", "重複ファイルシート") ReDim Wsflg(UBound(ws)) For Each s In ThisWorkbook.Worksheets For i = 0 To UBound(ws) If s.Name = ws(i) Then Wsflg(i) = True End If Next Next For i = 0 To UBound(Wsflg) If Not Wsflg(i) Then buf = buf & ws(i) & vbNewLine End If Next If buf <> "" Then MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf End End If End Sub Private Function FolderSelect() As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\転記元\" .Title = "フォルダ選択" .ButtonName = "選択確定" If .Show Then FolderSelect = .SelectedItems(1) & "\" Else MsgBox "フォルダが取得できません" FolderSelect = "" End End If End With End Function Private Sub FileCount(ByVal fp As String) Dim Fnm As String Dim Cnt As Long Fnm = Dir(fp & "*.xls*") Do Until Fnm = "" DoEvents Cnt = Cnt + 1 Fnm = Dir() Loop If Cnt = 0 Then MsgBox "取り込み対象ファイルが存在しませんでした" End End If End Sub Private Sub ForStartProc() With ThisWorkbook.Worksheets("重複ファイルシート") If .Cells(1) = "" Then .Cells(1, 1).Resize(, 3) = _ Array("追加した重複ファイル名", "キャンセルした重複ファイル名", "重複追加処理日時") End If End With With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With End Sub Private Function File_Dup_Chk(ByVal BName As String, _ ByVal BMaster As Variant, _ ByRef MD() As Object, _ ByRef Dcnt() As Long) As Boolean
Dim i As Long If BMaster.Count = 0 Then File_Dup_Chk = False Exit Function End If For i = 0 To BMaster.Count - 1 If BName = BMaster.keys()(i) Then If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _ "追加処理開始=OK" & "追加せず次のファイルを処理=キャンセル" & _ vbNewLine & Chr(10) & BName, vbOKCancel) Then MD(1).Add Dcnt(1), BName MD(3).Add Dcnt(3), Format(Now(), "yyyy/mm/dd - hh:mm:ss") Dcnt(1) = Dcnt(1) + 1 Dcnt(3) = Dcnt(3) + 1 File_Dup_Chk = False Exit Function Else MD(2).Add Dcnt(2), BName Dcnt(2) = Dcnt(2) + 1 File_Dup_Chk = True End If End If Next End Function Private Function FileMasterChk() As Object Dim buf Dim buf2() Dim i As Long Dim j As Long Dim k As Long Dim mya Dim D As Object Set D = CreateObject("Scripting.Dictionary") buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _ "情報入力シート(D)", "情報入力シート(その他)") For i = 1 To ThisWorkbook.Worksheets.Count For j = 0 To UBound(buf) If ThisWorkbook.Worksheets(i).Name = buf(j) Then ReDim Preserve buf2(k) buf2(k) = ThisWorkbook.Worksheets(i).Name k = k + 1 Exit For End If Next Next '配列が空なら(一件でも発生していれば1加算されている) If k = 0 Then Exit Function For i = 0 To UBound(buf2) With ThisWorkbook.Worksheets(buf2(i)) mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2))) If TypeName(mya) <> "Empty" Then If TypeName(mya) = "String" Then If Not D.exists(mya) Then D.Add mya, mya End If Else For k = 1 To UBound(mya, 1) If mya(k, 1) <> "" Then If Not D.exists(mya(k, 1)) Then D.Add mya(k, 1), mya(k, 1) End If End If Next End If If TypeName(mya) <> "String" Then Erase mya Else mya = Empty End If End If End With Next Set FileMasterChk = D End Function Private Sub 転記Ver8(ByVal fp As String) Dim fname As String Dim WB As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr Dim Mtr Dim Mkr Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t As Date Dim Cnt As Long Dim Dcnt(1 To 3) As Long Dim tmpary() Dim f_flg As Boolean Dim MD(1 To 3) As Object Dim M_flg t = Timer Dim BD As Object Set BD = FileMasterChk For i = 1 To 3 Set MD(i) = CreateObject("Scripting.Dictionary") Next Set BB = Workbooks(ThisWorkbook.Name) fname = Dir(fp & "*.xls*") Cnt = 1 Do Until fname = "" DoEvents If fname <> BB.Name Then Set WB = Workbooks.Open(fp & fname, UpdateLinks:=0) Set sh4 = WB.Worksheets("情報入力シート") Set sh5 = WB.Worksheets("検査シート") Set sh6 = WB.Worksheets("マスタ(都道府県)") Set sh7 = WB.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), _ sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2))) Snmstr = Trim(sh4.Range("B2").Value) 'FLG判定 f_flg = File_Dup_Chk(fname, BD, MD(), Dcnt) '重複ファイル読飛、追加書込、判定,trueで読み飛ばしfalseで実行 If Not f_flg Then '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then Snmstr = "その他" End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") Rem 情報シート書出, 201902、追加のみに修正 '情報入力シートのBU列、BV列に転記元(sh4)B6、E6から値を取得。 '呼び出し方 '.Range("BU" & i).Value = Conv(sh4.Range("B6").Value) Jr(6,2) ' .Range("BV" & i).Value = Conv(sh4.Range("E6").Value) Jr(6,5) '(F) 2019/03/04(月) 14:28 6,2 6,5 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr Write_J y, sh2, sh4, WB '緯度、経度変換追加 On Error Resume Next If IsNumeric(CDbl(Jr(6, 2))) Then .Cells(y, "BU") = dd(CDbl(Jr(6, 2))) .Cells(y, "BV") = dd(CDbl(Jr(6, 5))) End If On Error GoTo 0 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To UBound(Mtr, 1) If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next i = 0 '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出, 201902、追加のみに修正 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 Write_K y2, sh3, sh4, sh5, WB .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With End If End If WB.Close SaveChanges:=False fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0") Cnt = Cnt + 1 Loop Last_Write MD() For i = 1 To 3 Set MD(i) = Nothing Next Set BD = Nothing MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) Dim buffer(1 To 74) Dim myad2 Dim i As Long Dim j As Long myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws For i = 1 To UBound(buffer) If (i <> 2) * (i <> 3) * (i <> 9) * (i <> 68) Then buffer(i) = sh2.Range(myad2(j)).Value j = j + 1 End If Next buffer(3) = WB.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook) Dim myad2 Dim buf2 Dim i As Long Dim j As Long Dim k As Long Dim buffer(1 To 699) Rem 'sh2 = 検査シート, sh4 = 情報入力シート myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") With ws For i = 1 To UBound(buffer) If i <= 9 Then Select Case i Case 1, 4 To 8 buffer(i) = sh4.Range(myad2(j)).Value j = j + 1 End Select ElseIf i > 9 Then buffer(i) = sh2.Range(buf2(k)).Value k = k + 1 End If DoEvents Next buffer(3) = WB.Name .Cells(y2, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Last_Write(ByRef arg1() As Object) Dim lr As Long Dim i As Long Dim X As Long With ThisWorkbook.Worksheets("重複ファイルシート") For i = 1 To 3 lr = .Cells(.Rows.Count, i).End(xlUp).Row + 1 If arg1(i).Count > 0 Then .Cells(lr, i).Resize(arg1(i).Count, 1) = WorksheetFunction.Transpose(arg1(i).items) End If Next End With End Sub Private Sub ForEndProc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .StatusBar = "" End With With ThisWorkbook.Worksheets("重複ファイルシート") .Range("A:E").EntireColumn.AutoFit .Activate End With End Sub Function dd(dw As Double) As Double Dim cw As String cw = Format(dw, "0000000.0000") dd = Mid(cw, 1, 3) * 1 + Mid(cw, 4, 2) / 60 + Mid(cw, 6) / 3600 End Function (隠居じーさん) 2019/03/05(火) 12:46
Function dd(dw As Double) As Double ↓ に変更しておいてください。 Private Function dd(dw As Double) As Double
(隠居じーさん) 2019/03/05(火) 12:55
ただ、一つだけ変更したいのですが(何度もすみません)、
情報入力シート(A〜D)のBT列には情報入力シートのB5とC5を転記させたいのですが、
現状C5の値です。
myad2 = Array( 〜〜〜〜省略"B2&C5"〜〜省略)
だとエラーが出ます。rangeの場合は上記のような&でもいけましたが、配列?の場合はまた違うのでしょうか?
(F) 2019/03/05(火) 14:04
こんにちは。 長い道のりもやつとゴールが見えてきましたですね。^^
Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) の一番最後
buffer(3) = WB.Name .Cells(y, 1).Resize(, UBound(buffer)) = buffer
↓
buffer(3) = WB.Name buffer(72) = sh2.Range(myad2(66)) & sh2.Range(myad2(67)) .Cells(y, 1).Resize(, UBound(buffer)) = buffer
の様に変えて下さい。(1行コード挿入) (隠居じーさん) 2019/03/05(火) 15:57
上記承知いたしました。ありがとうございます。
ちなみに、現verは列見出シートは必要ない感じでしょうか?
(F) 2019/03/05(火) 17:06
こんばんは ^^ いえいえ。他の回答者様なら、もっと早くて、 コードもスマートなの作ってくださったかもしれませんね。 列見出しシート。。。は使用していません。 応援して下さったみなさん、有難うございました。 Fさん、お疲れさまでした。でわ。 m(__)m
(隠居じーさん) 2019/03/05(火) 17:13
ただ、重複しーとについて1点気づいてしまいました。
■現状
追加した重複ファイル名 キャンセルした重複ファイル名 重複追加処理日時
a.xlsx b.xlsx 2019/03/05 - 17:08:23 c.xlsx 2019/03/05 - 17:08:24
■理想
追加した重複ファイル名 重複追加処理日時 キャンセルした重複ファイル名 重複追加処理日時
a.xlsx 2019/03/05 - 17:08:23 b.xlsx 2019/03/05 - 17:08:23 c.xlsx 2019/03/05 - 17:08:24
追加処理した時間(B列)、キャンセルした処理の時間列(D列)にするのが良いかのかなと今更思いました。
どうでしょうか?現状は追加した時間がC列に表示されてます?
(F) 2019/03/05(火) 17:24
こんばんは ^^ で 変更ご希望ですか?
(*^^*) (隠居じーさん) 2019/03/05(火) 17:56
こんばんは ^^ そんなにむつかしくはないのですが。何箇所か変更、追記が必要でしたので 書き換えておきました。 でわ
Option Explicit
Sub 出力()
Dim Fdnm As String SheetChk Fdnm = FolderSelect FileCount Fdnm ForStartProc 転記Ver8 Fdnm ForEndProc End Sub Private Sub SheetChk() Dim ws Dim Wsflg() As Boolean Dim i As Long Dim s Dim buf As String ws = Array("情報入力シート(A)", "情報入力シート(B)", _ "情報入力シート(C)", "情報入力シート(D)", "情報入力シート(その他)", _ "検査シート(A)", "検査シート(B)", "検査シート(C)", _ "検査シート(D)", "検査シート(その他)", "重複ファイルシート") ReDim Wsflg(UBound(ws)) For Each s In ThisWorkbook.Worksheets For i = 0 To UBound(ws) If s.Name = ws(i) Then Wsflg(i) = True End If Next Next For i = 0 To UBound(Wsflg) If Not Wsflg(i) Then buf = buf & ws(i) & vbNewLine End If Next If buf <> "" Then MsgBox "処理に必要なシートが存在しません。作成後再起動してください。" & vbNewLine & buf End End If End Sub Private Function FolderSelect() As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\転記元\" .Title = "フォルダ選択" .ButtonName = "選択確定" If .Show Then FolderSelect = .SelectedItems(1) & "\" Else MsgBox "フォルダが取得できません" FolderSelect = "" End End If End With End Function Private Sub FileCount(ByVal fp As String) Dim Fnm As String Dim Cnt As Long Fnm = Dir(fp & "*.xls*") Do Until Fnm = "" DoEvents Cnt = Cnt + 1 Fnm = Dir() Loop If Cnt = 0 Then MsgBox "取り込み対象ファイルが存在しませんでした" End End If End Sub Private Sub ForStartProc() With ThisWorkbook.Worksheets("重複ファイルシート") If .Cells(1) = "" Then .Cells(1, 1).Resize(, 4) = _ Array("追加した重複ファイル名", "重複追加処理日時", "キャンセルした重複ファイル名", "重複追加キャンセル日時") End If End With With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With End Sub Private Function File_Dup_Chk(ByVal BName As String, _ ByVal BMaster As Variant, _ ByRef MD() As Object, _ ByRef Dcnt() As Long) As Boolean
Dim i As Long If BMaster.Count = 0 Then File_Dup_Chk = False Exit Function End If For i = 0 To BMaster.Count - 1 If BName = BMaster.keys()(i) Then If vbOK = MsgBox("同一ファイル名の情報がが存在します。" & vbNewLine & Chr(10) & _ "追加処理開始=OK" & "追加せず次のファイルを処理=キャンセル" & _ vbNewLine & Chr(10) & BName, vbOKCancel) Then MD(1).Add Dcnt(1), BName MD(3).Add Dcnt(3), Format(Now(), "yyyy/mm/dd - hh:mm:ss") Dcnt(1) = Dcnt(1) + 1 Dcnt(3) = Dcnt(3) + 1 File_Dup_Chk = False Exit Function Else MD(2).Add Dcnt(2), BName MD(4).Add Dcnt(4), Format(Now(), "yyyy/mm/dd - hh:mm:ss") Dcnt(2) = Dcnt(2) + 1 Dcnt(4) = Dcnt(4) + 1 File_Dup_Chk = True End If End If Next End Function Private Function FileMasterChk() As Object Dim buf Dim buf2() Dim i As Long Dim j As Long Dim k As Long Dim mya Dim D As Object Set D = CreateObject("Scripting.Dictionary") buf = Array("情報入力シート(A)", "情報入力シート(B)", "情報入力シート(C)", _ "情報入力シート(D)", "情報入力シート(その他)") For i = 1 To ThisWorkbook.Worksheets.Count For j = 0 To UBound(buf) If ThisWorkbook.Worksheets(i).Name = buf(j) Then ReDim Preserve buf2(k) buf2(k) = ThisWorkbook.Worksheets(i).Name k = k + 1 Exit For End If Next Next '配列が空なら(一件でも発生していれば1加算されている) If k = 0 Then Exit Function For i = 0 To UBound(buf2) With ThisWorkbook.Worksheets(buf2(i)) mya = Intersect(.Range("C:C"), .Range(.Rows(3), .Rows(.Cells(3, 3).CurrentRegion.Rows.Count + 2))) If TypeName(mya) <> "Empty" Then If TypeName(mya) = "String" Then If Not D.exists(mya) Then D.Add mya, mya End If Else For k = 1 To UBound(mya, 1) If mya(k, 1) <> "" Then If Not D.exists(mya(k, 1)) Then D.Add mya(k, 1), mya(k, 1) End If End If Next End If If TypeName(mya) <> "String" Then Erase mya Else mya = Empty End If End If End With Next Set FileMasterChk = D End Function Private Sub 転記Ver8(ByVal fp As String) Dim fname As String Dim WB As Workbook Dim BB As Workbook Rem 転記先 Write Dim sh2 As Worksheet Dim sh3 As Worksheet Rem 転記元 Read Dim sh4 As Worksheet Dim sh5 As Worksheet Dim sh6 As Worksheet Dim sh7 As Worksheet Dim Jr Dim Mtr Dim Mkr Dim snm2 Dim Snmstr As String Dim i As Long Dim j As Long Dim y As Long Dim y2 As Long Dim ry As Long Dim ry2 As Long Dim lr As Long Dim lr2 As Long Dim t As Date Dim Cnt As Long Dim tmpary() Dim f_flg As Boolean Dim Dcnt(1 To 4) As Long Dim MD(1 To 4) As Object Dim M_flg t = Timer Dim BD As Object Set BD = FileMasterChk For i = 1 To 4 Set MD(i) = CreateObject("Scripting.Dictionary") Next Set BB = Workbooks(ThisWorkbook.Name) fname = Dir(fp & "*.xls*") Cnt = 1 Do Until fname = "" DoEvents If fname <> BB.Name Then Set WB = Workbooks.Open(fp & fname, UpdateLinks:=0) Set sh4 = WB.Worksheets("情報入力シート") Set sh5 = WB.Worksheets("検査シート") Set sh6 = WB.Worksheets("マスタ(都道府県)") Set sh7 = WB.Worksheets("マスタ(管理)") Jr = sh4.UsedRange Mtr = sh6.Range("C2").CurrentRegion Mkr = Intersect(sh7.Range("C:L"), _ sh7.Range(sh7.Range("B2").CurrentRegion.Rows(1), sh7.Range("B2").CurrentRegion.Rows(2))) Snmstr = Trim(sh4.Range("B2").Value) 'FLG判定 f_flg = File_Dup_Chk(fname, BD, MD(), Dcnt) '重複ファイル読飛、追加書込、判定,trueで読み飛ばしfalseで実行 If Not f_flg Then '書込み先シート名をsh4.Range("B2")の値で振り分け処理 Snmstr = IIf(Snmstr = "E", "D", Snmstr) If Snmstr = "" Or Snmstr <> "A" And Snmstr <> "B" And Snmstr <> "C" And Snmstr <> "D" Then Snmstr = "その他" End If Set sh2 = BB.Worksheets("情報入力シート(" & Snmstr & ")") Set sh3 = BB.Worksheets("検査シート(" & Snmstr & ")") Rem 情報シート書出, 201902、追加のみに修正 '情報入力シートのBU列、BV列に転記元(sh4)B6、E6から値を取得。 '呼び出し方 '.Range("BU" & i).Value = Conv(sh4.Range("B6").Value) Jr(6,2) ' .Range("BV" & i).Value = Conv(sh4.Range("E6").Value) Jr(6,5) '(F) 2019/03/04(月) 14:28 6,2 6,5 With sh2 lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr = IIf(lr < 3, 3, lr) y = lr Write_J y, sh2, sh4, WB '緯度、経度変換追加 On Error Resume Next If IsNumeric(CDbl(Jr(6, 2))) Then .Cells(y, "BU") = dd(CDbl(Jr(6, 2))) .Cells(y, "BV") = dd(CDbl(Jr(6, 5))) End If On Error GoTo 0 'シート名 .Cells(y, 1) = Snmstr 'BS列に地域コードを書込処理 For i = 2 To UBound(Mtr, 1) If (Jr(5, 2) = Mtr(i, 2)) * (Jr(5, 3) = Mtr(i, 3)) Then .Cells(y, "BS") = Mtr(i, 1) End If Next i = 0 '管理者コードを各B列書込処理 i = WorksheetFunction.Match(Jr(2, 6), WorksheetFunction.Index(Mkr, 1, 0), 0) .Cells(y, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With Rem 検査シート書出, 201902、追加のみに修正 With sh3 lr2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 lr2 = IIf(lr2 < 7, 7, lr2) y2 = lr2 Write_K y2, sh3, sh4, sh5, WB .Cells(y2, "B") = Mkr(2, i) .UsedRange.EntireColumn.AutoFit End With End If End If WB.Close SaveChanges:=False fname = Dir() DoEvents Application.StatusBar = Space(7) & "IN = " & Format(Cnt, "0,0") Cnt = Cnt + 1 Loop Last_Write MD() For i = 1 To 4 Set MD(i) = Nothing Dcnt(i) = 0 Next Set BD = Nothing MsgBox "作業完了。所要時間、単位秒 = " & Format(Timer - t, "0.0 秒") End Sub Private Sub Write_J(ByVal y As Long, ws As Worksheet, sh2 As Worksheet, WB As Workbook) Dim buffer(1 To 74) Dim myad2 Dim i As Long Dim j As Long myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2", "B4", "F4", "L4", "B5", "C5", "D5", "L5", "B6", "E6", _ "H6", "B8", "F8", "K8", "B9", "F9", "K9", "B10", "C10", "F10", "G10", "H10", "K10", "L10", _ "B11", "C11", "F11", "G11", "K11", "L11", "B12", "C12", "F12", "G12", "K12", "B14", "E14", _ "H14", "L14", "B15", "E15", "H15", "L15", "B16", "E16", "H16", "L16", "B18", "E18", "H18", _ "I18", "J18", "L18", "M18", "N18", "B19", "E19", "L19", "B21", "H21", "H18", "B5", "C5", _ "B6", "E6") With ws For i = 1 To UBound(buffer) If (i <> 2) * (i <> 3) * (i <> 9) * (i <> 68) Then
buffer(i) = sh2.Range(myad2(j)).Value j = j + 1 End If Next buffer(3) = WB.Name buffer(72) = sh2.Range(myad2(66)) & sh2.Range(myad2(67)) .Cells(y, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Write_K(ByVal y2 As Long, ws As Worksheet, sh4 As Worksheet, sh2 As Worksheet, WB As Workbook) Dim myad2 Dim buf2 Dim i As Long Dim j As Long Dim k As Long Dim buffer(1 To 699) Rem 'sh2 = 検査シート, sh4 = 情報入力シート myad2 = Array("B2", "B2", "F2", "G2", "I2", "L2") buf2 = Array("D10", "E10", "F10", "G10", "H10", "I10", "J10", "K10", "L10", "M10", "N10", "O10", "P10", "Q10", "R10", "S10", "T10", "U10", "V10", "W10", "X10", "D11", "E11", "F11", "G11", "H11", "I11", "J11", "K11", "L11", "M11", "N11", "O11", "P11", "Q11", "R11", "S11", "T11", "U11", "V11", "W11", "X11", "D12", "E12", "F12", "G12", "H12", "I12", "J12", "K12", "L12", "M12", "N12", "O12", "P12", "Q12", "R12", "S12", "T12", "U12", "V12", "W12", "X12", "D13", "E13", "F13", "G13", "H13", "I13", "J13", "K13", "L13", "M13", "N13", "O13", "P13", "Q13", "R13", "S13", "T13", "U13", "V13", "W13", "X13", "D14", _ "E14", "F14", "G14", "H14", "I14", "J14", "K14", "L14", "M14", "N14", "O14", "P14", "Q14", "R14", "S14", "T14", "U14", "V14", "W14", "X14", "D15", "E15", "F15", "G15", "H15", "I15", "J15", "K15", "L15", "M15", "N15", "O15", "P15", "Q15", "R15", "S15", "T15", "U15", "V15", "W15", "X15", "D16", "E16", "F16", "G16", "H16", "I16", "J16", "K16", "L16", "M16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16", "V16", "W16", "X16", "D17", "E17", "F17", "G17", "H17", "I17", "J17", "K17", "L17", "M17", "N17", "O17", "P17", "Q17", "R17", "S17", "T17", "U17", "V17", "W17", "X17", "D18", "E18", "F18", "G18", _ "H18", "I18", "J18", "K18", "L18", "M18", "N18", "O18", "P18", "Q18", "R18", "S18", "T18", "U18", "V18", "W18", "X18", "D19", "E19", "F19", "G19", "H19", "I19", "J19", "K19", "L19", "M19", "N19", "O19", "P19", "Q19", "R19", "S19", "T19", "U19", "V19", "W19", "X19", "D20", "E20", "F20", "G20", "H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20", "Q20", "R20", "S20", "T20", "U20", "V20", "W20", "X20", "D21", "E21", "F21", "G21", "H21", "I21", "J21", "K21", "L21", "M21", "N21", "O21", "P21", "Q21", "R21", "S21", "T21", "U21", "V21", "W21", "X21", "Y10", "Z10", "D22", "E22", "F22", "G22", "H22", _ "I22", "J22", "K22", "L22", "M22", "N22", "O22", "P22", "Q22", "R22", "S22", "T22", "U22", "V22", "W22", "X22", "D23", "E23", "F23", "G23", "H23", "I23", "J23", "K23", "L23", "M23", "N23", "O23", "P23", "Q23", "R23", "S23", "T23", "U23", "V23", "W23", "X23", "D24", "E24", "F24", "G24", "H24", "I24", "J24", "K24", "L24", "M24", "N24", "O24", "P24", "Q24", "R24", "S24", "T24", "U24", "V24", "W24", "X24", "D25", "E25", "F25", "G25", "H25", "I25", "J25", "K25", "L25", "M25", "N25", "O25", "P25", "Q25", "R25", "S25", "T25", "U25", "V25", "W25", "X25", "D26", "E26", "F26", "G26", "H26", "I26", "J26", "K26", _ "L26", "M26", "N26", "O26", "P26", "Q26", "R26", "S26", "T26", "U26", "V26", "W26", "X26", "D27", "E27", "F27", "G27", "H27", "I27", "J27", "K27", "L27", "M27", "N27", "O27", "P27", "Q27", "R27", "S27", "T27", "U27", "V27", "W27", "X27", "Y22", "Z22", "D28", "E28", "F28", "G28", "H28", "I28", "J28", "K28", "L28", "M28", "N28", "O28", "P28", "Q28", "R28", "S28", "T28", "U28", "V28", "W28", "X28", "D29", "E29", "F29", "G29", "H29", "I29", "J29", "K29", "L29", "M29", "N29", "O29", "P29", "Q29", "R29", "S29", "T29", "U29", "V29", "W29", "X29", "D30", "E30", "F30", "G30", "H30", "I30", "J30", "K30", "L30", _ "M30", "N30", "O30", "P30", "Q30", "R30", "S30", "T30", "U30", "V30", "W30", "X30", "D31", "E31", "F31", "G31", "H31", "I31", "J31", "K31", "L31", "M31", "N31", "O31", "P31", "Q31", "R31", "S31", "T31", "U31", "V31", "W31", "X31", "D32", "E32", "F32", "G32", "H32", "I32", "J32", "K32", "L32", "M32", "N32", "O32", "P32", "Q32", "R32", "S32", "T32", "U32", "V32", "W32", "X32", "D33", "E33", "F33", "G33", "H33", "I33", "J33", "K33", "L33", "M33", "N33", "O33", "P33", "Q33", "R33", "S33", "T33", "U33", "V33", "W33", "X33", "Y28", "Z28", "D34", "E34", "F34", "G34", "H34", "I34", "J34", "K34", "L34", "M34", _ "N34", "O34", "P34", "Q34", "R34", "S34", "T34", "U34", "V34", "W34", "X34", "D35", "E35", "F35", "G35", "H35", "I35", "J35", "K35", "L35", "M35", "N35", "O35", "P35", "Q35", "R35", "S35", "T35", "U35", "V35", "W35", "X35", "Y34", "Z34", "D36", "E36", "F36", "G36", "H36", "I36", "J36", "K36", "L36", "M36", "N36", "O36", "P36", "Q36", "R36", "S36", "T36", "U36", "V36", "W36", "X36", "D37", "E37", "F37", "G37", "H37", "I37", "J37", "K37", "L37", "M37", "N37", "O37", "P37", "Q37", "R37", "S37", "T37", "U37", "V37", "W37", "X37", "Y36", "Z36", "D38", "E38", "F38", "G38", "H38", "I38", "J38", "K38", "L38", _ "M38", "N38", "O38", "P38", "Q38", "R38", "S38", "T38", "U38", "V38", "W38", "X38", "D39", "E39", "F39", "G39", "H39", "I39", "J39", "K39", "L39", "M39", "N39", "O39", "P39", "Q39", "R39", "S39", "T39", "U39", "V39", "W39", "X39", "D40", "E40", "F40", "G40", "H40", "I40", "J40", "K40", "L40", "M40", "N40", "O40", "P40", "Q40", "R40", "S40", "T40", "U40", "V40", "W40", "X40", "D41", "E41", "F41", "G41", "H41", "I41", "J41", "K41", "L41", "M41", "N41", "O41", "P41", "Q41", "R41", "S41", "T41", "U41", "V41", "W41", "X41", "Y38", "Z38", "Y42", "A45", "C48", "C49", "L48", "L49") With ws For i = 1 To UBound(buffer) If i <= 9 Then Select Case i Case 1, 4 To 8 buffer(i) = sh4.Range(myad2(j)).Value j = j + 1 End Select ElseIf i > 9 Then buffer(i) = sh2.Range(buf2(k)).Value k = k + 1 End If DoEvents Next buffer(3) = WB.Name .Cells(y2, 1).Resize(, UBound(buffer)) = buffer End With End Sub Private Sub Last_Write(ByRef arg1() As Object) Dim lr As Long Dim i As Long Dim X As Long With ThisWorkbook.Worksheets("重複ファイルシート") For i = 1 To 4 Select Case i Case 1: X = 1 Case 2: X = 3 Case 3: X = 2 Case 4: X = 4 End Select
lr = .Cells(.Rows.Count, X).End(xlUp).Row + 1 If arg1(i).Count > 0 Then .Cells(lr, X).Resize(arg1(i).Count, 1) = WorksheetFunction.Transpose(arg1(i).items) End If Next End With End Sub Private Sub ForEndProc() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .StatusBar = "" End With With ThisWorkbook.Worksheets("重複ファイルシート") .Range("A:E").EntireColumn.AutoFit .Activate End With End Sub Private Function dd(dw As Double) As Double Dim cw As String cw = Format(dw, "0000000.0000") dd = Mid(cw, 1, 3) * 1 + Mid(cw, 4, 2) / 60 + Mid(cw, 6) / 3600 End Function (隠居じーさん) 2019/03/05(火) 18:02
(F) 2019/03/05(火) 21:43
Fさん、おつかれさまぁ〜。。。m(_ _)m Soulmanさん。。。。。〜おわりましたよぉ〜〜〜〜(*^^*)。。。 ありがとうございましたぁあああ〜〜〜〜 m(_ _)m
(隠居じーさん) 2019/03/05(火) 22:07
お疲れ様でした 検証も出来なくてすみません(笑) いやはや、感服致しました。 おやすみなさい💤
(SoulMan) 2019/03/05(火) 22:27
こんばんは。^^もうご覧になっていないかもですが。 Private Sub 転記Ver8(ByVal fp As String) の '緯度、経度変換追加 〜 'シート名 の間のコードを 下記の様に入れ替えて下さい。慌てていたとはいえ 単純なミスをエラー回避で処理していました。 情報の方に入力ミスが無ければ問題ないと言えばないですが 修正いただいた方が無難です。大変すみませんでした。 お詫びと、修正をさせて頂きます。 m(__)m
'緯度、経度変換追加 If IsNumeric(Jr(6, 2)) Then .Cells(y, "BU") = dd(CDbl(Jr(6, 2))) End If If IsNumeric(Jr(6, 5)) Then .Cells(y, "BV") = dd(CDbl(Jr(6, 5))) End If 'シート名 (隠居じーさん) 2019/03/06(水) 18:26
承知いたしました。
(F) 2019/03/08(金) 17:28
Fさんすみませんでした。 m(_ _)m '緯度、経度変換追加 On Error Resume Next
↑ これ。安易に使うべきではないと私は思います。よく理解して使用するなら別です。
If IsNumeric(CDbl(Jr(6, 2))) Then
↑ここ(ダブル型変換してから、数値化どうか調べている。 変換されてたら意味がない、されていなかったらエラーのはず) Jr(6, 2)しか調べていない。
.Cells(y, "BU") = dd(CDbl(Jr(6, 2))) .Cells(y, "BV") = dd(CDbl(Jr(6, 5))) End If On Error GoTo 0
↑ 一番上のエラー処理を解除
結果としては読込先に間違いさえ無ければ緯度、経度が10進数に変換され 書込まれます。 違った場合は全てエラーになるため何も実行されません。 読込先の間違った情報がそのまま、既に書き込まれています。 上記の様に変更していただいても、型違いのエラーでマクロの実行が中断され ない様に回避しているだけです。変更後はもし、読込先の情報シートが数値で なければその文字列が書き込まれます。 動作は修正前も、修正後も変わらないのでそのままでも良いと言えばいいのですが 処理方法があまり関心したものでは無いと。いう事です。←こんな事するの私だけ。。。( ̄▽ ̄;) みたいなことです。。。 m(_ _)m (隠居じーさん) 2019/03/08(金) 20:19
あと、もう一つ別件ですが、ご相談可能でしょうか。
今回の転記先のような形式の書き溜めているものから→転記元のようなフォーム型のものに戻す+ファイルで指定の名前に保存する的な奴です。。
このトピックに無関係ではないと思うのですが。。。。
(F) 2019/03/08(金) 21:28
こんばんは ^^ >>あと、もう一つ別件ですが、ご相談可能でしょうか。 ここは質問掲示板ですので。ご存知の様に。一セル間違っても結果は全く 別なものになる可能性が御座いますので、量は少量でも構いませんが。 規則性が解る様な内容で、出来るだけ詳細なご説明を、別、スレッド (トピック)でご質問されると、私だけでなく、多数の回答者様、から 、アドバイス、コードの提供等、有ると思います。あと、私はあわてる とろくなことしませんので、他の回答者様のご回答をお待ちいただくこと をお勧めいたします。VBAにもかなりのスキルをお持ちと、お見受けいた します。ご自作される方向で、お困りの箇所を適宜、ご質問されると、 本当にたくさんの懇切丁寧なアドバイスが有るとおもいます。 m(_ _)m (隠居じーさん) 2019/03/08(金) 22:39
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.